2、添加主菜单:
在Form中添加一个ActiveBar―>对其右单击选中快捷菜单中的属性―>弹出ActiveBar设计器界面(左侧的TreeView中显示当前ActiveBar的资源,右侧显示选中资源的属性->右单击资源栏中的Bands添加一个MenuBar为工程的主菜单项->右单击刚刚添加的主菜单添加若干Button作为主菜单的各个显示项。
其中:AlignToForm确定ActiveBar是否填充整个Form
3、添加一级菜单
右单击资源栏中的Bands添加一个PopUpMenu为工程的一级子菜单项->右单击一级子菜单添加若干Button作为一级子菜单的各个显示项。->将主菜单的相应显示项的SubBands值设置为此一级子菜单的Name值。
4、添加二级菜单
右单击资源栏中的Bands添加一个PopUpMenu为工程的二级子菜单项->右单击二级子菜单添加若干Button作为二级子菜单的各个显示项。->将一级子菜单的相应显示项的SubBands值设置为此二级子菜单的Name值。
5、实现菜单的Check选项
在程序相应的菜单中使用ABar.Bands("MenuTool").Tools.item("…").Checked = Not AABar.Bands("MenuTool").Tools.item("…").Checked来实现Check选项的乒乓。
6、工具栏
工具栏的实现方法与菜单相似
CaptionPostion――工具栏中的文字相对于图标的位置
Style――工具栏中显示文字或图标还是文字图标都显示
DisplayMoreToolsButton――Determines if the More Tools button is displayed on the band.
|
ActiveBand |
返回包含一个带有输入焦点按钮的带区(例如一个文本框或组合框)。数据类型为 Band。 |
ActiveBar |
|
Align |
返回/设置一个值,决定对象在窗体上的显示位置。数据类型为 Integer。 |
ActiveBar |
|
AlignToForm |
决定 ActiveBar 是否填充整个 SDI 窗体的客户区。数据类型为 Boolean。 |
ActiveBar |
|
AutoSizeChildren |
龆?ActiveBar 是否在 SDI 窗体上重新配置子控件。数据类型为 Boolean。 |
ActiveBar |
|
AutoUpdateStatusBar |
决定如果一个是当前的 ActiveBar 是否自动更新状态栏。数据类型为 Boolean。 |
ActiveBar |
|
ClientAreaHeight |
返回客户区的高度。数据类型为 Long。 |
ActiveBar |
|
ClientAreaLeft |
返回客户区的左边距。数据类型为 Long。 |
ActiveBar |
|
ClientAreaTop |
返回客户区的上边距。数据类型为 Long。 |
ActiveBar |
|
ClientAreaWidth |
返回客户区的宽度。数据类型为 Long。 |
ActiveBar |
|
ControlFont |
返回/设置组合框和文本框的字体。数据类型为 StdFont。 |
ActiveBar |
|
DisplayToolTips |
决定是否当用户悬停载按钮上方时显示工具提示。数据类型为 Boolean。 |
ActiveBar |
|
Font |
返回/设置显示在按钮上文字的字体。数据类型为 StdFont。 |
ActiveBar |
|
MenuAnimation |
设置 ActiveBar 菜单显示的样式。数据类型为 Integer。 |
ActiveBar |
|
MenuFontStyle |
决定菜单的字体是使用字体属性或者操作系统的设置。数据类型为 Integer。 |
ActiveBar |
|
PersonalizedMenus |
决定个性化(最近使用)菜单项的行为。数据类型为 Integer。 |
ActiveBar |
|
picture |
返回/设置工具栏的纹理图片。数据类型为 StdPicture。 |
ActiveBar |
|
ShadowColor |
返回/设置 3D 阴影颜色。数据类型为 Long。 |
ActiveBar |
|
ThreeDDarkShadow |
弹出式带区的 3D 阴影颜色。数据类型为 Long。 |
ActiveBar |
|
Tools |
返回在使用运行时自定义的一个按钮集合。数据类型为 Tool。 |
ActiveBar |
|
UserDefinedCustomization |
决定当用户在系统上下文菜单中单击“自定义”时是否使用默认自定义对话框。数据类型为 Boolean。 |
ActiveBar |
|
Caption |
一个显示在页、窗口标题和带区头柄区的字符串。数据类型为 String。 |
Band/Tool |
|
DisplayMoreToolsButton |
显示“更多按钮”按钮或仅仅只是一个指示器。数据类型为 Boolean。 |
Band |
|
Flags |
一个双精度值来定义带区的某一些属性。数据类型为 Double。 |
Band |
|
GrabHandleStyle |
如果要,表示带区头柄的的样式。数据类型为 Integer。 |
Band |
|
Tools |
返回带区上的按钮对象的集合。数据类型为 Tool。 |
Band |
|
Type |
表示带区的样式。数据类型为 Integer。 |
Band |
|
BackColor |
滑行页面的背景颜色。数据类型为 Long。 |
ChildBands |
|
ChildBandBackgroundStyle |
滑行页子带区的背景样式。数据类型为 Integer。 |
ChildBands |
|
ChildBandCaptionAlignment |
滑动页子带区的文字对齐样式。数据类型为 Integer。 |
ChildBands |
|
ApplyAll |
应用这个按钮的属性到所有与它有相同的编号的控件。 |
ActiveBar |
|
Customize |
在运行时开始自定义。 |
ActiveBar |
|
GetToolFromPosition |
设置一个屏幕位置,获得在这个位置上的带区或按钮。 |
ActiveBar |
|
GetBandFromPosition | ||
|
LoadLayoutChanges |
从一个字节数组中加载设计图信息。 |
ActiveBar |
|
LoadMenuUsageData |
加载菜单的使用数据。 |
ActiveBar |
|
PlaySound |
从一个文获系统声音播放声音。 |
ActiveBar |
|
RecalcLayout |
重新计算入坞和浮动的带区的设计图。 |
ActiveBar |
|
Refresh |
重绘所有的工具栏。 |
ActiveBar |
|
RegisterChildMenu |
注册一个带有 ActiveBar 的子菜单带区。 |
ActiveBar |
|
SaveLayoutChanges |
保存正确的设计图信息到一个字节数组中。 |
ActiveBar |
|
SaveMenuUsageData |
保存菜单使用数据。 |
ActiveBar |
|
GetToolIndex |
返回一个按钮的编号。 |
Band |
|
PopupMenu |
弹出菜单。 |
Band |
|
PopupMenuEx |
不考虑区域地显示弹出菜单。 |
Band |
|
Refresh |
重新绘制工具栏。 |
Band |
|
CBAddItem |
添加一项到组合框控件中。 |
Tool |
|
CBClear |
清除组合框中的内容。 |
Tool |
|
SetPictureMask |
设置按钮图片的蒙蔽色。 |
Tool |
|
BandClose |
当用户使用弹出菜单或浮动时关闭一个所选的带区时发生。 |
|
BandDock |
当带区入坞时发生。 |
|
BandMove |
当一个工具栏在屏幕被移动时发生。 |
|
BandOpen |
当用户用弹出菜单打开一个所选的带区时发生。 |
|
BandResize |
当带区被重新调整大小时发生。 |
|
BandUndock |
当带区出坞时发生。 |
|
ChildBandChange |
当一个子带区被单击时发生。 |
|
ComboDrop |
当用户单击组合框的下拉箭头时发生。 |
|
ComboSelChange |
当在组合框中当前的所选项被改变时发生。 |
|
CustomizeBegin |
开始自定义时发生。 |
|
CustomizeEnd |
自定义结束时发生。 |
|
Error |
当一个 ActiveBar 的内部的错误发生时发生。 |
|
MouseEnter |
当一个按钮移动到一个按钮的区域时发生。 |
|
MouseExit |
当指针从一个按钮区域移动出来时发生。 |
|
NewToolbar |
当用户按下在“自定义”对话框中的“新建工具栏”按钮时发生。 |
|
QueryUnload |
当一个应用程序被关闭时发生,用异于 0 的值设置取消来告诉 ActiveBar 释放关闭的窗体和控件。 |
|
Reset |
当从“自定义”对话框中按下“重新设置”按钮或者在 ActiveBar 控件上使用重新设置方法时发生。 |
|
TextChange |
当文本框或组合框中的文字改变时发生。 |
|
ToolClick |
当用户在一个按钮或选择菜单按下鼠标左键时发生。 |
|
ToolDblClick |
当双击工具栏中的按钮时发生。 |
最新相关文章
发表评论