Ciao a tutti!
Vorrei sapere se è possibile dare associare a un bottone un tato funzionale.
es se schiaccio F3 mi fa la funzione associata al commandbutton.
E' possibile??
Grazie a tutti
Sara
Ciao a tutti!
Vorrei sapere se è possibile dare associare a un bottone un tato funzionale.
es se schiaccio F3 mi fa la funzione associata al commandbutton.
E' possibile??
Grazie a tutti
Sara
Grazie
Sara
www.tsnavigliana.it
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then Command1_Click ()
prude il dito, lui sdraiato
ha giocato a guardie e ladri col ladro sbagliato
mi da un errore sice che è previsto un uguale!
Grazie
Sara
www.tsnavigliana.it
Originariamente inviato da GudFella
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then Command1_Click ()
Prova cosìcodice:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF3 Then Command1.value = true End if
![]()
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then Command1_Click
senza parentesi
prude il dito, lui sdraiato
ha giocato a guardie e ladri col ladro sbagliato
no, non funziona.
appena carico il Formn vorrei che cliccando su F3 mi eseguisse dei controlli ma come devo fare?
Grazie
Sara
www.tsnavigliana.it
non ti funzionaPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then Command1_Click
o ti restituisce un errore?
prude il dito, lui sdraiato
ha giocato a guardie e ladri col ladro sbagliato
non ti funziona perchè il cursor è su un oggetto della form....
quindi l'evento keydown che viene richiamato in questo caso non è quello della form ma dell'oggetto....
...e quando meno te lo aspetti potrebbe capitare qualcosa di bello, di più importante di quello che avevi programmato...
allora nel tuo bel form c devi copiare il seguente codice
se primii F3 in questo csaao appare una msg box provalo e capiraicodice:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF3 Then MsgBox "cizo" End If End Sub