MouseMove Events

[eeyk]

Hoe kan ik MouseOver Events doen

BV

if picture1.index = 1 then
picture1.pic="on.gif"
else
pictire1.pic="off.gif"
end if

werkt natuurlijk niet!.

VB6 :thumb:

 

[bartjuh94]

haj,,

Google is miss een optie voor een antwoord
http://articles.techrepublic.com.com/5100-10878_11-5648718.html
en selfs op dit forum kan j miss al een antwoord vinden: http://www.helpmij.nl/forum/showthread.php?t=269184
en tenslotte nog 1 van google
http://www.expressnewsindia.com/c4/ex2/C1156.html
Kijk voortaan gwn eerst op google :thumb:

Met vriendelijk groet,

Bart Hoogmoed

 

[eeyk]

Die site's ken ik all en zijn alle bij niet goed Dat is als ik er een maal overgaat dan blijf die zo ik will

als je er overgaat dat die zo word en als je der af gaat weer normaal word
:thumb:

 

[That Guy]

welke VB?

en... ik weet niet hoor, maar mischien mousemove_ event?... anders zoiets?

1. als de X van de muis onder de TOP van het plaatje komt en BOVEN de bottom van het plaatje, dan is het erop
2. als je Y van de muis rechts van de LEFT van het plaatje komt en LINKS van de rechterkant, dan is het erop

combineer die 2 en voila?

 

[eeyk]

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Picture2.ScaleWidth = 720 Then
Picture2.BorderStyle = 1
Else
Picture2.BorderStyle = 0
End If


End Sub


Maar dit werkt niet

 

[That Guy]

nee, natuurlijk niet...


zoiets?

dim bImage as boolean

'in de form_load:
bImage = false

'in de form_mousemove:
bImage = false


Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
if bImage = true then
picture2.picture = loadpicture("C:\bla\foo\bar.bmp")
else
picture2.picture = loadpicture("C:\bla\foo\blaat.bmp")
end if
bImage = true
end sub

werkt dat?

 

[eeyk]

Nee het is niet met picture borderstyle.

maar het werkt nog steeds niet

als je der ingaat blijf die ingedrukt en word die niet meer normaal

If bimage = True Then
Picture2.BorderStyle = 0
Else
Picture2.BorderStyle = 1
End If
bimage = True
End Sub