MouseMove & Click event over an image control

F

furbiuzzu

hi all,

this is my problem:

Inside an excel sheet userform i've put some images (control.Image)
When the form is activated dragging the mouse over a single image i
change the image itself switching between 4 different .bmp files
according to mouse position over the active control. (this works fine).
the problem is when i casually click over the image. An unwanted event
is generated and the image is "locked", even moving the mouse there's
no possibility to visualize other images related to the active control.
is like an unwanted event related to clicking is generated

How can i solve thise huge problem'?

thanks to all. fulvio

here you have some code...

orient1, orient2 etc are images
orientation is the routine switching the images
Private Sub orient2_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Dim i As Integer
i = 2
Call orientation(X, Y, i)
End Sub

Private Sub orient3_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Dim i As Integer
i = 3
Call orientation(X, Y, i)

End Sub


Private Sub orientation(X, Y, i)
Dim left, left1, left2, left3, left4 As Integer
Dim picture As String

picture = Worksheets("foglio1").Range("Az" & i).Value

Select Case Worksheets("foglio1").Range("Az" & i).Value

Case "terz dx"

left1 = 0
left2 = 16
left3 = 32
left4 = 48

If X < left2 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " norm.bmp")
lineup.Controls("orient" & i).ControlTipText = "norm"
End If
If X >= left2 And X < left3 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " dif.bmp")
lineup.Controls("orient" & i).ControlTipText = "dif"
End If
If X >= left3 And X < left4 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " off.bmp")
lineup.Controls("orient" & i).ControlTipText = "off"
End If
If X >= left4 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " TM.bmp")
'lineup.Controls("orient" & i).ControlTipText = "tm"
If i > 4 Then
lineup.Controls("orient" & i).ControlTipText = "ext"
Else
lineup.Controls("orient" & i).ControlTipText = "tm"
End If
End If

Case "terz sx"

left1 = 0
left2 = 16
left3 = 32
left4 = 48

If X < left2 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " tm.bmp")
'lineup.Controls("orient" & i).ControlTipText = "tm"
If i > 4 Then
lineup.Controls("orient" & i).ControlTipText = "ext"
Else
lineup.Controls("orient" & i).ControlTipText = "tm"
End If
End If
If X >= left2 And X < left3 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " dif.bmp")
lineup.Controls("orient" & i).ControlTipText = "dif"
End If
If X >= left3 And X < left4 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " off.bmp")
lineup.Controls("orient" & i).ControlTipText = "off"
End If
If X >= left4 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " norm.bmp")
lineup.Controls("orient" & i).ControlTipText = "norm"
End If

Case "dc dx"

left1 = 0
left2 = 20
left3 = 44

If X < left2 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " ext.bmp")
If i > 4 Then
lineup.Controls("orient" & i).ControlTipText = "tm"
Else
lineup.Controls("orient" & i).ControlTipText = "ext"
End If
End If
If X >= left2 And X < left3 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " off.bmp")
lineup.Controls("orient" & i).ControlTipText = "off"
End If
If X >= left3 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " norm.bmp")
lineup.Controls("orient" & i).ControlTipText = "norm"
End If

Case "dc sx"

left1 = 0
left2 = 20
left3 = 44

If X < left2 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " norm.bmp")
lineup.Controls("orient" & i).ControlTipText = "norm"
End If
If X >= left2 And X < left3 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " off.bmp")
lineup.Controls("orient" & i).ControlTipText = "off"
End If
If X >= left3 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " ext.bmp")
If i > 4 Then
lineup.Controls("orient" & i).ControlTipText = "tm"
Else
lineup.Controls("orient" & i).ControlTipText = "ext"
End If
End If

Case "att dx"

left1 = 0
left2 = 20
left3 = 44

If X < left2 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " ext.bmp")
lineup.Controls("orient" & i).ControlTipText = "ext"
End If
If X >= left2 And X < left3 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " dif.bmp")
lineup.Controls("orient" & i).ControlTipText = "dif"
End If
If X >= left3 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " norm.bmp")
lineup.Controls("orient" & i).ControlTipText = "norm"
End If

Case "att sx"

left1 = 0
left2 = 20
left3 = 44

If X < left2 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " norm.bmp")
lineup.Controls("orient" & i).ControlTipText = "norm"
End If
If X >= left2 And X < left3 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " dif.bmp")
lineup.Controls("orient" & i).ControlTipText = "dif"
End If
If X >= left3 Then
lineup.Controls("orient" & i).picture = LoadPicture("C:\Documents and
Settings\furbiuzzu\Desktop\immagini mytym\" & picture & " ext.bmp")
lineup.Controls("orient" & i).ControlTipText = "ext"
End If

End Select

End Sub
 
F

furbiuzzu

uuhuhuhuhuh

really sorry for replying to my own post.....

acn anybody help me....

really need to solve this "bug"
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Load Picture on Image Control 1
Image Control 1
Extract Text in braquet and list of terms from 2 Docs 3
VBA - exporting serial letters to single documents 0
Snap to grid in VBA (actually a SendKeys question) 2
Replacing a hardcoded date 3
Loadpicture - check if file exists 3
MouseMove problem with continuous form on tab control 7

Top