vb中,在多窗体程序中,怎样在各个窗体间切换?

在vb界面的右侧，一般有个工程窗口，如果没有，请找到“视图”里的“工程资源管理器”，单击一下，在右上角就会显示出来。在这个窗口里你会看到有个工程字样的，前面可能有加号或减号，如果是加号时，就单击一下加号，如此把加号都变成减号即可，这样里面的多个窗体都会显示出来。

我们提供的服务有：网站制作、成都网站制作、微信公众号开发、网站优化、网站认证、密山ssl等。为近千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的密山网站制作公司

下面说怎么切换：想查看哪个窗体这时就单击那个窗体的图标（名称）就可以进行切换了。

我说的是具体的操作，不知道说的够不够具体！

VB NET窗体页面切换和另一个问题

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窗口切换 问题

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

＝＝＝＝＝＝＝＝＝＝

希望能帮上一点忙