VB制作了一个简单的网页登陆器

private sub command1_click()if = "" then msgbox "用户名不能为空": exit sub

if = "" then msgbox "密码不能为空": exit sub

dim strformdata as stringend sub

方法如下。

在楼上，strformdata 变量在赋值后被扔到一边？

可以吗？ 好奇

你能解释一下吗？

更好的方法是使用对象。

支持 Cookie 的封装协议

1.首先，点击菜单栏中的工具按钮，如下图所示。

2.然后点击二级菜单选项按钮，如下图所示。

3. 此时会弹出选项对话框，并显示切换台格式选项卡，如下图所示。

4.然后您可以在此处更改字体大小，如下图所示。

5. 更改完成后，点击确定设置成功，如下图所示。

'主窗口是 form2，form1 是登录窗口，上面有 2 个文本和 1 个命令控件。

private sub command1_click()static n

if text1 = "119" thenif text2 = "911" thenunload me

elsemsgbox "密码错误！ "

text2 = ""

end if

elsemsgbox "用户名错误！ "

text1 = ""

end if

n = n + 1

if n = 3 then unload me '错误数：3 次结束子

放置一个登录按钮。

将项目的默认窗体设置为“登录窗体”。

登录按钮：if ="119" and = "911"然后是主表单。 show

unload me

end if

1.在桌面上，用鼠标左键双击程序，打开VB编辑好友程序，在左侧工具栏上点击 [标签] 按钮，在form1窗口上画出两个标签，写下文字的描述。 在此处输入用户名和密码，如下图所示。

2.然后，根据窗口的大小，如果觉得文字较小，可以在标签属性窗口上修改字体属性值，点击其选择按钮更改字体大小，如下图所示。

3.然后，在弹出的字体对话框中，选择四点字体的大小，点击 [确定] 按钮，可以看到form1窗口中用户名的字体变大了。 密码的字体大小也以相同的方式完成，如下图所示。

4.然后，在程序左侧的工具栏上，点击 [文本框] 按钮，在form1窗口绘制两个文本框，在文本框属性面板上，修改文本的值以清除它，如下图所示。

5.然后，在程序的左侧工具栏上，单击 [命令按钮] 按钮，在其属性面板中的form1窗口上绘制两个命令按钮，并将标题的值更改为OK。 另一个被取消，如下图所示。

6.最后，在程序左侧的工具栏上，点击【图片】按钮，在form1窗口画出两个相框，修改两个属性值，如图所示，选择两个图标后，重新布局猜测更好，点击运行，就会出现登录窗口，如下图所示。

1.新建一个标准项目，在表单中添加两个表单，使用默认名称（默认可以自行更改），将第一个表单的 caption 属性改为 “user login”，将第二个窗口的 caption 属性改为 “” 空格，在第一个窗口中添加两个标签控件，并将名称更改为“username：“”和“password”（这里在右边属性表中添加“*”边框 passwordchar 并分别选择 3，在两个命令框空间中，标题属性分别更改为 “login” 和 “logout”

主程序已添加，此处**在**中。

2.在第二个窗口中增加两个标签和一个commandbox控件，并将标签的标题属性改为“用户登录成功，欢迎使用”、“声明：纯个人爱好和学习，请勿用于商业用途”; commandboxe 控件的 caption 属性已更改为“exit”，主要在 ** 中。

3.点击菜单栏“开始”，输入“用户名”和“密码”，就可以登录了，登录界面就是这样做的，很简单，希望大家多弄清楚，开发一个更好的程序。