PB案例学习笔记-19制作一个图片按钮

news2024/11/24 7:21:14

写在前面

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

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

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

gitee代码仓库

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

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

一、小目标

在本案例中我们将制作一个窗口的图片按钮。

程序运行后,在弹出的“图片按钮”窗口中有三张图片,每当鼠标移动到一个图片时,图片就会显示按钮形状,同时画面也会改变。

具体功能如下图所示。单击第一张图片,即“开关”时,中间的图片标题会在OnOff 之间变换,相应的图片也会随之改变。

单击最后一张图片时,会弹出一个说明窗口

图片按钮

有小伙伴可能会问,这样的案例在实际中有什么用呢?

实际开发中,我们只需要在这个案例上进行改良,就可以制作出一个权限导航栏窗口。

根据登录用户所具有的权限,导航栏中显示不通过模块,通过点击某个模块“图片按钮”进入到不通的模块。

权限导航栏

二、创作思路

在本次案例中,我们会用到可视化用户对象。我们只需制作一个图片按钮,就可以重复使用。

避免应用程序编写相同活相近的代码的麻烦,提高了应用程序的可维护性。

① 什么是可视化用户对象呢?

这个我们在上一个案例中用到过,它是一个可重用控件或一组完成一定功能的控件。

当这个用户对象定义之后,在应用程序需要这种用户对象的地方就可以反复使用它,并且修改一次,

就可以把修改的结果反应到所有使用该用户对象的地方。

就像本案例中的图片按钮,

