Thursday 26 February 2015

VB 6.0 Tutorial

Numeric Text Box in VB6.0

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
      Case vbKey0 To vbKey9
      Case vbKeyBack, vbKeyClear, vbKeyDelete
      Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab
      Case Else
        KeyAscii = 0
        Beep
    End Select
End Sub

2 comments: