13518219792
病情分析：
永修网站制作公司哪家好，找成都创新互联！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设等网站项目制作，到程序开发，运营维护。成都创新互联于2013年开始到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。
你好，这种情况应该不是药物引起的，若是不适症状比较严重的话，可以到医院检查一下。
指导意见：
在服用药物或者保健品时，需要先看看它们的有效期，只要在有效期之内，一般不会出现比较严重的后果。
这是6.0的方法：
用
先在每个窗体上画一个“下一步”按钮
然后用
窗体名称.Show的方法
切换窗体
例如:
Form1.show
就可以激活Form1窗体
全局变量建议定义在模块(Moudle)中
建立模块的方法是单击菜单
【工程】|【添加模块】命令添加
然后用
Public 变量 As 类型
语句来定义全局变量
Public关键字也可以用Global代替
两者的作用一样
补充:比如流程是这样的（VB6.0版)
Form1-Form2-Form3-FormEnd
在每个窗体上画一个Command按钮
命名为cmdNext
然后在cmdNext_Click事件中添加代码：
Form1:
Private Sub cmdNext_Click()
Form2.show
unload me
end Sub
Form2:
Private Sub cmdNext_Click()
Form3.show
unload me
end Sub
Form3:
Private Sub cmdNext_Click()
FormEnd.show
unload me
end Sub
FormEnd:
Private Sub cmdNext_Click()
END
end Sub
其他的自己加上就行了
1、如果不用用户控件，那就用Panel，单击按钮时显示相应的Panel，隐藏不相关的Panel。
2、E死了：
ADD按钮的Click事件：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'要先新建一个Form2窗口，里面有一个文本输入框TextBox1和一个按钮Button1。
Form2.Show() '打开编辑窗口。
End Sub
Form2窗口的Button1按钮事件Click:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text "" Then '当TextBox1的类容不为空时。
Form1.ListView1.Items.Add(TextBox1.Text)'把TextBox1的类容添加到ListView中。
Me.Close()'添加完后关闭窗口。
Else ’Else，如果为空。
Dim k = MsgBox("类容为空！" Chr(10) "是否取消添加？", vbYesNo)'提醒用户是否取消向ListView添加类容。
If k = vbYes Then '用户点击确认时。
Me.Close() '取消操作。
End If
End If
End Sub
新建Form2只要点“项目”“添加Windows窗体”，在弹出的对话框中的“名称”写为“Form2.vb”，再“创建”，就行了。之后在里面添加相应的用户控件。
VB中有例子，你可以尝试自行研究。
方法：工程
－
添加窗体
－
选项对话框。这个选项对话框已经有相关的应用代码。
不过你可以尝试人性化的自定义。方法：
工程
－
部件
－
Microsoft
Windows
Common
Controls
*.*
点解TabStrip图标，添加到窗体。
右键点击TabStrip，选择属性，对TabStrip进行自定义。
点击选项卡，在标题栏填写类似新建、现存、最新等名字。如果需要添加选项卡，可以点击插入选项卡按钮
实现点击切换：我比较喜欢在窗体中添加Frame，点击选项卡则显示相应的Frame。例如：
Private
Sub
TabStripSite_Click()
'设置选项卡点击显示情况
For
Counter
=
To
TabStripSite.Tabs.Count
-
1
'从0开始计算判断所点击的选项卡
Select
Case
TabStripSite.SelectedItem.Caption
'判断选中的选项卡的标题栏（Caption）的值
Case
FraSiteBasic.Caption
FraSiteBasic.Visible
=
True
'设置Visible状态
FraSiteOwner.Visible
=
True
FraSiteLocal.Visible
=
False
FraSitePower.Visible
=
False
Case
FraSiteLocal.Caption
FraSiteBasic.Visible
=
False
FraSiteOwner.Visible
=
False
FraSiteLocal.Visible
=
True
FraSitePower.Visible
=
False
Case
FraSitePower.Caption
FraSiteBasic.Visible
=
False
FraSiteOwner.Visible
=
False
FraSiteLocal.Visible
=
False
FraSitePower.Visible
=
True
End
Select
Next
End
Sub
＝＝＝＝＝＝＝＝＝＝
希望能帮上一点忙
VB中的窗体是程序执行的窗口，也是其他控件的容器。一个VB工程中可能含有多个窗体，但只有一个窗体是主窗体，VB程序的运行默认从主窗体开始。可以在VB6.0 菜单栏“工程”最下方“工程属性”设置启动窗体。
VB是一种面向对象的事件驱动机制的程序设计语言。窗体的常用事件有Hide(隐藏船体）；Show（显示窗体）；Unload(将窗体从内存中卸载）；Load(将窗体加载到内存中）。
切换窗体比如当前是窗体1，需要切换到窗体2可以用以下代码：
Unload Form1 ‘从内存卸载Form1
Form2.Show '显示Form2，完成切换
如果不想把Form1从内存卸载，以后还要用到Form1，可以用以下代码：
Form1.Hide '隐藏Form1，但保留在内存中
Form2.Show '显示Form2,完成切换
