炫彩界面库编写的多彩进度条

XInitXCGUI ({ }) ' dll版本2.7
程_hWindow ＝ XWnd_Create (0, 0, 400, 300, L (“自绘变色进度条”), 0, #xc_window_style_default)
局_hEle ＝ XBtn_Create (0, 0, 98, 24, L (“关闭”), 程_hWindow)
XBtn_SetType (局_hEle, #button_type_close)
程_透明度 ＝ 220
程_宽度 ＝ 198
程_高度 ＝ 20
局_开始 ＝ XBtn_Create (20, 40, 程_宽度, 程_高度, L (“Load”), 程_hWindow)
XEle_RegEventC1 (局_开始, #XE_BNCLICK, &OnBtnClick)
程_ProgBar ＝ XProgBar_Create (20, 40, 程_宽度, 程_高度, 程_hWindow)
XEle_EnableBkTransparent (程_ProgBar, 真)
XProgBar_SetRange (程_ProgBar, 100) ' 设置范围
XProgBar_SetPos (程_ProgBar, 0) ' 设置进度条当前位置
XEle_RegEventC1 (程_ProgBar, #XE_PAINT, &ProgBar_OnDraw)
XEle_ShowEle (程_ProgBar, 假)
XWnd_ShowWindow (程_hWindow, #SW_SHOW)