写在前面
这是PB案例学习笔记系列文章的第31篇,该系列文章适合具有一定PB基础的读者。
通过一个个由浅入深的编程实战案例学习,提高编程技巧,以保证小伙伴们能应付公司的各种开发需求。
文章中设计到的源码,小凡都上传到了gitee代码仓库https://gitee.com/xiezhr/pb-project-example.git
需要源代码的小伙伴们可以自行下载查看,后续文章涉及到的案例代码也都会提交到这个仓库【pb-project-example】
如果对小伙伴有所帮助,希望能给一个小星星⭐支持一下小凡。
一、小目标
本案例我们将制作一个根据用户选择动态设置菜单的程序。用户通过选择“恢复”、“无效”、“去除” 来改变对应菜单项。
最终实现效果如下所示
二、创作思路
我们通过单选按钮、复选框来选择,再通过相应的设置菜单项的Enable
和Visible
两种属性来动态设置菜单栏
① 单选框
当单选按钮处于选中状态时,单选按钮中出现一个黑色圆点,未选中时,小圆圈中没有其它图案。
当我们使用组框控件对单选按钮分组时,同一组中的单选按钮只有一个会处于选中状态,其它全部处于非选中状态
② 复选框
当复选框被选中时,复选框上显示选中符号(打勾符号)
当未选中复选框时,复选框上不显示选中符号
三、创建程序基本框架
① 新建examplework
工作区
② 新建exampleapp
应用
③ 新建w_main
窗口,将其Title
属性设置为“设置菜单”
由于文章篇幅原因,上述步骤不再赘述,如果忘记了的小伙伴可以翻一翻之前的文章复习一下
④ 新建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
③ 在开发界面左边的SystemTree
窗口中,双击exampleapp
应用对象,在其Open
事件中输入如下代码
open(w_main)
五、运行程序
经过一波代码编写后,来看看我们的劳动成果是否达到预期
本期内容就到这儿★,°:.☆( ̄▽ ̄)/$:.°★ 。 希望对您有所帮助
我们下期再见 ヾ(•ω•`)o (●’◡’●)