Create something from nothing? - Xtreme Visual Basic Talk

04-22-2006, 02:58 PM

Fork501

Freshman

Join Date: Mar 2006

Location: Weston, Fl

Posts: 48

Create something from nothing?

I know that this is probably a very basic thing to do, but I can't figure out how to word it to search the forums and internet:

I'm just goofing off with VB and want to make it so that when I move my mouse, a new circle object is left where my mouse was just at (same principle as when you paint)

I have the circle following my mouse already, but I can't figure out for the life of me how to make another shape get left where my mouse was. I created a second object with an index of 0, since I'm sure I will have to use this to make all of the new objects.

Again, I'm just goofing off with VB and this is probably going to bug me all night if I don't figure it out lol

Thanx in advance!

~Derek

04-22-2006, 05:04 PM

MacroPc

Centurion

Join Date: Sep 2005

Location: Wisconsin

Posts: 131

Instead of using shapes, try using VB's .Circle function.

04-22-2006, 06:06 PM

AdrianDeAngelis AdrianDeAngelis is offline

Contributor

Join Date: May 2005

Location: Australia

Posts: 549

also try drawing onto the form without clearing...

__________________
Automation error... What do you mean automation error you %#@*&!$ thing!

Star Admiral: 3D tactical space sim *** New Version 0.38 10/01/09 ***
Damage, shields and special weapons systems

04-23-2006, 02:56 AM

zBlade1

Centurion

Join Date: Mar 2005

Location: Croatia

Posts: 143

put this code in a new project:

Code:

Const r = 10 'radius

Private Sub Form_Load()
    Me.ScaleMode = vbPixels
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Me.Circle (X - r / 2, Y - r / 2), r
    End If
End Sub

04-23-2006, 07:08 AM

Fork501

Freshman

Join Date: Mar 2006

Location: Weston, Fl

Posts: 48

Quote:

Originally Posted by zBlade1

put this code in a new project:

Code:

Const r = 10 'radius

Private Sub Form_Load()
    Me.ScaleMode = vbPixels
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Me.Circle (X - r / 2, Y - r / 2), r
    End If
End Sub

iiiinnnnnsssssaaaannnnneeeee

lol Thanx! =)

~Derek

04-23-2006, 07:48 AM

Vladimir - SV Vladimir - SV is offline

Regular

Join Date: Mar 2006

Location: San Salvador, El Salvador

Posts: 54

As a suggestion, put the "AutoRedraw" forms property to "True", so losing the focus don't lead to image erasing

__________________
sorry my english