工具条的创建过程

 首先,调用CToolBar::Create以创建工具条窗口,注意Create函数的参数是this指针,这是因为主框架窗口是工具条的父窗口。接着调用CToolbar::LoadToolBar(IDR_TOOLBAR1)以载入工具条资源。然后调用CToolBar::SetBarStyle指定工具条的风格,在调用该函数时先调用CToolBar::GetBarStyle取得工具条的风格,然后在原有风格的基础上又指定了CBRS_TOOLTIPS、 CBRS_FLYBY和CBRS_SIZE_DYNAMIC风格,这使得工具条可显示工具提示,并可以动态改变尺寸。接着调用CToolBar::EnableDocking(CBRS_ALIGN_ANY)使工具条是可以停泊的,但还需调用CFrameWnd::EnableDocking(CBRS_ALIGN_ANY),只有这样才能实现可停泊的工具条。最后调用CFrameWnd::DockControlBar以停泊工具条。

我们可以使用CFrameWnd类的成员函数ShowControlBar()来进行工具栏的显示和隐藏,它的原型如下:
void ShowControlBar( CControlBar* pBar, BOOL bShow, BOOL bDelay );
  其中,pBar用来指定要操作的控制条指针,bShow为TRUE时表示显示,否则表示隐藏,bDelay表示是否延迟显示或隐藏,当为FALSE时表示立即显示或隐藏。

CCmdUI类为

        ① CCmdUI类是专门用于交互对象的更新操作,其成员函数Enable()用来使交互对象有效(参数为TRUE)或无效(参数为FALSE),若不指定参数,使用默认的参数值TRUE。

  ② CCmdUI::SetCheck()用来设置交互对象状态是"选中"(参数为TRUE)还是"未选中"(参数为FALSE)。当"选中"时,SetCheck()在菜单项文本前面加上"a"。

afx_msg     void     OnRect();    
afx_msg     void     OnRound();    
afx_msg     void     OnLine();    
消息映射:    
 
IMPLEMENT_DYNCREATE(CMainFrame,     CFrameWnd)    
 
BEGIN_MESSAGE_MAP(CMainFrame,     CFrameWnd)    
                      ON_WM_CREATE()    
                      ON_COMMAND(ID_RECT,OnRect)    
                      ON_COMMAND(ID_ROUND,OnRound)    
                      ON_COMMAND(ID_LINE,OnLine)    
END_MESSAGE_MAP()    

void     CMainFrame::OnRect()    
{    
                      //option=1;    
 
}    
void     CMainFrame::OnRound()    
{    
                      //option=2;    
}    
void     CMainFrame::OnLine()    
{    
                      //option=3;    
}    

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
要在 Word VBA 中创建工具栏和菜单,可以按照以下步骤进行操作: 1. 打开 Word 文档并按下 Alt + F11 键盘快捷键打开 VBA 编辑器。 2. 在 VBA 编辑器中,选择“插入” -> “模块”,打开新的代码模块。 3. 在模块中编写 VBA 代码来创建工具栏和菜单。例如,以下代码将创建一个名为“Custom Toolbar”的工具栏,并在其上添加一个名为“Custom Menu”的菜单: ``` Sub CreateToolbarAndMenu() Dim cb As CommandBar Dim cbc As CommandBarControl Dim cbp As CommandBarPopup ' Create custom toolbar Set cb = Application.CommandBars.Add(Name:="Custom Toolbar", _ Position:=msoBarTop, Temporary:=True) ' Add custom menu to toolbar Set cbc = cb.Controls.Add(Type:=msoControlPopup) cbc.Caption = "Custom Menu" ' Add commands to custom menu Set cbp = cbc.Controls.Add(Type:=msoControlButton) cbp.Caption = "Say Hello" cbp.OnAction = "SayHello" End Sub ``` 4. 在代码模块中添加一个名为“SayHello”的 VBA 子过程,在该子过程中添加要执行的操作。例如,以下代码将在单击“Say Hello”按钮时在 Word 中显示一个消息框: ``` Sub SayHello() MsgBox "Hello, world!" End Sub ``` 5. 在 VBA 编辑器中,按下 F5 键运行 CreateToolbarAndMenu 子过程。这将创建自定义工具栏和菜单,并将“Say Hello”按钮添加到菜单中。 完成以上步骤后,您可以在 Word 中看到新创建的自定义工具栏和菜单。单击“Custom Menu”将显示“Say Hello”按钮,单击该按钮将显示一个消息框。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值