Question

在vf中文本框只能输入0~100的数属性该如何设置

Answer 1

可让文本框只能接收数字：代码以下Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 8 And KeyAscii 13 Then Select Case Chr(KeyAscii) Case "0" To "9" Case Else KeyAscii = 0 End Select End IfEnd Sub至于数字范围（0⑴00），要写LostFocus()事件，代码以下：Private Sub Text1_LostFocus() Text1.Text = Trim(Text1.Text) v = Val(Text1.Text) If v 100 Then MsgBox ("输入超越范围！") Text1.SetFocus End IfEnd Sub 查看原帖>>

记得采纳啊