(1)sub:过程,不需要返回值;
function:函数,可以带返回值
(2)语法:
Sub SubName(参数1, 参数2,...)
....
End Sub
Function FunctionName(参数1, 参数2,...)
...
FunctionName = 返回值
End Function
2.如何让鼠标在控件上暂停时提示输入类型,如下图的效果
设置控件的属性,在ToolTipText中输入自己想要提示的文字
3.ASCII码限制输入符号
事件为:KeyPress
(1)限制特殊字符
If KeyAscii = 8 Then Exit Sub
If (KeyAscii >= 0 And KeyAscii <= 47) Or (KeyAscii >= 58 And KeyAscii <= 64) Or (KeyAscii >= 91 And KeyAscii <= 96) Or (KeyAscii >= 123 And KeyAscii <= 127) Then KeyAscii = 0
(2)只允许输入数字
If KeyAscii = 8 Then Exit Sub
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
(3)只允许输入文本
If (KeyAscii < 0) Or (KeyAscii >= 65 And KeyAscii <= 90) Or(KeyAscii >= 97 And KeyAscii <= 122) Or (KeyAscii = 8) Then
Else
MsgBox "请输入字母或汉字", vbOKOnly,"提示"
KeyAscii = 0
End If
4.MSFlexGrid控件中内容显示不完整
(1)一种是因为列宽不够,不能显示完全
用属性ColWidth可随意更改任意列的宽度
如:设置第三列列宽为3000:.ColWidth(3)= 2000
(2)一种是明明还空着很大的地方却任然显示不完整
这是因为空格的存在,用Trim去掉空格即可
如:Trim(mrc.fields(0))
5.根据条件从数据库中调用信息
(1)找到对应操作员的用户
txtSQL = "select * from User_Info where Level='" & "操作员" & "'"
Set mrc4 = executeSQL(txtSQL, MsgText)
For i = 1 To mrc4.RecordCount
comboUserId.AddItem mrc4.Fields(0)
mrc4.MoveNext
Next i
(2)根据给定信息调用对应信息
txtSQL = "select * from User_Info where userID='" & comboUserId.Text & "'"
Set mrc4 = executeSQL(txtSQL, MsgText)
While (mrc4.EOF = False)
txtUsername.Text = Trim(mrc4.Fields(3)) '从表User_Info中选择userID对应的名字显示
' comboUserName.AddItem mrc4!username
mrc4.MoveNext
Wend
mrc4.Close
6.设置下拉菜单不能输入
Private Sub comboUserName_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub