XBarboX (Member)
Guru
Messaggi: 945
Iscritto: 31/12/2008
|
Salve,
sto facendo uno screen saver e devo fare in modo che al muovere del mouse o di un click questo programma si chiuda. Io ci ero riuscito senza problemi così:
Codice sorgente - presumibilmente VB.NET |
'EVENTI CHIUSURA FORM Private Sub Form_Click() Unload Me End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Unload Me End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static count As Integer If count > 5 Then Unload Me Else count = count + 1 End If End Sub 'EVENTI CHIUSURA FORM
|
Però successivamente ho messo a schermo intero un'animazione flash, la quale copre ogni singolo pixel del form principale: infatti i metodi click e mouse move nn vanno più...
Come posso fare in modo che il questi eventi funzionino lo stesso anche se il form principale e coperto?
Grazie.
|
|
Iohoilpotere (Ex-Member)
Pro
Messaggi: 80
Iscritto: 13/09/2009
|
prova con l'evento click sull'animazione flash, ho detto una cazzata Se no ci son le API ma io nn le so usare, ti devi fare aiutare da qualcuno più bravo di me, e questo forum è pieno :P
Ultima modifica effettuata da Iohoilpotere il 02/02/2010 alle 19:37 |
|
XBarboX (Member)
Guru
Messaggi: 945
Iscritto: 31/12/2008
|
ci ho pensato anche io, ma il controllo falsh non esiste per questo componente.
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
devi controllare periodicamente la posizione del mouse e vedere se si sposta in questo modo...
Codice sorgente - presumibilmente VB.NET |
in un modulo: Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Type POINTAPI x As Long y As Long End Type in un timer (500 = interval): Dim Posizione As POINTAPI Dim PuntoX As Integer Dim PuntoY As Integer Dim OldX as integer Dim OldY as integer GetCursorPos Posizione OldX = Posizione.x OldY = Posizione.y Private Sub Timer1_Timer() GetCursorPos Posizione PuntoX = Posizione.x PuntoY = Posizione.y if (puntoX <> OldX) Or (puntoY <> OldY) then msgbox "Mouse spostato!" end if End Sub
|
|
|
Iohoilpotere (Ex-Member)
Pro
Messaggi: 80
Iscritto: 13/09/2009
|
GrG, mi sapresti linkare una guida alle API di winzoz?
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
|
|
Iohoilpotere (Ex-Member)
Pro
Messaggi: 80
Iscritto: 13/09/2009
|
una guida generica, con i nomi delle funzioni etc
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
|
|
XBarboX (Member)
Guru
Messaggi: 945
Iscritto: 31/12/2008
|
Cmq adesso funziona, grazie.
|
|