.版本 2 .程序集 程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码
.局部变量 hwindow
.局部变量 hScrollView
.局部变量 hButtn XInitXCGUI (“”) ' 界面初始化
hwindow ＝ XWnd_CreateWindow (400, 200, 300, 200, A2W (“测试”), 0, #XC_SY_DEFAULT) ' 创建窗口
XWnd_ShowWindow (hwindow, #SW_SHOW) ' 显示窗口
' 创建滚动视图
hScrollView ＝ XSView_Create (10, 10, 200, 100, hwindow) ' 创建滚动视图元素
XSView_SetSize (hScrollView, 300, 300) ' 设置滚动视图内容大小
' 在滚动视图内容放置一个按钮,以便看见滚动效果
hButtn ＝ XBtn_Create (10, 60, 60, 25, A2W (“button”), hScrollView)
XEle_RegisterEvent (hScrollView, #XE_HSCROLLVIEW, &MyEventHScrollView)
XRunXCGUI ()
返回 (0) ' 返回值被忽略。 .子程序 MyEventHScrollView, 逻辑型
.参数 hEle
.参数 hEventEle
.参数 pos 输出调试文本 (“视图水平滚动,位置:”, pos)
返回 (假)