Ex_DUI 4.1 仿未闻花名盒子UI 第六期

夜潇

素材来源于：https://125.confly.eu.org/thread-14345278-1-1.htmlhttps://125.confly.eu.org/thread-14345278-1-1.html


窗口采用ExDui自绘，源码中提供了窗口加载所需的资源，

调用的模块为ExDui4.1.18.518
下载地址可以在我的上一帖子中找到： https://125.confly.eu.org/forum.php?mod=viewthread&tid=14342594&extra=

源码下载地址： Ex_DUI未闻花名盒子UI第六期.rar (255.5 KB, 下载次数: 106)

2019-4-20 21:27 上传

点击文件名下载附件
第六期源码
下载积分: 精币 -2 枚

第三方下载地址：链接： https://share.weiyun.com/58xxBG1 （密码：43ss）


=====部分代码预览====

  

子程序名	返回值类型	公开	备 注
_启动窗口_创建完毕
参数名	类 型	参考	可空	数组	备 注
标题	文本型
默认主题	字节集

' -----说明
' 重要：如果编译出来程序无法执行，请开启程序的兼容模式，试试兼容当前的系统版本
' 初始化窗口宽度和高度
g_width ＝ 720
g_height ＝ 456
' 初始化窗口版本
g_Var ＝ “Version：1.1”
' 加载全局鼠标指针
g_hCursor_Normal ＝ LoadImageFromBin ( #默认鼠标_正常, #IMAGE_CURSOR, )
g_hCursor_Down ＝ LoadImageFromBin ( #默认鼠标_按下, #IMAGE_CURSOR, )
' 初始化引擎
Ex_Init (0, 位或 ( #EXGF_DPI_ENABLE, #EXGF_RENDER_METHOD_D2D, #EXGF_MENU_ALL ), 0, 0, 取指针_字节集型 (选择 (是否为空 (默认主题), #主题Default, 默认主题)), 取字节集长度 (选择 (是否为空 (默认主题), #主题Default, 默认主题)), 0, 0)
' 创建窗口
g_bin ＝ A2W (标题, )
g_hWnd ＝ Ex_WndCreate (0, 0, 取指针_字节集型 (g_bin), 0, 0, g_width, g_height, 0, 0)
如果真 (g_hWnd ≠ 0)
' 绑定引擎
g_hExDui ＝ Ex_DUIBindWindowEx (g_hWnd, 0, 位或 ( #EWS_MOVEABLE, #EWS_ESCEXIT, #EWS_MAINWINDOW, #EWS_CENTERWINDOW, #EWS_NOCAPTIONTOPMOST ), 0, 到整数 (&_WndMsg_proc))
如果真 (g_hExDui ≠ 0)
' zc常用组件
g_Page_bin ＝ A2W (“Page”, )
g_Static_bin ＝ A2W (“Static”, )
g_ImgBtn_bin ＝ A2W (“ImageButton”, )
g_RadioBtn_bin ＝ A2W (“RadioButton”, )
' zc组件
_ButtonClass_register (g_ImgBtn_bin)
g_isNet ＝ 真
判断 (是否与互联网连接 () ＝ 假)
g_isNet ＝ 假
g_isNet ＝ 真

' 控件创建
Top_Create ()  ' 顶边
Left_Create ()  ' 左边
OtherPage_Create ()
Page1_Create ()
' 数据获取图片加载
m_hImage ＝ _img_createfrommemory (取指针_字节集型 ( #加载图 ), 取字节集长度 ( #加载图 ))
g_hImgLoad ＝ Ex_ObjCreate (取指针_字节集型 (g_Static_bin), 0, -1, g_width ÷ 2 － _img_width (m_hImage) ÷ 2 ＋ 75, g_height ÷ 2 － _img_height (m_hImage) ÷ 2, _img_width (m_hImage), _img_height (m_hImage), g_hExDui)  ' 数据获取加载句柄
Ex_ObjSetBackgroundImage (g_hImgLoad, 取指针_字节集型 ( #加载图 ), 取字节集长度 ( #加载图 ), 0, 0, #BIR_NO_REPEAT, 0, 0, 255, 真)
Ex_ObjHandleEvent (g_hImgLoad, #NM_EASING, 到整数 (&事件_缓动消息))
如果 (g_isNet ＝ 真)
透明度缓动 (g_hImgLoad, 1000, 5, , )
透明度缓动 (g_hImgLoad, 1000, 5, , )
g_Rect.top ＝ 34
g_Rect.left ＝ 130
g_Rect.right ＝ 0
g_Rect.bottom ＝ 0
' 设置窗口背景图片
Ex_ObjSetBackgroundImage (g_hExDui, 取指针_字节集型 ( #背景图 ), 取字节集长度 ( #背景图 ), 0, 0, #BIR_DEFALUT, 取数据_通用型 (g_Rect), 0, 255, 真)
' 设置托盘图标
g_wText ＝ A2W (“ExDui未闻花名盒子UI第六期” ＋ #换行符 ＋ “==双击显示启动窗口==”, )
g_hIcon ＝ 托盘图标_载入图片 (g_hWnd, g_path ＋ “res/icon.ico”)
Ex_DUITrayIconSet (g_hExDui, g_hIcon, 取指针_字节集型 (g_wText))
' 不在任务栏中显示
SetWindowLongA (g_hWnd, #GWL_EXSTYLE, #WS_EX_TOOLWINDOW )
' 显示窗口
Ex_DUIShowWindow (g_hExDui, #SW_SHOWNORMAL, 0, 0, 0)
' 消息循环
Ex_WndMsgLoop ()

' 反初始化引擎
Ex_UnInit ()

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 _启动窗口_创建完毕<br /> .参数 标题, 文本型, 可空<br /> .参数 默认主题, 字节集, 可空<br /> <br /> ' -----说明<br /> ' 重要：如果编译出来程序无法执行，请开启程序的兼容模式，试试兼容当前的系统版本<br /> <br /> ' 初始化窗口宽度和高度<br /> g_width ＝ 720<br /> g_height ＝ 456<br /> ' 初始化窗口版本<br /> g_Var ＝ “Version：1.1”<br /> ' 加载全局鼠标指针<br /> g_hCursor_Normal ＝ LoadImageFromBin (#默认鼠标_正常, #IMAGE_CURSOR, )<br /> g_hCursor_Down ＝ LoadImageFromBin (#默认鼠标_按下, #IMAGE_CURSOR, )<br /> <br /> ' 初始化引擎<br /> Ex_Init (0, 位或 (#EXGF_DPI_ENABLE, #EXGF_RENDER_METHOD_D2D, #EXGF_MENU_ALL), 0, 0, 取指针_字节集型 (选择 (是否为空 (默认主题), #主题Default, 默认主题)), 取字节集长度 (选择 (是否为空 (默认主题), #主题Default, 默认主题)), 0, 0)<br /> ' 创建窗口<br /> g_bin ＝ A2W (标题, )<br /> g_hWnd ＝ Ex_WndCreate (0, 0, 取指针_字节集型 (g_bin), 0, 0, g_width, g_height, 0, 0)<br /> .如果真 (g_hWnd ≠ 0)<br />     ' 绑定引擎<br />     g_hExDui ＝ Ex_DUIBindWindowEx (g_hWnd, 0, 位或 (#EWS_MOVEABLE, #EWS_ESCEXIT, #EWS_MAINWINDOW, #EWS_CENTERWINDOW, #EWS_NOCAPTIONTOPMOST), 0, 到整数 (&_WndMsg_proc))<br />     .如果真 (g_hExDui ≠ 0)<br />         ' zc常用组件<br />         g_Page_bin ＝ A2W (“Page”, )<br />         g_Static_bin ＝ A2W (“Static”, )<br />         g_ImgBtn_bin ＝ A2W (“ImageButton”, )<br />         g_RadioBtn_bin ＝ A2W (“RadioButton”, )<br />         ' zc组件<br />         _ButtonClass_register (g_ImgBtn_bin)<br />         g_isNet ＝ 真<br />         .判断开始 (是否与互联网连接 () ＝ 假)<br />             g_isNet ＝ 假<br />         .默认<br />             g_isNet ＝ 真<br />         .判断结束<br /> <br />         ' 控件创建<br />         Top_Create ()  ' 顶边<br />         Left_Create ()  ' 左边<br />         OtherPage_Create ()<br /> <br /> <br />         Page1_Create ()<br /> <br /> <br /> <br />         ' 数据获取图片加载<br />         m_hImage ＝ _img_createfrommemory (取指针_字节集型 (#加载图), 取字节集长度 (#加载图))<br />         g_hImgLoad ＝ Ex_ObjCreate (取指针_字节集型 (g_Static_bin), 0, -1, g_width ÷ 2 － _img_width (m_hImage) ÷ 2 ＋ 75, g_height ÷ 2 － _img_height (m_hImage) ÷ 2, _img_width (m_hImage), _img_height (m_hImage), g_hExDui)  ' 数据获取加载句柄<br />         Ex_ObjSetBackgroundImage (g_hImgLoad, 取指针_字节集型 (#加载图), 取字节集长度 (#加载图), 0, 0, #BIR_NO_REPEAT, 0, 0, 255, 真)<br />         Ex_ObjHandleEvent (g_hImgLoad, #NM_EASING, 到整数 (&事件_缓动消息))<br /> <br />         .如果 (g_isNet ＝ 真)<br />             透明度缓动 (g_hImgLoad, 1000, 5, , )<br />         .否则<br />             透明度缓动 (g_hImgLoad, 1000, 5, , )<br />         .如果结束<br />         g_Rect.top ＝ 34<br />         g_Rect.left ＝ 130<br />         g_Rect.right ＝ 0<br />         g_Rect.bottom ＝ 0<br />         ' 设置窗口背景图片<br />         Ex_ObjSetBackgroundImage (g_hExDui, 取指针_字节集型 (#背景图), 取字节集长度 (#背景图), 0, 0, #BIR_DEFALUT, 取数据_通用型 (g_Rect), 0, 255, 真)<br /> <br />         ' 设置托盘图标<br />         g_wText ＝ A2W (“ExDui未闻花名盒子UI第六期” ＋ #换行符 ＋ “==双击显示启动窗口==”, )<br /> <br />         g_hIcon ＝ 托盘图标_载入图片 (g_hWnd, g_path ＋ “res/icon.ico”)<br /> <br />         Ex_DUITrayIconSet (g_hExDui, g_hIcon, 取指针_字节集型 (g_wText))<br /> <br />         ' 不在任务栏中显示<br />         SetWindowLongA (g_hWnd, #GWL_EXSTYLE, #WS_EX_TOOLWINDOW)<br /> <br />         ' 显示窗口<br />         Ex_DUIShowWindow (g_hExDui, #SW_SHOWNORMAL, 0, 0, 0)<br />         ' 消息循环<br />         Ex_WndMsgLoop ()<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> ' 反初始化引擎<br /> Ex_UnInit ()

singlecolor

来看看

fengyyun

支持开源~！感谢分享!~!~!~~!

夜潇

1218947699 发表于 2019-4-23 14:11
编译出来没法运行，除了开启兼容模式外，代码是哪里有问题么，没找出来

属于兼容性问题，开启兼容win7就好了，代码除了还可以精简优化，还未发现大问题！

dodge123

支持开源~！感谢分享!~!~!~~!

1218947699

编译出来没法运行，除了开启兼容模式外，代码是哪里有问题么，没找出来

心情好烦

支持你

心情好烦

厉害哦

huxian

这个叫仿明显一模一样的原贴，明显重复发帖

悟心猎手

感谢开源，下载支持

fengyishen

感谢开源，下载支持