我想做个东西,学VB的请进来帮下我
就是说,我想做个日期的,用3个TEXT做,怎样能实现第一TEXT输入完年份4个数字之后光标自动跳到第二个TEXT填月份呢?
另外,怎样能实现只能在TEXT里填数字呢?
谢谢各位!!
参考答案:Private Sub Text1_Change()
If Len(Text1.Text) = 4 Then Text2.SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub