🚀 go-pugleaf

"Papais Elio Enzo" <support@infoportal.it> ha scritto nel messaggio
news:45266933$0$25890$4fafbaef@reader1.news.tin.it...
> e' gia' gestito interamente da VB...
> "Alex" <alex-mail@libero.it> ha scritto nel messaggio
> news:451adbb6.10924531@news.libero.it...
> > esiste un ocx che gestisce il mouse, compreso il click?
> > grazie
>
>

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
'quando si preme un tasto del mouse
'Button � il numero del pulsante
'Shift � se � premuto il tasto shift durante il click
'x e y sono le coordinate del mouse nel momento del click
Dim Frase As String
Frase = "il tasto premuto � il numero " & Button & vbCrLf
Frase = Frase & "il stato Shift " & IIf(Shift <> 0, "� stato premuto", "non
� stato premuto") & vbCrLf
Frase = Frase & "le coordinate sono " & X & ":" & Y
MsgBox Frase
'Me.MouseIcon = LoadPicture("Percorso dell'immagine da visualizzare")
'Me.MousePointer = costante '(cambia la modalit� del cursore)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
'quando si muove il mouse su un determinato oggetto
'Button � il numero del pulsante
'Shift � se � premuto il tasto shift durante il click
'x e y sono le coordinate del mouse nel momento del click
Dim Frase As String
Frase = "il tasto premuto � il numero " & Button & vbCrLf
Frase = Frase & "il stato Shift " & IIf(Shift <> 0, "� stato premuto", "non
� stato premuto") & vbCrLf
Frase = Frase & "le coordinate sono " & X & ":" & Y
MsgBox Frase
'Me.MouseIcon = LoadPicture("Percorso dell'immagine da visualizzare")
'Me.MousePointer = costante '(cambia la modalit� del cursore)
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)
'quando si rilascia un tasto del mouse
'Button � il numero del pulsante
'Shift � se � premuto il tasto shift durante il click
'x e y sono le coordinate del mouse nel momento del click
Dim Frase As String
Frase = "il tasto premuto � il numero " & Button & vbCrLf
Frase = Frase & "il stato Shift " & IIf(Shift <> 0, "� stato premuto", "non
� stato premuto") & vbCrLf
Frase = Frase & "le coordinate sono " & X & ":" & Y
MsgBox Frase
'Me.MouseIcon = LoadPicture("Percorso dell'immagine da visualizzare")
'Me.MousePointer = costante '(cambia la modalit� del cursore)
End Sub

Copia ed incolla su un form, ti consiglio di copiare una sub per volta per
poi cancellarla e controllare un'altra, altrimenti i messaggi ti arrivano ad
ogni movimento e diventi matto :D

Cerberus
www.cerberus.htmx.it