VB怎么实现用代码改变启动窗体？

来源：百度知道 编辑：UC知道 时间：2024/05/15 14:06:00
有两个窗体，From1和From2，在From1里有个Text1，还有个Command1，我想当Text1的Text为“芝麻开门”时，点击Command1，启动窗体就变成From2了，怎么弄？ （我这是注册用的，注册码是“芝麻开门”，点后当然就不用启动注册的界面了，所以要改变启动窗体）
不是打开窗体啊，时默认的启动窗体是From1，我想通过代码来把默认启动窗体改为From2！啊

Private Sub Command1_Click()
If text1.Text = "芝麻开门" Then
form2.Show
Unload Me
Else
MsgBox "请检查验证码！"
End If
End Sub

把工程属性中的启动窗体改为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

首先要把你注册的注册码保存在某个文件中
然后在运行时首先判断改注册文件是不存在并正确
启动窗体设置为form2或者form1都可以
按照form2举个例子
先进行判断注册码，此时form2为hide不要显示窗体
判断完成后，如果未注册现实form1
如果已经注册再将form2显示show

在command1_click中写语句
form2.show
就可以打开窗体二。
不知道楼主是什么意思。你的意思是执行程序后执行的第一个窗体就是form2，还是程序执行的第一个窗体是form1。然后在form1中打开form2
。。
如果想执行程序后执行的第一个窗体是form2的话。操作是：
点击工程菜单－－工程属性－－通用选项卡－启动对象改名form2就可以了

请使用Sub Main启动程序，判断状态然后决定启动窗体。

Form2.show