做 了一个密码认证窗口,如果密码输入正确则关闭当前窗口,打开另一个窗口,,,现在输入密码正确后,第一个窗口还是那里灰色的..是怎么回事.上图...
此主题相关图片如下:qq截图20120921113345.png

此主题相关图片如下:qq截图20120921113417.png

以上登陆按钮代码:
Dim pas As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim pd As String
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText="select 列值 from {系统设置} where 列名='密码'"
pd=cmd.ExecuteScalar
If pas.value = pd Then
MessageBox.Show("欢迎使用任务记录系统","登陆成功",MessageBoxButtons.OK,MessageBoxIcon.Information)
Forms("登陆密码").close
Forms("主窗口").open
Else
If vars("cont")>0 Then
MessageBox.Show("您输入的密码不正确,请重新输入!您还有" & vars("cont") & "次机会!","提示")
vars("cont")=vars("cont")-1
Else
MessageBox.Show("对不起,您输入的密码错误次数已经达到3次,系统将自动退出","提示信息",MessageBoxButtons.OK,MessageBoxIcon.Error)
syscmd.project.Exit()
End If
End If