Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Private Sub Text18_KeyPress(KeyAscii As Integer) ' MsgBox KeyAscii ' KeyAscii = Asc(UCase$(Chr$(KeyAscii))) Call Check_Numeric_Multiply(KeyAscii) If KeyAscii = 13 Then KeyAscii = 0 End Sub Public Sub Check_Numeric_Multiply(ByRef code As Integer) Select Case code Case 13 Case 120, 88 ' This is a x and X Case 48 To 57 ' This is a digit. Case Else ' Reject any other key. code = 0 ' Reject any other key. End Select End Sub
Join the community of 500,000 technology professionals and ask your questions.