VB菜单栏,想点了菜单栏的某个按钮,然后转到另一个form,求代码

比如说:本页面是form1,转到form2
还有form可不可以用其它做过的form,怎么加载进去

假设form1上有个按钮Command1,按下按钮后,form1消失,form2显示,代码如下:
Private Sub Command1_Click()

unload form1 '卸载form1
load form2 '加载form2(注意这里只加载了,还没能显示出来,需要下一个语句来显示)
form2.show '显示form2
End Sub

如果只是希望点击按钮后,原来的form1仍在,将form2显示出来,并且获得焦点,代码如下:
Private Sub Command1_Click()
load form2 '加载form2(注意这里只加载了,还没能显示出来,需要下一个语句来显示)

form2.show '显示form2
form2.Setfocus 'form2获得焦点,会显示在屏幕的最前面
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-04-01
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
M_zonghe_Click‘这是菜单事件的名字
Case 2
M_jifen_Click‘这是菜单事件的名字
End Select
End Sub

Private Sub M_zonghe_Click()’菜单点击的时候显示窗体
Form2.Show
End Sub
Private Sub M_jifen_Click()’菜单点击的时候显示窗体
Form3.Show
End Sub本回答被网友采纳
第2个回答  2013-04-01
假设您是在form1里面点击command1然后就跳到form2那么代码就是。在command1里面写入form2.show。有什么问题可以追问我,如果没有请给我满意答案,谢谢。

VB怎样设置点击一个按钮后弹出另一个窗口
首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为:Private Sub Command1_Click()Form2.Show\/\/用show方法加载并且显示名为Form2的窗体 End Sub show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。

如何写VB代码实现“按下按钮后弹出另一个窗口”的功能?
form2.left=form1.left-form2.width '计算窗体2的水平位置 窗体2的左辺位置=窗体1的左辺减掉窗体2的宽度 form2.top=form1.top '窗体2和窗体1的top一样。(显示器顶部到窗体标题栏的距离一样)移动时同时移动就是用Timer控制吧、如果窗体2可见就运行上面同歩代码(对窗体2的left和Top进行时...

VB怎样设置点击一个按钮后弹出另一个窗口
要新建一个窗口 form2在那个按钮上双击,然后输入Private Sub command1_click1()form2.Show End Sub就可以了

VB两个列表框,选中的项目移动到另一个列表框的代码是什么?
VB有两个列表框,假设VB列表框的左列表为List1,右列表为List2,代码如下:Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem (Selected)End SubPrivate Sub Command2_Click()List1.AddItem List2.TextList2.RemoveItem (Selected)End SubPrivate Sub Form_Load()Command1.Capti...

vb界面中按一个按钮就到下一个界面的代码这么写
也可用picturebox或frame来控制界面,picture(1).visible=true picture(0).visible=false 以此类推 毕竟用单窗体比较方便 具体思路就是显示一个界面,隐藏一个界面

vb 单击一个按钮 列表框中内容全部到另个列表框
希望下面代码能完成你要的效果.如果楼主还不能满意的话...请再说明白一点...'需要控件:list1,list2,command1 Private Sub Command1_Click()For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i)Next i End Sub Private Sub Form_Load()List1.AddItem "北京"List1.AddItem...

vb中怎么让按钮按下去之后跳到另一个页面
在工程分支那点右键添加1个form.比如是form2 按钮命令就输入:form2.show 如果想同时关了当前窗体则再输入一句:unload me

VB窗体 单选按钮,将form1单选所选数据传输到另一个窗口form2
方法1:me.tag="数据"form2.show (是否1,1的话不允许下层窗体被操作,但是部分功能被限制,比如右键菜单等)(form2).Text1.text=form1.tag 解释:Tag是一个控件的附加数据,几乎所有控件包括窗体都有这一个附加数据,他可以理解为全局变量。方法2:在一个类模块中,定义个全局变量 Public FrmS as...

在VB中如果在窗体form1上有个按钮直接转到窗体form2
在窗体form1上双击你设置的那个按钮(假设是command1),然后在弹出的代码窗口中编写如下代码:form1.hide form2.show 就行了,下面是完整的:privat sub command1_click()form1.hide form2.show end sub 嘿嘿,祝你编的成功,这个用法通常出现在比如编辑多窗口应用程序中,如图片浏览器~~~就看你是...

vb里一个窗体中的命令按钮 按下去 会执行另外一个窗体中的命令按钮的...
1)在当前窗口按钮的Click事件中对执行窗体的按钮的Value 属性赋值True事项。Value 属性,CommandButton 控件-返回或设置指示该按钮是否可选的值;在设计时不可用。Private Sub Command1_Click() Form2.Command1.Value = TrueEnd Sub2)VB中只需在另一窗体添加一个Timer控件,在当前窗体呼唤该窗体的...

相似回答