Ieri sera non sono stato molto esplicito sull' uso della seconda immagine; essa deve contornare la prima (quella che innesca la macro), come da disegno:
Uploaded with
ImageShack.usLegenda:
Immagine 2, il suo MouseMove riabilita' la macro (mette flag Esegui su True)
Immagine 1, il suo MouseMove esegue una volta la macro e setta il Flag Eseg su False
Questo grosso modo corrisponde al seguente codice:
- Codice: Seleziona tutto
Dim Esegui As Boolean 'In TESTA al modulo
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Esegui Then
Call MiaMacro
Esegui = False
End If
End Sub
Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Esegui = True
End Sub
Ciao