Minipupi
29 de Marzo del 2005

¿ Que hay que hacer, para que una ves insertado un command button y poniendole por ejemplo un número en la propiedad captión, actue el comand cuando pulsamos ese número en el teclado?

delarioja
29 de Marzo del 2005

O eso(Alt_). O interceptando las pulsaciones con el evento keypress y poniendo codigo segun la tecla pulsada. Tendras que utilizar la propiedad del Form.Keypreview.
Un saludo.

tumama
29 de Marzo del 2005

UN POCO TARDE, PERO SIRVE, POR SI AUN ME ESTABAS ESPERANDO

Option Explicit

Private Sub Command1_Click()
MsgBox "click 1"
End Sub

Private Sub Command2_Click()
MsgBox "click 2"
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKey1 Or KeyCode = vbKeyNumpad1 Then
Command1_Click
Else
If KeyCode = vbKey2 Or KeyCode = vbKeyNumpad2 Then
Command2_Click
End If
End If
End Sub

Private Sub Form_Load()
Form1.KeyPreview = True
End Sub

john vega
29 de Marzo del 2005

kiero k pongan en la pagina los metodos de un command button de un text box y de un formulario

Mariano
29 de Marzo del 2005

NO es lo más normal lo que quieres hacer, pero lo que se me ocurre es que uses &nº en el caption y al pulsar Alt+nº es como si hicieras click en él.
Saludos