一个超级菜鸟的两个问题:vb中如何实现单击按钮之后会响应出现第二个窗体。 vb中如何实现预设

答案:3 悬赏:70

解决时间 2021-02-02 05:20

提问者网友：无依无靠的距离
2021-02-02 01:59

密码。然后在文本框里填写密码，单击确定按钮，正确的话会出现下一个窗体。跟预设密码不一致，错误的话，会弹出一个错误的提示语。希望大神们在发代码的同时最好加上注释，并且讲解一下。本人是超级超级菜鸟！不过最关键的是代码要简单明了！小鸟感激不尽！谢谢！一共两个问题

最佳答案

二级知识专家网友：情战凌云蔡小葵
2021-02-02 03:12

很简单。打开VB,在窗体里放一个 Text 控件和 1个 Command 控件，添加一个Form,然后在Form1 的通用过程里声明一个变量，名称为 “password”,然后进行赋值（随便赋值），之后在Form1 的Command1_Click 事件里判断文本框Text1里的内容是不是密码，如果是就弹出 Form2,不是就弹出一个对话框，提示密码输入错误。这样就行了

'代码：
Const password = "123" '设置密码为 123
Private Sub Command1_Click()
If Text1.Text = password Then '如果密码正确
Form2.Show '弹出Form2
Else '如果密码错误
MsgBox "您输入的密码不正确，请重新输入！" '弹出错误提示对话框
End If
End Sub

全部回答

1楼网友：一起来看看吧
2021-02-02 04:57

Private Sub Command1_Click() If Text1.Text = "123456" Then '引号里边输入你想要设置的密码 Form2.Show Unload Me Else MsgBox "密码错误，请重新输入", vbOKCancel, "提示" End If End Sub Private Sub Form_Load() Text1.Text = "" End Sub

2楼网友：一池湖水
2021-02-02 04:00

嗯。可能你用惯e语言的缘故吧~

在窗体上放置两个按钮，打开代码窗口，复制以下代码：

private declare function setwindowpos lib "user32" (byval hwnd as long, byval hwndinsertafter as long, byval x as long, byval y as long, byval cx as long, byval cy as long, byval wflags as long) as long private const hwnd_topmost = -1 private const hwnd_notopmost = -2 private sub command1_click() setwindowpos me.hwnd, hwnd_topmost, 0, 0, 0, 0, 3 end sub private sub command2_click() setwindowpos me.hwnd, hwnd_notopmost, 0, 0, 0, 0, 3 end sub private sub form_load() command1.caption = "顶置" command2.caption = "正常" end sub

程序运行，就可以看到你想要的效果了。

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！