Quantcast
Viewing latest article 6
Browse Latest Browse All 14

Handle Enter KeyPress

PrivateSub Input_KeyPress(ByVal eventSenderAs System.Object,ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs)Handles Tb1.KeyPress, Tb2.KeyPress

       Const CR AsShort = 13 ' Carriage return

       Static KeyAscii AsShort

       KeyAscii = Asc(eventArgs.KeyChar)

       If KeyAscii = CR Then"Do Whatever"

       eventArgs.KeyChar = Chr(KeyAscii)

       If KeyAscii = 0 Then eventArgs.Handled =True

   EndSub

But what is it that you are doing and want to happen with this that is not occurring?

Renee


Viewing latest article 6
Browse Latest Browse All 14

Trending Articles