Newsgroup: it.comp.lang.visual-basic
Titolo: command buttons????

ciao a tutti
avrei la necessita di creare un'applicazione che ha 4 o 5 command buttons
che possono essere attivati cliccandoci sopra o
meglio ancora premendo da tastiera 1 per il 1° , 2 per il secondo ecc.
ho provato a mettere "&1" avendo il risultato del sottolineato ma non
funziona
esiste un modo per farlo oppure no
andrebbe bene anche qualsiasi altro controllo purche svolga questa funzione
grazie a tutti
Marco G.

 esiste un modo per farlo oppure no
Evento KeyDown, o KeyPress, del form, attivando KeyPreview del form stesso.
Dentro all'evento guardi quale tasto è stato premuto e chiami l'evento click
del commandbutton relativo.
Ciao
Alberto

 
I shortcut funzionano premendo ALT contemporaneamente al tasto da te 
definito ...
Altrimenti devi utilizzare il suggerimento dell'altro post ...
ciao
		maxx

"Massimo"
 > I shortcut funzionano premendo ALT contemporaneamente al tasto da te
 > definito ...
Siccome sarei interessato anche io e proprio niubbo niubbo
avresti un esempio pratico ?
Facciamo che ho un form con 3 Command
1 notepad 2 wordpad 3 clipboard
Come faccio se premendo w ( solo w senza ALT) mi si apra wordpad
Per il momento ho messo una toppa con un programma esterno
che mi fa' {right}{right}{right}{enter}
Grazie
-
Fosco

 funziona
Ma stai provando a sviluppare un poker? :p
Secondo me si
--
"La matematica è l'alfabeto con il quale DIO ha scritto l'Universo"
(G. Galilei)

"Marco G."
Ne avevo bisogno anche io e martellando un po'
di qua' e un po' di la' e' uscito questo che ....
( c'e ancora da raffinare)
qui i tasti coinvolti sono c  d  f  e puoi modificare con i tuoi
Private Sub Command1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 99 Then Command2_Click
     If KeyAscii = 100 Then Command3_Click
      If KeyAscii = 102 Then Command4_Click
End Sub
Private Sub Command2_Click()
Shell "notepad", vbNormalFocus
End Sub
Private Sub Command2_KeyPress(KeyAscii As Integer)
Shell "notepad", vbNormalFocus
End Sub
Private Sub Command3_Click()
 MsgBox "Fatto"
End Sub
Private Sub Command3_KeyPress(KeyAscii As Integer)
MsgBox "Fatto"
End Sub
Private Sub Command4_Click()
Shell "calc", vbNormalFocus
End Sub
Private Sub Command4_KeyPress(KeyAscii As Integer)
Shell "calc", vbNormalFocus
End Sub
Private Sub Form_Load()
End Sub
--
Fosco

 Come faccio se premendo w ( solo w senza ALT) mi si apra wordpad
allora 1° capire cosa si deve fare 2° farlo ^_^
1= dobbiamo fregarcene dei bottoni e intercettare le pressioni dei tasti sul
nostro programma
2= allora l'evento desiderato si chiama keypress e lo dobbiamo abbinare alla
form cosicche' ognivolta che la nostra form e' attiva e viene premuto un
tasto essa viene intercettata e ci dia la possibilita' di usarlo
non ho VB a portata di mano e evito di scrivere il codice
 perche' scriverei cavolate cmq in linea di massima e' cosi :
keiascii contiene il valore ascii del tasto premuto ,( F1 cerca tabella
ascii per i valori )
sub form_keydown .... (keyascii ...)
...
select case keiascii
case is 119 '(valore di "w" )
 call command1_click()
....
case else
 msgbox "comando sconosciuto"
....

"Gigio2K"
[cut]
Grazie questo focalizza
Ero gia' riuscito a fare un mezzo pasticcio da solo
ma certanente la tua spigazione aiutera' a sbrogliare
10 minuti dopo
Grazie ai tuoi  consigli o risolto con:
Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 110 Then Command1_Click
     If KeyAscii = 102 Then Command2_Click
  ecc ecc
--
Fosco

 Grazie ai tuoi  consigli o risolto
Guadagnavi due giorni se leggevi il mio post :-)))
Alberto

 Guadagnavi due giorni se leggevi il mio post :-)))
Difatti l'ho letto, e fatto il primo tentativo che ho postato qui, ma aveva
il difetto ( mea culpa ) di partire solo se la caption era su command1
Allora dal post di Gigio che diceva....
"allora 1° capire cosa si deve fare 2° farlo "
........ho 1° capito e 2 ° fatto :-))))
Comunque il tuo post e' stato fondamentale sopratutto per il KeyPreview...
Disse il saggio: chi va' piano va' sano e lontano.
(Narra la leggenda che si vide un giorno il saggio in****ato
nero quando perso l'autobus...ma questa e' un'altra storia.....)
--
Fosco