Keskustelu: Ohjelmointikysymykset: VB6: MouseMove VB

Miten onnistuu tehdä semmonen koodi, että kun laittaa hiiren kursorin vaikka Picture1:n päälle niin Label1:n tekstiksi tulee vaikka kuva?
VB6 valittaa että, "Procedure declaration does not match description of event or procedure having the same name".

Private Sub Picture1_MouseMove()
Label1.Caption = "kuva"
End Sub

lainaus:

"Procedure declaration does not match description of event or procedure having the same name".

Olet jättänyt Picture1_MoseMove() subin parametri-listan pois tuosta sulkujen välistä. Kirjoititko itse tuon "Private Sub Picture1_MoseMove()" rivin sen sijaan että olisit valinnut sen sieltä Procedure pudotusvalikosta? Sulkujen välissä pitäisi olla:

(Button As Integer, Shift As Integer, X As Single, Y As Single)

En ollut vielä ehtinyt edes testata moista pudotusvalikkoa... =) Kiitos!

Sanokaas vielä, että miten saan tämän toimivaksi:

Dim a As Long
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
For a = 1 To 1000000
Next
Command1.Top = Int(Rnd * 3000) + 1
Command1.Left = Int(Rnd * 3000) + 1
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox ("Nappulaa painettu...")
End Sub

Miksei tuo tee mitään, kun painaa nappulasta?

lainaus:

Miksei tuo tee mitään, kun painaa nappulasta?

Jaa-a. Kokeile laittaa Command1_Clickiin.

Ei toimi siltikään

lainaus:

Miksei tuo tee mitään, kun painaa nappulasta?

Ei ainakaan minun hiirikäteni ollut niin vikkelä, että olisin ehtinyt painamaan napista. Sen sijaan nappulan siirtämiskoodin poistamisen jälkeen painaminen onnistui ja viesti tuli näkyviin. Click-aliohjelma reagoi hiiren lisäksi näppäinkomentoihin.