② 可视化用户对象分类

  • 标准可视化用户对象(Standard Visual User Object
  • 定制可视化用户对象(Custom Visual User Object
  • 外部可视化用户对象(External Visual User Object

③ 怎么使用?

本案例中我们使用定制可视化用户对象 来制作图片按钮,定制可视化用户对象将多个控件及用户对象组合成一个整体,

完成一定功能和操作。放置在窗口上的可视化对象作为一个整体来使用,其类型为UserObject!。 就像放置在窗口上的其他控件一样

应用程序通过窗口的属性数字Control[]来访问定制可视化用户对象

三、创建程序基本框架

有了基本思路之后,我们就动起来开始写程序了

① 新建examplework 工作区

② 新建exampleapp应用

③ 新建w_main窗口,并将其Title设置为"图片按钮"

由于文章篇幅的原因,以上步骤就不再赘述,如果忘记的小伙伴可以翻一翻该系列第一篇文章复习一下

四、创建定制可视用户对象

① 新建定制可视化用户对象

单击工具栏上的File-->New 命令,在弹出的New对话框PB Object选项卡中选择Custom Visual 图标

单击【OK】按钮,完成可视化对象创建

创建可视化用户对象

② 在可视化用户对象中添加控件

在新建的用户对象中添加如下控件

  • 2个StaticText控件,并命名为st_backst_pic
  • 1个Picture 控件,并命名为p_pic
  • 4个Line控件,并命名为ln_1ln_2ln_3ln_4

③ 设置各个控件的属性

  • st_back控件的BorderStyle值设置为StyleRaised!,Enable值为True
  • st_pic控件的Alignment值设置成Center!,Enable值为False
  • p_pic控件的PictureName值设置成bmp\bbgrow.bmp,Enable值为False
  • ln_1ln_2LineColor值设置为Black
  • ln_3ln_4LineColor值设置为White

④ 设置各个控件的大小位置

属性st_backst_picp_pic
X5514
Y41408
Width160160146
Height19256128
属性ln_1ln_2ln_3ln_4
BeginX001690
BeginY000196
EndX0169169169
EndY1960196196

最终建立好之后如下图所示

可视化对象布局

⑤ 保存用户定制化对象为uo_pic

五、编写定制化对象代码

① 定义uo_pic对象实例变量

定义实例变量

string cmd="文字"
string pic1="BMP文件名"
string pic2="BMP文件名"
boolean getcur=false

② 在uo_pic对象中添加uf_line(boolean bshow) return (none) 函数,代码如下

int xi
int yi

xi=PixelsToUnits(1, XPixelsToUnits!)
yi=PixelsToUnits(1, YPixelsToUnits!)

ln_1.visible=bshow
ln_2.visible=bshow
ln_3.visible=bshow
ln_4.visible=bshow

ln_1.beginx=xi
ln_1.beginy=yi
ln_1.endx=this.width - xi
ln_1.endy=yi
ln_2.beginx=xi
ln_2.beginy=yi
ln_2.endx=xi
ln_2.endy=this.height - yi
ln_3.beginx=this.width - xi
ln_3.beginy=yi
ln_3.endx=this.width - xi
ln_3.endy=this.height -yi
ln_4.beginx=xi
ln_4.beginy=this.height - yi
ln_4.endx=this.width -xi
ln_4.endy=this.height - yi

③ 在uo_pic对象中添加uf_lostcur() reurn (none) 函数,代码如下

if getcur=true then
	p_pic.picturename=pic1
	if ( p_pic.y + p_pic.height ) > (st_back.y + st_back.height - st_pic.height) then p_pic.height = st_back.y + st_back.height - st_pic.height - p_pic.y
	if p_pic.width > st_back.width then p_pic.width = st_back.width
	uf_line(false)
	getcur=false
end if

④ 在uo_pic对象中添加uf_lower() reurn (none) 函数,代码如下

ln_1.linecolor=0
ln_2.linecolor=0
ln_3.linecolor=16777215
ln_4.linecolor=16777215

⑤ 在uo_pic对象中添加uf_raise() reurn (none) 函数,代码如下

ln_1.linecolor=16777215
ln_2.linecolor=16777215
ln_3.linecolor=0
ln_4.linecolor=0

⑥ 在uo_pic对象中添加uf_set(boolean bp) reurn (none) 函数,代码如下

int xi,yi,yi1

xi=PixelsToUnits(2, XPixelsToUnits!)
yi=PixelsToUnits(2, YPixelsToUnits!)
yi1=PixelsToUnits(1, YPixelsToUnits!)

st_back.width=this.width - xi*2
st_back.height=this.height - yi*2
st_back.x=xi
st_back.y=yi

if bp then
	p_pic.picturename=pic1
	if pic1="" then
		p_pic.visible=false
	else
		p_pic.visible=true
	end if
else
	p_pic.picturename=pic2
	if pic2="" then
		p_pic.visible=false
	else
		p_pic.visible=true
	end if
end if	

if p_pic.width > st_back.width then p_pic.width = st_back.width
if p_pic.height > st_back.height then p_pic.height = st_back.height
p_pic.x=st_back.x + (st_back.width - p_pic.width ) / 2
if cmd="" then
	st_pic.visible=false
	p_pic.y=(st_back.height - p_pic.height ) /2
else
	st_pic.text=cmd
	st_pic.x=xi
	st_pic.width=st_back.width
	st_pic.y=this.height - st_pic.height - yi
	p_pic.y=st_pic.y - p_pic.height - yi1
end if
if p_pic.y < yi then p_pic.y=yi
if ( p_pic.y + p_pic.height ) > (st_back.y + st_back.height - st_pic.height) then p_pic.height = st_back.y + st_back.height - st_pic.height - p_pic.y

⑦ 在uo_pic对象中添加uf_setpic(string picf1,string picf2) return (none)函数,代码如下

pic1=picf1
pic2=picf2
uf_upper()
uf_line(false)
uf_set(true)

⑧ 在uo_pic对象中添加uf_upper() return (none)函数,代码如下

ln_1.linecolor=16777215
ln_2.linecolor=16777215
ln_3.linecolor=0
ln_4.linecolor=0

⑨在uo_pic对象的Constructor事件中添加如下代码

st_back.border=false
st_pic.border=false
this.border=false
uf_setpic(pic1,pic2)

⑩ 在uo_pic对象中添加lostcur() returns(none)事件,代码如下

parent.triggerevent("mousemove")

⑪在uo_pic对象中添加setpic(string picf1,string picf2) returns(none)事件,代码如下

pic1=picf1
pic2=picf2
uf_setpic(pic1,pic2)

⑫ 在uo_pic对象中添加无脚本的clicked() returns long[pbm_bnclicked] 事件

⑬ 在uo_pic对象中添加无脚本的Mousemove(unsignedlong flags,integer xpos,integer ypos) returns long[pbm_mousemove] 事件

⑭在uo_pic对象的st_back控件的Clicked事件中添加如下代码

long li
uf_lower()
uf_set(true)
li=cpu()
do
	yield()
loop while cpu() < (li + 250)
uf_upper()
uf_set(false)
parent.triggerevent("clicked")

⑮ 在uo_pic对象的st_back控件的Mousemove事件中添加如下代码

if getcur=false then
	parent.triggerevent("lostcur")
	uf_upper()
	uf_line(true)
	uf_set(false)
	parent.triggerevent("mousemove")
	getcur=true
end if

⑯ 在st_back控件添加无脚本的loscur() returns(none)事件

六、w_main窗口中添加控件

① 添加定制可视用户对象

单击菜单栏Insert-->Control命令,在列表框中选择User Object命令。

然后再弹出的Select Object对话框中选择uo_pic对象,单击【ok】按钮,在窗口中单击鼠标,添加uo_pic对象。

使用相同的方法,在窗口中添加3个uo_pic对象,名称分别为uo_1uo_2uo_3

②设置可视用户对象。

  • uo_1控件的cmd属性设置为“开关”

  • uo_2控件的cmd属性设置为“ON”

  • uo_3控件的cmd属性设置为"About"

③ 想窗口中添加一个CommandButton控件,其Text值设置为"退出",调整控件位置为下图所示

控件布局

④ 保存w_main窗口

七、编写窗口w_main事件代码

① 在w_main窗口中添加实例变量

string f1pic[3]
string f2pic[3]
string f3pic[3]

② 在w_main窗口中设置Local External Function 局部扩展函数

 FUNCTION long ShellExecuteA( long hWnd, REF String ls_Operation, REF String ls_File, REF String ls_Parameters, REF String ls_Directory, INT nShowCmd ) library 'shell32'

③ 在w_main窗口的Open事件中添加如下代码

f1pic[1]="1-1.bmp"
f2pic[1]="1-2.bmp"
f3pic[1]="1-3.bmp"
f1pic[2]="10-1.bmp"
f2pic[2]="10-2.bmp"
f3pic[2]="10-3.bmp"
f1pic[3]="12-1.bmp"
f2pic[3]="12-2.bmp"
f3pic[3]="12-3.bmp"

④ 在w_mainActivate事件中添加如下代码

uo_1.uf_setpic(f3pic[1],f1pic[1])
uo_2.uf_setpic(f3pic[3],f1pic[3])
uo_3.uf_setpic(f3pic[2],f1pic[2])

⑤ 在w_mainMousemove事件中添加如下代码

uo_1.uf_lostcur()
uo_2.uf_lostcur()
uo_3.uf_lostcur()

⑥ 在uo_1clicked事件中添加如下代码

if uo_2.enabled=true then
	uo_2.uf_setpic(f2pic[3],f2pic[3])
	uo_2.st_pic.text="OFF"
	uo_2.enabled=false
else
	uo_2.uf_setpic(f3pic[3],f1pic[3])
	uo_2.st_pic.text="ON"
	uo_2.enabled=true
end if

⑦ 在uo_3Clicked事件中添加如下代码

MessageBox("说明","本例演示了PowerBuilder中使用图片按钮的方法",Information!,OK!)

⑧ 在cb_1按钮的Clicked事件中添加如下代码

close(w_main)

⑨在开发界面左边的System Tree窗口中双击exampleapp 应用对象,并在其Open事件中添加如下代码

open(w_main)

八、运行程序

这个案例的代码真多,终于写完了。来看看效果如何

图片按钮
本期内容到这儿就结束了 ★,°:.☆( ̄▽ ̄)/$:.°★
希望文章能帮助到您,我们下期再见 ヾ(•ω•`)o (●’◡’●)

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.coloradmin.cn/o/1813539.html

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈,一经查实,立即删除!

相关文章

【C++题解】1121 - “倒”数

问题&#xff1a;1121 - “倒”数 类型&#xff1a;需要找规律的循环 题目描述&#xff1a; 输入一个正整数 N&#xff08;0<N<2147483647&#xff09;&#xff0c;将这个数倒着合成一个新数后输出。 比如&#xff1a; 543 &#xff0c;倒过来是345 &#xff08;请注意…

2024年吉林等级保护测评机构名单

据悉&#xff0c;在吉林地区具备等保测评资质的机构为数不多&#xff0c;但每一家都承载着保障信息系统安全的重任。这些机构拥有专业的技术团队和丰富的经验&#xff0c;能够为各单位提供高质量的等保测评服务。今天我们小编就给大家汇总了一下2024年吉林等级保护测评机构名单…

基于电压矢量变换的锁相环simulink建模与仿真

目录 1.课题概述 2.系统仿真结果 3.核心程序与模型 4.系统原理简介 5.完整工程文件 1.课题概述 基于电压矢量变换的锁相环simulink建模与仿真&#xff0c;这个模型的基本构架如下所示&#xff1a; 2.系统仿真结果 由图中锁相结果可以看出&#xff0c;利用新型锁相环技术在…

[大模型]LLaMA3-8B-Instruct WebDemo 部署

环境准备 在 autodl 平台中租赁一个 3090 等 24G 显存的显卡机器&#xff0c;如下图所示镜像选择 PyTorch-->2.1.0-->3.10(ubuntu20.04)-->12.1 接下来打开刚刚租用服务器的 JupyterLab&#xff0c;并且打开其中的终端开始环境配置、模型下载和运行 demo。 pip 换源…

面试官:MySQL也可以实现分布式锁吗?

首先说结论&#xff0c;可以做&#xff0c;但不推荐做。 我们并不推荐使用数据库实现分布式锁。 如果非要这么做&#xff0c;实现大概有两种。 1、锁住Java的方法&#xff0c;借助insert实现 如何用数据库实现分布式锁呢&#xff0c;简单来说就是创建一张锁表&#xff0c;比…

SRE 排障利器,接口请求超时试试 httpstat

夜莺资深用户群有人推荐的一个工具&#xff0c;看了一下真挺好的&#xff0c;也推荐给大家。 需求场景 A 服务调用 B 服务的 HTTP 接口&#xff0c;发现 B 服务返回超时&#xff0c;不确定是网络的问题还是 B 服务的问题&#xff0c;需要排查。 工具简介 就类似 curl&#…

Nextjs 集成富文本编辑器react-quill

目录 一、组件代码 二、参考文档 由于Next与react有些差别&#xff0c;直接调用组件会报无法找到文档的错误&#xff0c;于是我们只有考虑动态导入了解决问题。因为富文本编辑器一般作用与form页面对SEO意义不大&#xff0c;所以这里可以考虑暂时关闭SSR。 一、组件代码 /*…

论文笔记:Frozen Language Model Helps ECG Zero-Shot Learning

2023 MIDL 1 intro 心电图&#xff08;ECG&#xff09;被广泛应用于检测各种心脏疾病&#xff0c;包括心律失常、心脏病发作和心力衰竭等近些年深度学习方法在心电图数据分类领域取得了不错的效果。 基于深度学习的ECG数据分类方法&#xff0c;通常以监督学习范式进行训练&am…

【个人博客搭建】(23)购买服务器、域名、备案

1、服务器主要是为了有一个公网的IP地址&#xff0c;方便我们可以通过网络随时访问 2、域名是对IP地址的一个替代。简单说IP地址可能不方便记忆&#xff0c;但是自己配置的域名会简单些&#xff0c;另外暴露IP地址也不安全。(虽然也能通过域名找到IP) 3、备案。这是政策。简单所…

观成科技:基于深度学习技术的APT加密流量检测与分类检测方案

一、前言 近年来APT攻击的案例屡见不鲜&#xff0c;给国家、企业以及个人的利益造成极大威胁。随着流量加密技术的不断成熟&#xff0c;许多APT组织倾向于将流量加密后进行传输&#xff0c;从而保护传输内容。由于加密流量的实际载荷已被加密&#xff0c;故采用原始的流量检测…

测试开发面经分享,面试七天速成 DAY 1

1. get、post、put、delete的区别 a. get请求&#xff1a; i. 用于从服务器获取资源。请求参数附加在URL的查询字符串中。 ii. 对服务器的请求是幂等的&#xff0c;即多次相同的GET请求应该返回相同的结果。 iii. 可以被缓存&#xff0c;可以被收藏为书签。 iv. 对于敏感数据不…

【python】docker-selenium 分布式selenium模拟浏览器 |可视化 或 后台运行selenium 部署与使用

一、分布式selenium 1、部署 docker-selenium Github官方地址如下&#xff1a; https://github.com/SeleniumHQ/docker-selenium?tabreadme-ov-file 执行安装指令&#xff1a; 1、这里可以将dashboard映射接口改为 14444&#xff08;记得开放安全组&#xff09; docker run …

微软在Windows上做了个安卓子系统…

前言 曾经小白想着如果Windows在不安装模拟器的情况下&#xff0c;可以安装并运行安卓软件&#xff0c;那这个功能一定很香。 在2021年&#xff0c;微软面向开发者推出WSA支持。在第二年的时候&#xff0c;用户就可以在Windows上使用安卓软件。 这个功能可把我乐坏了&#x…

阿里云的ALB如何实现http域名强制转到https域名

背景 通常我们申请域名之后&#xff0c;应用侧都会基于域名对应的ssl证书进下控制&#xff0c;目前通用的有商业版的负载均衡和开源的代理工具比如nginx,通过负载均衡工具一般都可以支持请求的协议是http或https 比如可以设置两个默认的端口80,443分别支持http或https,本文介绍…

品牌与产品:消费者决策的经济逻辑与品牌宣传的战略意义

在当今日益全球化的经济环境中&#xff0c;品牌与产品之间的关系对于企业的成功与否起着至关重要的作用。然而&#xff0c;在消费者做出购买决策时&#xff0c;他们到底是在选择产品本身&#xff0c;还是在选择附着在产品之上的品牌价值&#xff1f;同样&#xff0c;当客户选择…

C语言 | Leetcode C语言题解之第146题LRU缓存

题目&#xff1a; 题解&#xff1a; typedef struct {int key;int val;UT_hash_handle hh; } LRUCache;LRUCache* cache NULL; int g_capacity 0; LRUCache** lRUCacheCreate(int capacity) {g_capacity capacity;return &cache; }int lRUCacheGet(LRUCache** obj, int…

Docker|了解容器镜像层(2)

引言 容器非常神奇。它们允许简单的进程表现得像虚拟机。在这种优雅的底层是一组模式和实践&#xff0c;最终使一切运作起来。在设计的根本是层。层是存储和分发容器化文件系统内容的基本方式。这种设计既出人意料地简单&#xff0c;同时又非常强大。在今天的帖子[1]中&#xf…

Windows Docker 部署 VictoriaMetrics 数据库

一、简介 VictoriaMetrics&#xff08;VM&#xff09;是一个快速、高效、经济且可扩展的监控解决方案和时序数据库。它提供了数据存储、管理、处理和分析的强大功能&#xff0c;专注于时间序列数据&#xff0c;并具备高吞吐量和低延迟特性&#xff0c;适用于各类大规模数据场景…

FreeRTOS学习笔记-基于stm32(13)低功耗 Tickless 模式

一、stm32低功耗模式 STM32 本身就支持低功耗模式&#xff0c;如图有三种模式&#xff1a;睡眠(Sleep)模式&#xff1b;停止(Stop)模式&#xff1b;待机(Standby)模式。 二、低功耗 Tickless 模式 由于一般的应用中&#xff0c;处理器大量的时间都在处理空闲任务&#xff0c;所…

mysql中 什么是锁

大家好。上篇文章我们讲了事务并发执行时可能带来的各种问题&#xff0c;今天我们来聊一聊mysql面试必问的问题–锁。 一、解决并发事务带来问题的两种基本方式 1. 并发事务访问相同记录的情况 并发事务访问相同记录的情况大致可以划分为3种&#xff1a; 读-读情况&#xf…