【PB案例学习笔记】-31制作一个动态设置菜单的程序

PowerBuilder 动态设置菜单控件 PB

发布日期: 2024-07-11

更新日期: 2024-10-09

文章字数: 1k

阅读时长: 4 分

阅读次数:

写在前面

这是PB案例学习笔记系列文章的第31篇，该系列文章适合具有一定PB基础的读者。

通过一个个由浅入深的编程实战案例学习，提高编程技巧，以保证小伙伴们能应付公司的各种开发需求。

文章中设计到的源码，小凡都上传到了gitee代码仓库https://gitee.com/xiezhr/pb-project-example.git

gitee代码仓库

需要源代码的小伙伴们可以自行下载查看，后续文章涉及到的案例代码也都会提交到这个仓库【**pb-project-example**】

如果对小伙伴有所帮助，希望能给一个小星星⭐支持一下小凡。

一、小目标

本案例我们将制作一个根据用户选择动态设置菜单的程序。用户通过选择“恢复”、“无效”、“去除” 来改变对应菜单项。

最终实现效果如下所示

动态设置菜单

二、创作思路

我们通过单选按钮、复选框来选择，再通过相应的设置菜单项的Enable和Visible两种属性来动态设置菜单栏

① 单选框

当单选按钮处于选中状态时，单选按钮中出现一个黑色圆点，未选中时，小圆圈中没有其它图案。

当我们使用组框控件对单选按钮分组时，同一组中的单选按钮只有一个会处于选中状态，其它全部处于非选中状态

② 复选框

当复选框被选中时，复选框上显示选中符号（打勾符号）

当未选中复选框时，复选框上不显示选中符号

三、创建程序基本框架

① 新建examplework工作区

② 新建exampleapp应用

③ 新建w_main窗口，将其Title属性设置为“设置菜单”

由于文章篇幅原因，上述步骤不再赘述，如果忘记了的小伙伴可以翻一翻之前的文章复习一下

④ 新建m_main菜单对象，如下图所示

新建m_main菜单

⑤ 控件布局

向w_main窗口上添加2个GroupBox控件、3个RadioButton控件、6个CheckBox控件和1个CommonButton控件。

调整各个控件的大小与位置，如下图所示

控件布局

四、编写事件代码

① 在cbx_file控件(文件)的Clicked事件中添加如下代码

If not this.checked then
    cbx_open.checked = false
    cbx_close.checked = false
    cbx_save.checked = false
end if

② 在cb_1按钮（更新菜单）的clicked事件中添加如下代码

if rb_1.checked then
    m_main.m_file.Enabled = True
    m_main.m_file.Visible = True
    m_main.m_file.m_open.Enabled = True
    m_main.m_file.m_open.Visible = True
    m_main.m_file.m_close.Enabled = True
    m_main.m_file.m_close.Visible = True
    m_main.m_file.m_save.Enabled = True
    m_main.m_file.m_save.Visible = True
    m_main.m_edit.Enabled = True
    m_main.m_edit.Visible = True
    m_main.m_tool.Enabled = True
    m_main.m_tool.Visible = True
end if 

if rb_2.checked then
    m_main.m_file.Visible = True
    m_main.m_edit.Visible = True
    m_main.m_tool.Visible = True
    if cbx_file.checked then
        m_main.m_file.enabled = false
        m_main.m_file.m_open.Visible = True
        m_main.m_file.m_close.Visible = True
        m_main.m_file.m_save.Visible = True
        if cbx_open.checked then 
            m_main.m_file.m_open.Enabled = false
        else
            m_main.m_file.m_open.Enabled = true
        end if 
        if cbx_close.checked then
            m_main.m_file.m_close.Enabled = False
        else
            m_main.m_file.m_close.Enabled = True
        end if
        if cbx_save.checked then
            m_main.m_file.m_save.Enabled = False
        else
            m_main.m_file.m_save.Enabled = true
        end if
    else
        m_main.m_file.Enabled = true
    end if
    if cbx_edit.checked then
        m_main.m_edit.Enabled = false
    else
        m_main.m_edit.Enabled = true
    end if
    if cbx_tool.checked then
        m_main.m_tool.Enabled = false
    else
        m_main.m_tool.Enabled = true
    end if
end if

if rb_3.checked then
    m_main.m_file.Enabled = True
    m_main.m_edit.Enabled = True
    m_main.m_tool.Enabled = True
    if cbx_file.checked then
        m_main.m_file.Visible = false
        m_main.m_file.m_open.Enabled = false
        m_main.m_file.m_close.Enabled = false
        m_main.m_file.m_save.Enabled = false
        if cbx_open.checked then 
            m_main.m_file.m_open.Visible = false
        else
            m_main.m_file.m_open.Visible = true
        end if 
        if cbx_close.checked then
            m_main.m_file.m_close.Visible = False
        else
            m_main.m_file.m_close.Visible = True
        end if
        if cbx_save.checked then
            m_main.m_file.m_save.Visible = False
        else
            m_main.m_file.m_save.Visible = true
        end if
    else
        m_main.m_file.Visible = true
    end if
    if cbx_edit.checked then
        m_main.m_edit.Visible = False
    else
        m_main.m_edit.Visible = True
    end if
    if cbx_tool.checked then
        m_main.m_tool.Visible = False
    else
        m_main.m_tool.Visible = true
    end if
end if