海之蓝与白云边价格:vb中 有几个窗体,第一个为登陆窗口,其他为使用窗口。怎样使我从其他窗口返回到第一窗口时不再需要登陆?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/20 17:09:55
另外如何控制textbox中只能输入中文。我的代码如下:
If TextBox1.Text = "abc" And TextBox2.Text = "123" Then MessageBox.Show("登陆成功!") MenuItem1.Enabled = True MenuItem2.Enabled = True
Else MessageBox.Show("请重新输入!") End If
麻烦你说清楚一点,如何引入一个变量,类型是什么?我试过用asc码不能够判断。

首先说一下,这种登陆代码几乎等于不存在,很轻松破掉。
可以加一个变量IsLoggedin
登陆之后,IsLoggedin=true,然后判断IsLoggedin的true or false来确定是否再次登陆

中文的ASCII码有范围的,你找一下,然后用ASC()获取ASCII码,看范围是不是中文的

在模块里定义一个boolean的全局变量,默认值为false,登录成功后改为true,判断这个变量为true里不用再登录。
只能输入中文,在keypress事件里判断,
if keyascii > 0 then keyascii = 0

定义变量类型为布尔型
引用变量就是在模块里放一个变量如:
public glBlnEntry as boolean
'boolean初始值为false

if glBlnEntry then '表示成功
.....写不用登录语句
else '表示第一次登录
'第一次登录成功后改glBlnEntry为true
glBlnEntry = true
....写登录语句
end if