一个简单VB程序设计过程 - 图文

1.3.4 编写程序代码?6、引例程序代码的编辑

当在代码窗口的两个列表框中选定一个对象的一个事件，代码编辑区的光标会自动停留在这个事件过程中的第一行代码开头处。

如果事件过程不存在，代码编辑区会自动创建事件过程头和事件过程尾。

根据引例程序的功能要求，需要编辑5个事件过程的程序代码。

1.3.4 编写程序代码（1）编辑窗体的Load事件过程——由操作系统激活窗体的Load事件，驱动Form1_Load事件过程执行，Load事件过程中使用Move方法将小球移动到初始位臵坐标（2100，600）处，并规定了水平和垂直方向每次移动的距离值。Dim mx, myAs Integer '声明mx为窗体级变量Private Sub Form_Load ( )'窗体的Load事件，运行程序时由系统自启动Shape1.Move2100, 600 '开始时将小球定位在（1500,500）处mx= 100 '沿水平方向每次移动的增量my= 100 '沿垂直方向每次移动的增量End Sub1.3.4 编写程序代码（2）编辑4个移动方向的事件过程——由程序用户分别激活4个命令按钮Command的Click事件，分别驱动4个Click事件过程执行，每个Click事件过程中分别通过修改小球图形对象的4个不同位臵坐标达到不同方向移动的效果。

Private Sub Command1_Click ( ) 'Command1的Click事件过程，鼠标单击，小球向左移动一次Shape1.Left= Shape1.Left-mxEnd SubPrivate Sub Command2_Click ( )'Command2的Click事件过程，鼠标单击，小球向右移动一次Shape1.Left= Shape1.Left+ mxEnd Sub1.3.4 编写程序代码Private Sub Command3_Click ( ) ‘Command3的Click事件过程，鼠标单击，小球向上移动一次Shape1. Top= Shape1.Top-myEnd SubPrivate Sub Command4_Click ( )‘Command4的Click事件过程，鼠标单击，小球向下移动一次Shape1. Top= Shape1. Top+ myEnd Sub类似条件反射机制，条件就是发生的事件，而事件产生的反射由设计的事件过程代码决定。