作者Mitnick (Mitnick)
看板Visual_Basic
标题Re: [VBA ]新手发问,如何做一个简单的TextBox防呆?
时间Sun Aug 6 22:15:02 2006
※ 引述《kaohfun (KJF)》之铭言：
: 我想做一个TextBox，里面只能让人输入数值，
: 但如果有人输入文字时，执行时就会跳出讯息方块"请数入整数"
: 目前我是在CommandButton里输入
: Private Sub Button_Click()
: Dim N As Integer
: N = Text1.Text
: If........的部份就不知道怎麽写了
: MsgBox(请数入整数)
: End If
: End Sub
: 谢谢指教m(_ _)m~
Private Sub Text1_KeyPress(KeyAscii As Integer)
If ((KeyAscii < &H30) Or (KeyAscii > &H39)) Then
KeyAscii = 0
End If
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 211.74.118.178