怎么在工具栏上制作类似Windows写字板的字体字号下拉列表框？[local]3[/local][local]7[/local]

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

.net 我不会

combo

然后怎么办？

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

不行，放不了

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

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

 

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编辑过]