在VB中怎样为工具栏上的按钮指定一个快捷菜单
1、在工具栏属性页的“按钮”页中,找到你要添加下拉菜单的按钮,例如是第一个按钮,属性页下面有“添加按钮菜单”,此时“索引”文本框可用,其值自动变为“1”。
2、添加代码方法只是把工具栏按钮单击事件做一下修改,将单击事件中的Button改为ButtonMenu这是工具栏按钮单击事件:Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)(1)使用“索引”Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)Select Case ButtonMenu.IndexCase 1……Case 2……End SelectEnd Sub(2)使用关键字,在属性页中,按钮菜单一栏也有“关键字”,设置相应唯一的关键字,则按以下代码Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)Select Case ButtonMenu.KeyCase 1……Case 2……End SelectEnd Sub
VB中如何实现点击不同的菜单,让窗体上的按钮与之相对应???
你的追问的实现也很简单啊,添加一个全局变量来标识是哪一章就可以了:Dim i As Integer '添加一个全局变量,用来记录用户按钮了哪个菜单Private Sub menu1_Click(Index As Integer)i = 3 '菜单“第3章”End SubPrivate Sub menu2_Click(Index As Integer)i = 4 '菜单“第4章”End SubPrivate Sub menu3_Click(Index As Integer)i = 5 '菜单“第5章”End Sub'其他菜单的代码如此类推Private Sub Command1_Click()Select Case iCase 3msgbox "第3章"'放第3章的题目内容Case 4msgbox "第4章"'放第4章的题目内容Case 5msgbox "第5章"'放第5章的题目内容'其他的章节如此类推End SelectEnd SubPrivate Sub Command2_Click()Select Case iCase 3msgbox "第3章"'放第3章的界面布局Case 4msgbox "第4章"'放第4章的界面布局Case 5msgbox "第5章"'放第5章的界面布局'其他的章节如此类推End SelectEnd Sub'其他按钮的代码如此类推=========================================================================不是很明白你的意思,你意思是这样吗:点击菜单“第3章”,就产生相当于点击了按钮“题目内容”的效果,点击菜单“第4章”,就产生相当于点击了按钮“界面布局”的效果,如此类推。
如果是的话,那么你在菜单的单击事件中,直接调用按钮的单击事件就可以。
例如:Private Sub Command1_Click()MsgBox "你按了按钮1"End SubPrivate Sub Command2_Click()Command1_ClickEnd Sub运行上面代码后,单击按钮2,会调用Command1的单击事件,也就是显示对话框"你按了按钮1" ========================================================================
怎么用VB控制其他软件?
这个我曾经也尝试过,不过没有成功,但是却有点效果...大致过程如下(记不太清了)首先获得酷狗进程的句柄,然后枚举酷狗窗体中的每个控件的句柄,然后对某个控件发消息....调试的时候成功的把播放中的歌曲取消了,但是这纯粹是误打误撞,似乎每次运行酷狗时控件的句柄都不一样...
VB工具条下拉按钮菜单
展开全部 假设form1上有个按钮Command1,按下按钮后,form1消失,form2显示,代码如下:Private Sub Command1_Click()unload form1 '卸载form1load form2 '加载form2(注意这里只加载了,还没能显示出来,需要下一个语句来显示)form2.show '显示form2End Sub如果只是希望点击按钮后,原来的form1仍在,将form2显示出来,并且获得焦点,代码如下:Private Sub Command1_Click()load form2 '加载form2(注意这里只加载了,还没能显示出来,需要下一个语句来显示)form2.show '显示form2form2.Setfocus 'form2获得焦点,会显示在屏幕的最前面End Sub...
VB中的工具栏按钮问题
假设工具栏 有 新建、打开、保存三个按钮,编写以下代码:tbToolBar_ButtonClick 是用来检测哪个按钮被按下的 Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)tbToolBar_ButtonClick'工具栏按钮代码Select Case Button.KeyCase "新建"CreateNewDocCase "打开"mnuOpen_ClickCase "保存"mnuSave_ClickEnd SelectEnd Sub
vb 激活其他应用程序中的按钮
用EnableWindow的api 前提是你必须获得该按钮所属窗口的句柄 再来因为禁用的按钮是无法直接获得句柄的,所以必须要使用EnumChildWindows来枚举窗口中所有控件来获取控件句柄 获得之后就用EnableWindow-----------------------------------句柄之类的知识不好说。
。
。
你可以看看windows原理,windows的任意一个看得见的东西都是用一个唯一的句柄控制的,所以要操纵他们,就要用句柄让然了,vb中很多地方都简化了,所以接触不到,只有在api中才会看到假如你学的是c之类,就会经常和句柄打交道了。
VB6,如何利用VB窗体中的按钮控制Excel中的按钮事件?
一定要先在VB中添加excel引用。
在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel 11.0 Object Library(EXCEL2003),然后选择"确定"。
表示在工程中要引用EXCEL类型库。
调用excel的工作表中的命令按钮,代码如下:Private Sub Command1_Click()Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.WorksheetDim FileName, SheetName As StringFileName = "e:\data.xls" '打开的工作簿路径名称SheetName = "sheet1" '命令按钮所在的工作表名Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件xlApp.Visible = True '设置EXCEL对象可见(或不可见)Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表'假设要调用的控件名称是CommandButton1xlSheet.Shapes("commandbutton1").DrawingObject.object.Value = True '单击控件xlBook.Close (True) '保存并关闭工作簿xlApp.Quit '结束EXCEL对象Set xlApp = Nothing '释放xlApp对象end sub
转载请注明出处51数据库 » vb控制其他软件菜单栏按钮