SUI2012DirectUI界面引擎+例程

对你的思念

下载好困难啊

对你的思念

有么下载点了 草

兵者

先下载看看吧

冯志彬

下载来学习一下.

fanking

我是看着界面来的

裸奔的野猪

我是看着界面来的

skyflb

模块哪里找啊~

坏坏坏锄头

.程序集变量 Window,SUI_Window
.程序集变量 pIco,整数型

.子程序 _启动子程序, 整数型
SUI_Initialize({},,假)
SUITemplete (#SUI_Templete_Normal)
SUIShadowColor (#白色)
SUI_LoadResource()
'pIco＝SUILoadImage (图标,16,16)
Window.SetBkg(,#白色)
Window.AddButton(16,32,176,32,0,,"按钮",0,9,假,假,假,假,假,假,1,1,真,假,)
Window.AddButton(192,32,176,32,0,,"按钮",0,9,假,假,假,假,假,假,1,1,真,假,)
Window.AddRadioButton(24,80,136,16,假,"单选框",0,9,假,假,假,假,假,假,0,1,真,假,假,0)
Window.AddRadioButton(24,112,136,16,假,"单选框",0,9,假,假,假,假,假,假,0,1,真,假,假,0)
Window.AddCheckBox(160,80,112,16,"选择框",0,真,9,假,假,假,假,假,假,0,1,真,假,假,0)
Window.AddCheckBox(160,112,112,16,"选择框",0,真,9,假,假,假,假,假,假,0,1,真,假,假,0)
Window.AddSlider(16,152,152,24,1,10,1,假,真,假)
Window.AddLabel(24,192,200,40,"测试标签",真,假,0,9,假,假,假,假,假,假,0,1,真,假,假)
Window.AddEdit(184,128,184,24,0,假,"123",9,16383,0,0,,,假,假,假,0,真,真,真,真,真,假)
Window.AddEdit(184,160,184,32,0,假,"456",9,16383,0,0,,,假,假,假,0,真,真,真,真,真,假)
Window.CreateEx(0,假,435,254,409,292,假,0,真,假,假,假,pIco,,假,"",#黑色,真,真,假,0)
Window.Ptr(, 到整数 (&MsgCallBack),,)
Window.Icon(pIco)
Window.show(真)
SUIDispatchMessage()
'SUIDeleteImage(pIco)
SUI_Remove(真)
返回(0)
.子程序 MsgCallBack, 逻辑型
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.判断开始 (wMsg ＝ #WM_DESTROY)
    SUIIsDispatchMessage (假)
.默认

.判断结束
返回 (假)

坏坏坏锄头

.程序集变量 Window,SUI_Window
.程序集变量 pIco,整数型

.子程序 _启动子程序, 整数型
SUI_Initialize({},,假)
SUITemplete (#SUI_Templete_Normal)
SUIShadowColor (#白色)
SUI_LoadResource()
'pIco＝SUILoadImage (图标,16,16)
Window.SetBkg(,#白色)
Window.AddButton(16,32,176,32,0,,"按钮",0,9,假,假,假,假,假,假,1,1,真,假,)
Window.AddButton(192,32,176,32,0,,"按钮",0,9,假,假,假,假,假,假,1,1,真,假,)
Window.AddRadioButton(24,80,136,16,假,"单选框",0,9,假,假,假,假,假,假,0,1,真,假,假,0)
Window.AddRadioButton(24,112,136,16,假,"单选框",0,9,假,假,假,假,假,假,0,1,真,假,假,0)
Window.AddCheckBox(160,80,112,16,"选择框",0,真,9,假,假,假,假,假,假,0,1,真,假,假,0)
Window.AddCheckBox(160,112,112,16,"选择框",0,真,9,假,假,假,假,假,假,0,1,真,假,假,0)
Window.AddSlider(16,152,152,24,1,10,1,假,真,假)
Window.AddLabel(24,192,200,40,"测试标签",真,假,0,9,假,假,假,假,假,假,0,1,真,假,假)
Window.AddEdit(184,128,184,24,0,假,"123",9,16383,0,0,,,假,假,假,0,真,真,真,真,真,假)
Window.AddEdit(184,160,184,32,0,假,"456",9,16383,0,0,,,假,假,假,0,真,真,真,真,真,假)
Window.CreateEx(0,假,435,254,409,292,假,0,真,假,假,假,pIco,,假,"",#黑色,真,真,假,0)
Window.Ptr(, 到整数 (&MsgCallBack),,)
Window.Icon(pIco)
Window.show(真)
SUIDispatchMessage()
'SUIDeleteImage(pIco)
SUI_Remove(真)
返回(0)
.子程序 MsgCallBack, 逻辑型
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.判断开始 (wMsg ＝ #WM_DESTROY)
    SUIIsDispatchMessage (假)
.默认

.判断结束
返回 (假)

syy6542320

谢谢分享