This.CurrentX=nXcoord
This.CurrentY=nYcoord
编写Form1_MouseMove()事件代码:
LPARAMETERS nButton, nShift, nXCoord, nYCoord&&画线
Ifnbutton=1
This.Line (nXcoord,nYcoord)
Endif
编写Command2_Click()事件代码:
Thisform .Cls &&擦除
编写Command3_Click()事件代码:
Thisform.Release&&退出
编写Spinner1_ InteractiveChange()事件代码:
Thisform.Drawwidth=This.Value&&控制画线的宽度
编写Command1_Click()事件代码:
Thisform.Forecolor=RGB(Rand()*255,Rand()*255,Rand()*255)
&&控制画笔的颜色,每次单击“颜色”按钮,就会得到不同的颜色,随机的。
编写Command4_Click()事件代码:
Thisform.Label2.Visible=.T.&&滚动字幕显示
Thisform.Label2.Caption=“来!大显身手!”
b=Thisform.Label2.Caption
Key=0
Do While Key!=32&&按空格键停止
b1=Substr(b,1,2)
b=Alltrim(Substr(b,3))+b1 &&使字符串首尾相接,循环不断
Thisform.Label2.Caption=b
Key=Inkey(0.7,'H') &&延时0.7秒
Thisform.Refresh
Enddo
Thisform.Label2.Visible=.F. &&字幕隐藏
四、 运行
画完图后,想看一下效果,就运行此表单。共有四种方法:
> 单击常用工具栏的“运行”按钮;
> 按组合键Ctrl+E;
> 在命令窗口中输入命令:Do Form Form1.scx
> 打开“程序”菜单,选择“运行”选项。在弹出的“运行”对话框中选择表单名,单击“运行“按钮。
五、 打印
表单运行后,按组合键Alt+PrintScreen进行屏幕拷贝,以图片的形式将其粘贴到Microsoft Word文档中,进行打印即可。
带着自己的作品回家,小顾客们一定会兴高采烈,父母也会觉得轻松愉快。在商家众多、竞争日趋激烈的今天,希望各卖场调动员工的积极性,利用计算机编程语言开发出更多更简便易行的小程序,丰富卖场的娱乐活动,创造良好的服务质量与服务方式,一定会给卖场带来勃勃的生机和可观的效益。