Question

VB如何定义全局变量

VB书上的代码，在第五行突然出现了全局变量strUserName。具体描述是：frmUserEdit窗体的用户名txtUserName来自于登录用户名，即全局变量strUserName.
我这里的问题是，这个全局变量不会定义。调试就一直出错。

长一点的代码：
Private Sub Form_Load()
'如果是普通用户，则不能修改用户名，只能修改密码
If Not AddEdit Then
If lstUserName <> "admin" Then
textUserName.Text = strUserName
textUserName.BackColor = &H8000000F
textName.Enable = False
Else
textUserName.Text = Form2.lstUserName.BoundText
End If
Adodc1.RecordSource = "SELECT*FROM 用户 WHERE 用户名='" & Trim(txtUserName) & "'"
Adodc1.Refresh
End If
End Sub

我觉得应该没有太大看其他部分的必要吧，如果需要待会儿可以追加。

Answer 1

窗体级的全局变量在当前窗体所有代码的最上面进行定义，工程级的全局变量则在通用模块中定义。如果你的登录是通过一个专门的登录窗口来完成的，那么这个变量就应该是工程级的全局变量（可以在不同的窗口间互相通用）。当然，光定义是没用的，还需要在登录后对这个变量进行赋值。你的代码如果是书上抄的，那么书上应该都有的。

Answer 2

添加一个模块，在模块中定义全局变量
Public strUserName As String