新建表單檔案。在表單上新增控制元件。
1) 設定物件屬性
Form1表單Name屬性:formtest
Form1表單Caption屬性:考試系統
Form1表單BackColor屬性:192,192,192
Label1控制元件Fontname屬性:楷體
Label1控制元件Fontsize屬性:24
Label1控制元件Backcolor屬性:192,192,192
Label1控制元件Forecolor屬性:255,128,0
Label1控制元件Autosize屬性:.T.
Timer1控制元件Interval屬性:200
Command1控制元件Caption屬性:關閉
2) 編寫事件程式碼
Timer1控制元件的Timer事件:
if thisform.label1.left
thisform.label1.left =thisform.width
else
thisform.label1.left = thisform.label1.left-10
endif
Command1控制元件的Click事件:
Thisform.release
3) 儲存表單到formtest.scx檔案,執行表單測試。
新建表單檔案。在表單上新增控制元件。
1) 設定物件屬性
Form1表單Name屬性:formtest
Form1表單Caption屬性:考試系統
Form1表單BackColor屬性:192,192,192
Label1控制元件Fontname屬性:楷體
Label1控制元件Fontsize屬性:24
Label1控制元件Backcolor屬性:192,192,192
Label1控制元件Forecolor屬性:255,128,0
Label1控制元件Autosize屬性:.T.
Timer1控制元件Interval屬性:200
Command1控制元件Caption屬性:關閉
2) 編寫事件程式碼
Timer1控制元件的Timer事件:
if thisform.label1.left
thisform.label1.left =thisform.width
else
thisform.label1.left = thisform.label1.left-10
endif
Command1控制元件的Click事件:
Thisform.release
3) 儲存表單到formtest.scx檔案,執行表單測試。