[RESSURECTED] Keypress and indicies

[ajames]

I am using this code:

Public Sub form_keypress(KeyAscii As Integer)
If KeyAscii = Chr(97) Then
Call englow_Click(11)
End Select
End Sub

and "englow" has the following code:

Private Sub englow_Click(Index As Integer)
Text1.Text = Text1.Text + englow(Index).Caption
End Sub

As you can see, there are more than one "englow" buttons. 49 of them in fact. When I press a button on my keyboard (say a, with the ascii value 97), I want it to call just a certain englow button. Is what i'm trying to do impossible, and i should change the names of the buttons, or is there a way around this?

Thanks in advance

[dglienna]

This works. I don't understand the problem:

Option Explicit
 
Private Sub Command1_Click(Index As Integer)
  MsgBox "a pressed"
  Text1.Text = Command1(Index).Caption
End Sub
 
Private Sub Form_Load()
  Text1.Text = ""
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = Asc("a") Then
    Command1_Click (0)
    KeyAscii = 0
  End If
End Sub

[brucevde]

First, this If statement will never be True

If KeyAscii = Chr(97)

Pass the Buttons' Index to the click event as shown by dglienna Or cause the button to be "clicked" using the Value property. This will fire the buttons click event with the proper index.

Public Sub form_keypress(KeyAscii As Integer)
   Select Case KeyAscii
        Case 97 'lowercase a
           englow(11).Value = True
        Case 98 'lowercase b
           englow(12).Value = True
   End Select
End Sub

[ajames]

I solved it with this:

Select Case KeyAscii
        Case 97
           Call englow_Click(11)
        Case 98
           Call englow_Click(5)
   End Select

Thanks

[ajames]

ok, I have a similar problem:

Public Sub form_keypress(KeyAscii As Integer)
Dim i As Integer
For i = 97 To 122
    If KeyAscii = Chr(i) Then
        Call low_Click(i)
    End If
Next
End Sub

Why wont it call low_click?

[dglienna]

Keyascii is a number, not a letter

If KeyAscii = i Then

[RhinoBull]

You know what I would do? I would set Index for each button that corresponds to actual ascii code (say upper case char) so you can use real time Keyascii value to call appropriate button's click. Let me know if you need more info on this.