有一个图片和标签A，用复制窗口控件功能，把标签复制成...

HccCmHj

有一个图片和标签A，用复制窗口控件功能，把标签复制成标签B，且，这个标签B要再图片上生效显示

圆圈

demo.e (2.79 KB, 下载次数: 3)

昨天 09:15 上传

点击文件名下载附件

HccCmHj

圆圈 发表于 2025-4-15 09:15

谢谢，我的控件是画板，画板上加载了一张图片，这个标签要画再画板的图片上，您的方法我试过了，好像不行，还有其他办法吗？，谢谢

aipca

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
复制标签	标签
a	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

' 每按一次向下多复制一个
a ＝ a ＋ 1
复制窗口组件 (标签A, 复制标签)
复制标签.左边 ＝ 图片框1.左边 ＋ 2
复制标签.顶边 ＝ (a － 1) × 标签A.高度 ＋ 图片框1.顶边 ＋ 2
复制标签.可视 ＝ 真
复制标签.标题 ＝ “标签B”
图片框1.图片 ＝ 快照 (复制标签.取窗口句柄 (), , )
' 单个
' 复制窗口组件 (标签1, 复制标签)
' 复制标签.左边 ＝ 图片框1.左边 ＋ 2
' 复制标签.顶边 ＝ 图片框1.顶边 ＋ 2
' 复制标签.可视 ＝ 真
' 复制标签.标题 ＝ “标签B”
' 图片框1.图片 ＝ 快照 (复制标签.取窗口句柄 (), , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 复制标签, 标签<br /> .程序集变量 a, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> ' 每按一次向下多复制一个<br /> a ＝ a ＋ 1<br /> 复制窗口组件 (标签A, 复制标签)<br /> 复制标签.左边 ＝ 图片框1.左边 ＋ 2<br /> 复制标签.顶边 ＝ (a － 1) × 标签A.高度 ＋ 图片框1.顶边 ＋ 2<br /> 复制标签.可视 ＝ 真<br /> 复制标签.标题 ＝ “标签B”<br /> 图片框1.图片 ＝ 快照 (复制标签.取窗口句柄 (), , )<br /> <br /> ' 单个<br /> ' 复制窗口组件 (标签1, 复制标签)<br /> ' 复制标签.左边 ＝ 图片框1.左边 ＋ 2<br /> ' 复制标签.顶边 ＝ 图片框1.顶边 ＋ 2<br /> ' 复制标签.可视 ＝ 真<br /> ' 复制标签.标题 ＝ “标签B”<br /> ' 图片框1.图片 ＝ 快照 (复制标签.取窗口句柄 (), , )

aipca

改个画板的

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
画底图	字节集

复制窗口组件 (标签A, 复制标签)
复制标签.标题 ＝ “标签B”
复制标签.可视 ＝ 真
复制标签.文本颜色 ＝ #红色
复制标签.左边 ＝ 画板1.左边 ＋ 2
复制标签.顶边 ＝ 画板1.顶边 ＋ 2
复制标签.调整层次 (1)
画底图 ＝ 快照 (复制标签.取窗口句柄 (), , )
画板1.底图 ＝ 画底图
画板1.底图方式 ＝ 0

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 画底图, 字节集<br /> <br /> 复制窗口组件 (标签A, 复制标签)<br /> 复制标签.标题 ＝ “标签B”<br /> 复制标签.可视 ＝ 真<br /> 复制标签.文本颜色 ＝ #红色<br /> 复制标签.左边 ＝ 画板1.左边 ＋ 2<br /> 复制标签.顶边 ＝ 画板1.顶边 ＋ 2<br /> 复制标签.调整层次 (1)<br /> 画底图 ＝ 快照 (复制标签.取窗口句柄 (), , )<br /> 画板1.底图 ＝ 画底图<br /> 画板1.底图方式 ＝ 0

HccCmHj

aipca 发表于 2025-4-15 09:58
改个画板的
[e=1].版本 2

老师，我的控件是画板，画板上加载了一张图片，这个标签要画再画板的图片上，谢谢您

aipca

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
画底图	字节集

复制窗口组件 (透明标签A, 复制标签)
复制标签.标题 ＝ “透明标签B”
复制标签.可视 ＝ 真
复制标签.文本颜色 ＝ #红色
复制标签.左边 ＝ 画板1.左边 ＋ 20
复制标签.顶边 ＝ 画板1.顶边 ＋ 20
复制标签.调整层次 (1)
画板1.底图 ＝ 快照 (画板1.取窗口句柄 (), , )

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 画底图, 字节集<br /> <br /> 复制窗口组件 (透明标签A, 复制标签)<br /> 复制标签.标题 ＝ “透明标签B”<br /> 复制标签.可视 ＝ 真<br /> 复制标签.文本颜色 ＝ #红色<br /> 复制标签.左边 ＝ 画板1.左边 ＋ 20<br /> 复制标签.顶边 ＝ 画板1.顶边 ＋ 20<br /> 复制标签.调整层次 (1)<br /> 画板1.底图 ＝ 快照 (画板1.取窗口句柄 (), , )

修改一下，快照的控件不对，你要设置底图，得快照整个画板1的


补充内容 (2025-4-15 10:09):
用透明标签，效果会好一些

HccCmHj

aipca 发表于 2025-4-15 10:08
[e=1].版本 2
.支持库 iext

老师，我想要的说就是手工画个标签（再复制标签的基础上），然后显示再画板加载图片的上面。存代码生成，因为我要再多线程里，取画很多个这样的标签，动态生成标签个数和动态生成标签标题。您看还有其他办法吗？我手工画了个，就是无法成效

aipca

HccCmHj 发表于 2025-4-15 10:16
老师，我想要的说就是手工画个标签（再复制标签的基础上），然后显示再画板加载图片的上面。存代码生成， ...

把复制的标签加到数组里不就可以了，要多少复制多少

HccCmHj

aipca 发表于 2025-4-15 10:22
把复制的标签加到数组里不就可以了，要多少复制多少

我是这么做的，但画了，在画板加载的图片上，无法生效，老师您有联系方式吗？