Private Sub txtTimes_KeyPress(KeyAscii As Integer)
KeyAscii = KeyOnlyNumber(KeyAscii)
End Sub
' 撰寫人:Devil(璉璉) E-Mail: qvb3377@ms5.hinet.net 僅供學術測試使用,引用請註明原出處
' 修改人:Edward 2000/01/12,僅允許數目字,方向鍵與倒退鍵
'--------------------------------------------------------------------------------------
Public Function KeyOnlyNumber(ByVal KeyAscii As Integer) As Integer
Select Case KeyAscii
  Case 48 To 57 ' 0~9
  Case Is = 8, 13 ' 不變
  Case Else
    KeyAscii = 0
  End Select
  KeyOnlyNumber = KeyAscii
End Function

    全站熱搜

    vbqa 發表在 痞客邦 留言(3) 人氣()