Aiuto!

[Dante92]

Salve a tutti
sono un ragazzo che ha una conoscenza scolastica
del Visual Basic (sono in Terza superiore Informatica):D
Vorrei sapere se sia possibile scrivere in visual basic 2005
un programmino che, tenendo premuto il tasto sinistro del mouse,
simuli dei click consecutivi finchè il tasto non venga rilasciato.
Grazie anticipatamente.

[MarcoGG]

Intendi simulare per via programmatica il Click su elementi dell'interfaccia grafica del tuo programma VB, o a livello globale di sistema ?
In entrambi i casi è possibile. Nel primo caso decisamente più semplice che nel secondo...

[Dante92]

innanzitutto grazie della risposta
io avrei intenzione di realizzare un programma che tenendo premuto il tasto sinistro simuli ad esempio il doppio click a livello globale del sistema

Ah dimenticavo io conosco adeguatamente i costrutti if, while e for

[MarcoGG]

io avrei intenzione di realizzare un programma che tenendo premuto il tasto sinistro simuli ad esempio il doppio click a livello globale del sistema


Detto fatto, :) , personalmente la risolverei così :

Public Class Form1

Private Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

Private Const vKeyPSinistro = 1 'Click Sinistro

Private Const ticksPerDoubleClick As Integer = 10
Private timerTicks As Integer = 0

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If GetAsyncKeyState(vKeyPSinistro) Then
timerTicks += 1
If timerTicks = ticksPerDoubleClick Then 'Doppio Click

'&H2 = MouseDown sinistro
'&H4 = MouseUp sinistro

mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)
timerTicks = 0
End If
Else
timerTicks = 0
End If

End Sub

End Class

Nel mio esempio ho Timer1 con intervallo = 100.
ticksPerDoubleClick decide quanti scatti fa il Timer prima che una pressione continuata del tasto sinistro venga interpretata come doppio-click.
Con ticksPerDoubleClick = 10 il tempo necessario sarà appunto :
ticksPerDoubleClick * Timer1.Interval = 10 * 100 = 1 secondo.

Se mi posiziono ad es. su un file di testo sul desktop e tengo premuto il tasto sinistro per 1 sec, scateno il doppio click e il file .txt si apre... Prova. ;)

[Dante92]

Detto fatto, :) , personalmente la risolverei così :

Public Class Form1

Private Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

Private Const vKeyPSinistro = 1 'Click Sinistro

Private Const ticksPerDoubleClick As Integer = 10
Private timerTicks As Integer = 0

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If GetAsyncKeyState(vKeyPSinistro) Then
timerTicks += 1
If timerTicks = ticksPerDoubleClick Then 'Doppio Click

'&H2 = MouseDown sinistro
'&H4 = MouseUp sinistro

mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)
timerTicks = 0
End If
Else
timerTicks = 0
End If

End Sub

End Class

Nel mio esempio ho Timer1 con intervallo = 100.
ticksPerDoubleClick decide quanti scatti fa il Timer prima che una pressione continuata del tasto sinistro venga interpretata come doppio-click.
Con ticksPerDoubleClick = 10 il tempo necessario sarà appunto :
ticksPerDoubleClick * Timer1.Interval = 10 * 100 = 1 secondo.

Se mi posiziono ad es. su un file di testo sul desktop e tengo premuto il tasto sinistro per 1 sec, scateno il doppio click e il file .txt si apre... Prova. ;)

grazie per la tua gentilezza proverò subito :)

[Dante92]

avrei una domanda da porti
io per ora ho creato solo programmi per la contabilità e memorizzazione di dati.
queste istruzioni le devo inserire dopo aver clickato su un form dopo averlo creato alla voce applicazioi windows?

[Dante92]

grazie di tutto
ho risolto e funziona alla grande

[MarcoGG]

grazie di tutto
ho risolto e funziona alla grande

Ok. ;)
Solo per curiosità... A quale scopo serve ?