VB中怎么实现同一个窗体多个画面

VB中怎么实现同一个窗体多个画面,意思是:点击某个按钮后,当前窗体变成另外一个样子(画面),当前窗体的所有内容隐藏,装载另外一个画面

1,在窗体上,建立多个Frame控件。
2,在不同的Frame控件上建立多个不同的操作画面。
3,启动时,将除第一个Frame控件外,都隐藏。
4,点Frame控件上的切换时,隐藏自身,然后显示第2个Frame控件。
5,点第2个Frame控件上的切换时,隐藏自身,然后显示第3个Frame控件。
6,依次操作,即可达到这个要求。
温馨提示:内容为网友见解,仅供参考
第1个回答  2009-03-07
你可以添加多个PictureBox控件,在每个中间添加不同的文字和图片以及控件,然后将暂时不需要显示的那些PictureBox控件的Visible属性都设置为False,值留下其中一个为True的。当需要些换到另外画面时,可以在按钮单击事件中将当前画面所属的PictureBox控件的Visible设为False,而将需要展现的画面PictureBox控件的Visible属性sheweitrue。
第2个回答  推荐于2017-10-07
1.准备多个按钮和Frame或者Picture等容器 都弄成数组 如 cmd(0-5) 按钮
fram(0-5) Frame

2.每个Fram里面画上你需要的东西

3.按钮点击事件写代码
Private Sub cmd_Click(Index As Integer)
    Dim i As Integer
    For i = Fram.LBound To Fram.UBound
        If i = Index Then
            Fram(i).Visible = True
        Else
            Fram(i).Visible = False
        End If
    Next
End Sub本回答被提问者采纳
第3个回答  2019-02-05
1.准备多个按钮和Frame或者Picture等容器
都弄成数组

cmd(0-5)
按钮
fram(0-5)
Frame
2.每个Fram里面画上你需要的东西
3.按钮点击事件写代码
Private
Sub
cmd_Click(Index
As
Integer)
Dim
i
As
Integer
For
i
=
Fram.LBound
To
Fram.UBound
If
i
=
Index
Then
Fram(i).Visible
=
True
Else
Fram(i).Visible
=
False
End
If
Next
End
Sub

VB中怎么实现同一个窗体多个画面
1,在窗体上,建立多个Frame控件。2,在不同的Frame控件上建立多个不同的操作画面。3,启动时,将除第一个Frame控件外,都隐藏。4,点Frame控件上的切换时,隐藏自身,然后显示第2个Frame控件。5,点第2个Frame控件上的切换时,隐藏自身,然后显示第3个Frame控件。6,依次操作,即可达到这个要求。

vb 循环程序,同一个窗体多次show
回2题 Dim Myform As Form 修改里为.窗体级变量 :private Myform as form 'form 这个窗体改为你要显示的窗体名称.下面两句插入到你需要显示窗体的地方 Set Myform = New Form1 Myform.Show

vb中如何让一个窗口显示多个?
同一窗体在多个窗口里显示?假设这个窗口为form1 Dim form2,form3 as new form1 Form1.show Form2.show Form3.show 这样同一个Form就显示了多次。

vb中,用循环怎样向窗体加载多个图片
因为b是一个变量 放在引号里面就变成字符串了!~

在vb中如何在一个界面中开两个窗体
添加一个MDI窗体 两个vb窗体 中的属性:MDICHILD 改为TRUE 然后:在MDIFORMLOAD 事件中 添加 FORM1.SHOW FORM2.SHOW

VB怎么让一个窗体同时出来N个?
Dim frm As Form1 Set frm = New Form1 frm.Show

VB 一个窗体多个程序
具体命令不说了,你把button1的click命令设为当单击是form2的可见属性由false改为ture就行了。form2本身就在form1上,只不过原来是隐藏,这样就行了

在vb上如何在一个窗体的三个事件装入不同图片
LoadPicture("001.BMP")三个事件,那就三句嘛。复杂点就是把三个事件返回一个不同的值 然后 Select Case aaa case 1 Set Picture1.Picture = LoadPicture("001.BMP")case 2 Set Picture1.Picture = LoadPicture("002.BMP")case 3 Set Picture1.Picture = LoadPicture("003.BMP")End Select ...

vb 怎么同一个窗口多次打开
一. 把 busDIL 视为一个物件 二. 每次要启时 Dim S_busDIL As New busDIL S_busDIL.Show S_busDIL.ZOrder 三. 在 busDIL 中才带入 各物件的值 me.Text1(0).Text = CStr(iddh)me.Loadtextqd CStr(iddh)me.GysLoadbg CStr(iddh)参考资料:自己 ...

vb如何在一个窗体上用一个空格执行多个事件
Private Sub Command1_Click()'点击按钮1执行的事件End SubPrivate Sub Command2_Click()'点击按钮2执行的事件End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 32 Then '如果按了空格键 KeyAscii = 0 Command1_Click '执行按钮1事件 Command2_Click '执行按钮2事件End...

相似回答