新人求教！关于mdi窗体工具栏 - 编程论坛

#2

xiangyue05102016-08-11 15:10

没有在VB中做过，在.net中很容易就实现了的。帮顶

#3

肇励影2016-08-11 16:14

回复 2楼 xiangyue0510

.net 我不会

#4

Artless2016-08-12 00:03

combo

#5

肇励影2016-08-12 00:25

回复 4楼 Artless

然后怎么办？

#6

风吹过b2016-08-12 17:50

直接把 combo 控件放到工具栏中。

#7

肇励影2016-08-13 01:13

回复 6楼风吹过b

不行，放不了

#8

风吹过b2016-08-14 19:20

试了一下，如果你需要在工具栏中放 combo 的话，有几种方案。
1、插入工具栏，然后手动放按钮和 combo ，在编辑界面排列好位置来。
   不支持插入了工具栏按钮，然后再中间加入 combo 下拉列表。             测试这种可行。
2、不放combo ，而是加入菜单，当点击这个按钮时，弹出一个选项菜单。      未测试，分析可行

3、自己做工具栏，放一个 PictureBox ，设置好靠边的属性后，按第一条样的自己放按钮和combo 。
   这种方案可以避免使用一个OCX。                                       可以，以前自己这样做过

#9

ZHRXJR2016-08-14 22:42

回复楼主肇励影

#10

ZHRXJR2016-08-14 22:43

程序代码：

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
CommonDialog1.ShowFont   '打开字体对话框
Case 2
CommonDialog1.ShowColor   '打开颜色对话框
End Select
Text1.FontSize = CommonDialog1.FontSize   '字体大小
Text1.FontName = CommonDialog1.FontName   '字体名称
Text1.FontBold = CommonDialog1.FontBold   '是否粗体
Text1.FontItalic = CommonDialog1.FontItalic   '是否斜体
Text1.FontUnderline = CommonDialog1.FontUnderline   '是否下划线
Text1.ForeColor = CommonDialog1.Color   '字体颜色
End Sub

[此贴子已经被作者于2016-8-14 22:48编辑过]