Keskustelu: Ohjelmointikysymykset: VB6: Pictureboxsin siirtäminen (vb6)

Tarkoius on tämä: Ruudulla on picturebox,kun sitä painaa kerran se liikkuu hiiren mukana ja painaa toisen kerran sejää siihen paikkaan?

Vaikka näin:

Private Sub Picture1_Click()
If Label1.Caption = "Siirtyy" Then
Label1.Caption = ""
Else
Label1.Caption = "Siirtyy"
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label1.Caption = "Siirtyy" Then
Picture1.Left = X
Picture1.Top = Y
End If
End Sub

Label1:sen voi vaikka korvata jollain muuttujalla, tai clickin voi laittaa formille tms..

EDIT: Mouseup ja mousedown ovat myös kovin käteviä näissä hommissa.

Siis kaikkea sitä labelin käyttöä muuttujana *hakkaa päätä seinään*

Kaviaari kirjoitti:

Siis kaikkea sitä labelin käyttöä muuttujana *hakkaa päätä seinään*

Hakataan yhdessä :)

Laitoimpa vaan, että herra näkee koska kuvan olis tarkoitus liikkua...

Päänhakkaajille muuttujan esittely:
dim muuttuja as boolean

ja petrinm:lle

Picture1.Left = X - (Picture1.Width /2)
Picture1.Top = Y - (Picture1.Height /2)

Noin pysyy hiiri keskellä kuvaa.