ارسال فوكوس به دكمه

[m4ever]

با سلام
مي خواهم در سورس نوشته شده ارسالي با كليك دكمه اينتر بر روي تكست باكس ؛ دكمه start كليك شود.
با تشكر

[Babak.Hassanpour]

این کل کدیه که باید اضافه کنید




Private Sub txttime1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdstart1_Click (1)
End If
End Sub
Private Sub txttime2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdstart2_Click (0)
End If
End Sub
Private Sub txttime3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdstart3_Click (0)
End If
End Sub
Private Sub txttime4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdstart4_Click (1)
End If
End Sub