VB怎么实现用代码改变启动窗体?
有两个窗体,From1和From2,在From1里有个Text1,还有个Command1,我想当Text1的Text为“芝麻开门”时,点击Command1,启动窗体就变成...
有两个窗体,From1和From2,在From1里有个Text1,还有个Command1,我想当Text1的Text为“芝麻开门”时,点击Command1,启动窗体就变成From2了,怎么弄? (我这是注册用的,注册码是“芝麻开门”,点后当然就不用启动注册的界面了,所以要改变启动窗体)
不是打开窗体啊,时默认的启动窗体是From1,我想通过代码来把默认启动窗体改为From2!啊 展开
不是打开窗体啊,时默认的启动窗体是From1,我想通过代码来把默认启动窗体改为From2!啊 展开
6个回答
展开全部
把工程属性中的启动窗体改为sub main(),新建一个模块,写入:
Public Sub main()
x = Val(InputBox("你启动哪个窗体?"橡敬 & vbCrLf & "第一个窗体缺隐:1" & vbCrLf & "第二个窗梁扮慎体:2"))
Select Case x
Case 1
Load Form1
Form1.Show
Case 2
Load Form2
Form2.Show
End Select
End Sub
Public Sub main()
x = Val(InputBox("你启动哪个窗体?"橡敬 & vbCrLf & "第一个窗体缺隐:1" & vbCrLf & "第二个窗梁扮慎体:2"))
Select Case x
Case 1
Load Form1
Form1.Show
Case 2
Load Form2
Form2.Show
End Select
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
首先要把你注册的注册码保存在某个文件中
然后在运行时首先判断改注册文银茄租件是不存在并正确
启动纳颂窗体设置为form2或者form1都可以
按照form2举个例子
先进行判断注册码,此时form2为hide不要显示窗锋兆体
判断完成后,如果未注册现实form1
如果已经注册再将form2显示show
然后在运行时首先判断改注册文银茄租件是不存在并正确
启动纳颂窗体设置为form2或者form1都可以
按照form2举个例子
先进行判断注册码,此时form2为hide不要显示窗锋兆体
判断完成后,如果未注册现实form1
如果已经注册再将form2显示show
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
If text1.Text = "芝麻开门"禅丛 Then
form2.Show
Unload Me
Else
MsgBox "请检查验或世证码!衫袭肢"
End If
End Sub
If text1.Text = "芝麻开门"禅丛 Then
form2.Show
Unload Me
Else
MsgBox "请检查验或世证码!衫袭肢"
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
请使用Sub Main启动程序,判断状态然后决定启动窗体。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询