Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
MouseMove & Click event over an image control
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
MouseMove & Click event over an image control
uuhuhuhuhuh
really sorry for replying to my own post..... acn anybody help me.... really need to solve this "bug" |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
call a function on control click event | Excel Discussion (Misc queries) | |||
DTPicker Control: Can you programatically fire the click event? | Excel Programming | |||
Why does the click event get control? | Excel Programming | |||
Chart - display point details on MouseMove event | Excel Programming | |||
Click on Image Control disables it | Excel Programming |