VBA工具栏图标格式怎么改变？

fighter 发表于 2005-3-26 12:06:00

请问一下各位大侠，VBA工具栏图标格式怎么改变？

mccad 发表于 2005-3-26 21:57:00

图标还要改什么格式，想变成怎样？

houlinbo 发表于 2005-3-27 21:52:00

工具栏的图标知道怎样改变，但图标格式不知道怎样改变！

qinlong_01 发表于 2005-3-28 08:58:00

请问如何在菜单工具条上显示自己定义的图标啊？

lgc-ty 发表于 2005-3-30 15:15:00

Dim newToolBarSeparator As AcadToolbarItem Dim SmallBitmapName(42) As String Dim LargeBitmapName(42) As String Set MenuGroupObject = ThisDrawing.Application.MenuGroups.Item(0) Set ToolbarObject = MenuGroupObject.Toolbars.Add("测量菜单") Dim Popen As String Popen = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(13) Set ButtonObject(1) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "打开文件", "打开文件", Popen) Dim Psave As String Psave = Chr(3) + Chr(3) + Chr(95) + "qsave" + Chr(13) Set ButtonObject(2) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "保存文件", "保存文件", Psave) Dim Pprinter As String Pprinter = Chr(3) + Chr(3) + Chr(95) + "plot" + Chr(13) Set ButtonObject(3) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "打印文件", "打印文件", Pprinter) Dim Pcut As String Pcut = Chr(3) + Chr(3) + Chr(95) + "cutclip" + Chr(13) Set ButtonObject(4) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "剪切", "剪切", Pcut) Set newToolBarSeparator = ToolbarObject.AddSeparator(ToolbarObject.Count + 1) Dim pCopy As String pCopy = Chr(3) + Chr(3) + Chr(95) + "copyBase" + Chr(13) Set ButtonObject(5) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "带基点复制", "带基点复制", pCopy) Dim Ppaste As String Ppaste = Chr(3) + Chr(3) + Chr(95) + "pasteclip" + Chr(13) Set ButtonObject(6) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "粘贴", "粘贴", Ppaste) Dim Pbreak As String Pbreak = Chr(3) + Chr(3) + Chr(95) + "break" + Chr(13) Set ButtonObject(7) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "打断", "打断", Pbreak) Set newToolBarSeparator = ToolbarObject.AddSeparator(ToolbarObject.Count + 1) Dim Ptrim As String Ptrim = Chr(3) + Chr(3) + Chr(95) + "trim" + Chr(13) Set ButtonObject(8) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "截断", "截断", Ptrim) Dim Pextend As String Pextend = Chr(3) + Chr(3) + Chr(95) + "extend" + Chr(13) Set ButtonObject(9) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "延伸", "延伸", Pextend) Dim Pmove As String Pmove = Chr(3) + Chr(3) + Chr(95) + "move" + Chr(13) Set ButtonObject(10) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "移动", "移动", Pmove) SmallBitmapName(1) = "C:\Program Files\AutoCAD 2004\New Folder\POpen.BMP" SmallBitmapName(2) = "C:\Program Files\AutoCAD 2004\New Folder\Psave.BMP" SmallBitmapName(3) = "C:\Program Files\AutoCAD 2004\New Folder\Pprinter.BMP" SmallBitmapName(4) = "C:\Program Files\AutoCAD 2004\New Folder\Pcut.BMP" SmallBitmapName(5) = "C:\Program Files\AutoCAD 2004\New Folder\Pcopy.BMP" SmallBitmapName(6) = "C:\Program Files\AutoCAD 2004\New Folder\Ppaste.BMP" SmallBitmapName(7) = "C:\Program Files\AutoCAD 2004\New Folder\Pdd.BMP" SmallBitmapName(8) = "C:\Program Files\AutoCAD 2004\New Folder\Pcj.BMP" SmallBitmapName(9) = "C:\Program Files\AutoCAD 2004\New Folder\Pys.BMP" SmallBitmapName(10) = "C:\Program Files\AutoCAD 2004\New Folder\Pmove.BMP"

qinlong_01 发表于 2005-3-31 08:26:00

请问楼上的大侠：ButtonObject和SmallBitmapName是什么类型的变量（你怎么定义的）？其中ButtonObject(10) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "移动", "移动", Pmove) 最后一个变量Pmove可以是自定义的函数对像吧？？请指教！

页: [1]

明经CAD社区's Archiver

VBA工具栏图标格式怎么改变？