开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 1088|回复: 36
收起左侧

[易语言纯源码] codejock Suite Pro Activex组件浮动窗格封装 支持静编

[复制链接]

结帖率:100% (18/18)
发表于 2024-6-5 20:36:59 | 显示全部楼层 |阅读模式   湖南省衡阳市
分享源码
界面截图:
是否带模块: 纯源码
备注说明: -
本帖最后由 leiyh 于 2024-6-5 20:45 编辑

codejock Suite Pro Activex 提供了一系列ocx组件  非常漂亮 几年前官网论坛上一位老哥 封装了系列组件 可惜的是不能静编
偶然登陆 看到有人私信 对此有兴趣 所以封装了一个浮动控件  由于是控件库是收费的 网上带许可证书的只能找到15. 3版的 所以以此为例  (DockingPane)效果如下:




接口非常多 且复杂  要将每个对象或选项全部封装起来 就是个苦力活了 所以例程中将对象挂接在ScriptControl上,用js的方式直接调用了com对象 这样就简单很多了 如下 几行代码就搞定了


3.png


代码简单 但是对用户来说 一些js代码 可能不知所义
这里简单罗列一些常用的属性

VisualTheme int  窗格主题
HideClient  bool 是否隐藏客户区 如果要将创建的窗格在客户区铺满 请设置为 true
SplitterStyle 分割条的样式
SplitterColor 分割条的颜色
ShowDockingContextStickers 是否显示停靠上下文
ShowContentsWhileDragging 拖动时是否显示控件内容

属性还有很多 自行用对象.查看()

创建窗格 script.CreatePane()   

[JavaScript] 纯文本查看 复制代码
var n2=script.CreatePane(1,100,200,3);n2.Title='调试输出';n2.TitleToolTip='>控制台输出、提示、帮助等信息';n2.SetHandle(” + 到文本 (超级编辑框1.取窗口句柄 ()) + “);


其中 Title>窗格标题    TitleToolTip提示内容  SetHandle设置窗格里的组件句柄  
以上n2创建了一个窗格对象    设置了标题和提示内容  并将超级编辑框加在窗格里

窗格里的组件会自适应窗口及窗格尺寸
程序尽量用管理员模式运行 否则可能注册不成功

纯源码  携带的ocx用upx压缩后396kb
论坛上传不了附件 传网盘了
  
下载地址:
链接:https://pan.baidu.com/s/1x4ZEzyGVdGDC2BHHeu7-_w
提取码:fpdr







评分

参与人数 6好评 +3 精币 +11 收起 理由
qq1004043585 + 1 + 2 支持开源~!感谢分享
光影魔术 + 2 感谢分享,很给力!~
wuqingg + 1 支持开源~!感谢分享
kyo9766 + 1 感谢分享,很给力!~
lao3 + 1 + 5 支持开源~!感谢分享
財財 + 1 感谢分享,很给力!~

查看全部评分


结帖率:100% (27/27)

签到天数: 7 天

发表于 2024-6-23 16:18:03 | 显示全部楼层   浙江省宁波市
        支持开源~!感谢分享
回复 支持 反对

使用道具 举报

签到天数: 5 天

发表于 2024-6-11 01:36:32 | 显示全部楼层   山东省临沂市
        支持开源~!感谢分享
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)

签到天数: 9 天

发表于 2024-6-10 08:38:34 | 显示全部楼层   广西壮族自治区南宁市
大哥,给个15.3的下载地址哇
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)

签到天数: 9 天

发表于 2024-6-10 08:06:07 | 显示全部楼层   广西壮族自治区南宁市
感谢分享源码
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)

签到天数: 15 天

发表于 2024-6-9 16:31:00 | 显示全部楼层   广西壮族自治区柳州市
感谢分享源码
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)

签到天数: 4 天

发表于 2024-6-8 23:02:21 | 显示全部楼层   山东省淄博市
支持开源 感谢楼主
回复 支持 反对

使用道具 举报

结帖率:50% (1/2)

签到天数: 24 天

发表于 2024-6-8 10:40:13 | 显示全部楼层   湖北省仙桃市
        支持开源~!感谢分享
回复 支持 反对

使用道具 举报

结帖率:50% (1/2)

签到天数: 24 天

发表于 2024-6-8 10:39:55 | 显示全部楼层   湖北省仙桃市
CommandBars.dll
回复 支持 反对

使用道具 举报

结帖率:70% (7/10)

签到天数: 27 天

发表于 2024-6-7 12:58:21 | 显示全部楼层   甘肃省平凉市
回复 支持 反对

使用道具 举报

结帖率:85% (100/118)

签到天数: 26 天

发表于 2024-6-7 12:53:51 | 显示全部楼层   安徽省滁州市
支持开源~!感谢分享
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表