Question

vb编程时的一个问题！如下！求大神（附代码）

运行后窗体打开用户名自己出现"toshiba",窗体中按钮、文本框不能用鼠标点点了窗体就消失！但用回车可以正常运行！代码如下：

Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = Left$(sBuffer, lSize)
Else
txtUserName.Text = vbNullString
End If
End Sub Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
'ToDo: create test for correct password
'check for correct password

UserName = ""
If Trim(txtUserName.Text = "") Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
txtSQL = "select * from user_Info where userID = '" & txtUserName.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK = True
mrc.Close
Me.Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
End If

miCount = miCount + 1
If miCount = 3 Then
Me.Hide
End If
Exit Sub
End Sub

Answer 1

Me.Hide
这里可能有问题......
首先你要确定这个Me代表是谁，可以换成具体的对象名称
例如 form1.hide

追问

嗯，已经解决了！但还是谢谢你！

Answer 2

Call GetUserName(sBuffer, lSize)
此句已经得出了用户名,并赋值到了用户户框里..你的电脑用户名就是TOSHIBA...所以....
你应该不要这一句的.

追问

是不见了！但还是不能用鼠标点击文本框和按钮一点窗体就消失了！能不能麻烦你说下！在有的人的电脑上就不会这样！

Answer 3

额，能解释下“OK”是神马吗？就看到两句OK=True,OK=False，继没看到你声明，也没看到你用，没咋懂