一:防止往下拉菜单输入:
Private Sub comboRelation2_KeyPress(KeyAscii As Integer) '防止输入字符
KeyAscii = 0 'keyAscii=0?表示:取消本次输入的字符
End Sub
二:定义一个检查文本框是否为空的函数:
在模块中设函数:
Public Function testtxt(txt As String) As Boolean '参数是txt,即文本框内容
If Trim(txt) = "" Then
testtxt = False
Else
testtxt = True
End If
End Function
调用函数判断是不是为空(不仅仅限用文本框)
If Not testtxt(Combouser.Text) Then
MsgBox "请选择用户级别!", vbOKOnly + vbExclamation, "提示"
Combouser.SetFocus
Exit Sub
End If
三:设置case1:
Case1:
With MSHFlexGrid1
.Rows = 1
.TextMatrix(0, 0) = "序列号"
.TextMatrix(0, 1) = "教师"
.TextMatrix(0, 2) = "级别"
.TextMatrix(0, 3) = "注册日期"
.TextMatrix(0, 4) = "注册时间"
.TextMatrix(0, 5) = "注销日期"
.TextMatrix(0, 6) = "注销时间"
.TextMatrix(0, 7) = "机器名"
.TextMatrix(0, 8) = "状态"
End With
在同一个事件下面直接调用:GoTo Case1
四:限制特殊字符输入:
在模块中定义这个函数:
Public Function IsNumber(KeyAscii As Integer) As Integer
Select Case KeyAscii
Case 48 To 57 '只能输入数字
Case 65 To 90 '只能输入大写字母
Case 97 To 122 '只能输入小写字母
Case 8 '只能输入退格
Case Else
KeyAscii = 0 '无效
End Select
If Len(txtID) >= 3 Then
txtID.Text = ""
KeyAscii = 0 '输入字符清零
MsgBox "输入字符位数过长", vbOKCancel, "提示"
End If
End Function
在窗体中调用函数:
Private Sub txtid_KeyPress(KeyAscii As Integer)
Call IsNumber(KeyAscii)
End Sub
不能输入特殊字符,也不能超过三个数。