|
发表于 2019-4-2 23:12:36
|
显示全部楼层
河南省郑州市
.版本 2 .子程序 _启动窗口_创建完毕 .参数 标题, 文本型, 可空 .参数 默认主题, 字节集, 可空 .局部变量 bin, 字节集 .局部变量 wzText, 字节集 .局部变量 hObj, 整数型 .局部变量 grid, EX_RECT ' 初始化窗口宽度和高度 g_width = 850 g_height = 550 g_Var = “Version:1.0” ' 初始化引擎 Ex_Init (0, 位或 (#EXGF_DPI_ENABLE, #EXGF_RENDER_METHOD_D2D, #EXGF_MENU_ALL), 0, 0, 取指针_字节集型 (选择 (是否为空 (默认主题), #主题Default, 默认主题)), 取字节集长度 (选择 (是否为空 (默认主题), #主题Default, 默认主题)), 0, 0) ' 创建窗口 bin = A2W (标题, ) m_hWnd = Ex_WndCreate (0, 0, 取指针_字节集型 (bin), 0, 0, g_width, g_height, 0, 0) .如果真 (m_hWnd ≠ 0) ' 绑定引擎 m_hExDui = Ex_DUIBindWindowEx (m_hWnd, 0, 位或 (#EWS_MOVEABLE, #EWS_ESCEXIT, #EWS_MAINWINDOW, #EWS_CENTERWINDOW), 0, 到整数 (&窗口消息回调)) .如果真 (m_hExDui ≠ 0) ' zc常用组件 bin = A2W (“ImageButton”, ) ' zc组件 _ButtonClass_register (bin) Title_Create () ' 标题 Left_Create () ' 左边 Top_Create () ' 顶边 TabBox_Create () ' 中间 right_Create () ' 右边 bottom_Create () ' 底边 网络是否连接 (m_hObj_Net) ' 设置窗口背景颜色 ' Ex_DUISetLong (m_hExDui, #EWL_CRBKG, RGB2ARGB (#浅灰, 255)) ' 设置窗口背景图片 Ex_ObjSetBackgroundImage (m_hExDui, 取指针_字节集型 (#底图1), 取字节集长度 (#底图1), 0, 0, #BIR_DEFALUT, 0, #BIF_PLAYIMAGE, 255, 真) ' 显示窗口 Ex_DUIShowWindow (m_hExDui, #SW_SHOWNORMAL, 0, 0, 0) ' 消息循环 Ex_WndMsgLoop () .如果真结束 .如果真结束 ' 反初始化引擎 Ex_UnInit () |
|