学别人整了个异地发布,还是不清楚怎么用。
Sub txtSID_KeyPress(KeyAscii As Integer)
If ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
Else
KeyAscii = 0
End If
End Sub
三、然后把姓名,班主任名设置成输入英文字母或汉字。
Private Sub txtName_KeyPress(KeyAscii As Integer)
If (KeyAscii >= -20319 And KeyAscii <= -3652) Or KeyAscii = 8 Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Then
Else
KeyAscii = 0
End If
End Sub
四、去掉myflexgrid控件空白行
五、复选框
优化复选框选定后,所属text控件可用,否则不可用
选定后,不能再选定其他复选框。
六、令comboBox不能输入,只能选择
这个其实很简单就是将style设置为DropDownList
不过特定的时候回出现style的组合问题,这个会继续解决。
评论