添加兩個Shape1,Shape2。
時鐘控制定時器1
代碼如下:
Dim D As Integer '服務方向
將F作為布爾型服務信號
將V作為整數標註移動距離
Private Sub Form_KeyDown(KeyCode為整數,Shift為整數)
選擇案例鍵碼
案例32
定時器1。啟用=真
F =真
案例37
Shape1。左= Shape1。向左- V
如果Shape1。Left & lt= 0那麽Shape1。左= 0
如果F = False,則Shape2。左= Shape1。左+ (Shape1。寬度形狀2。寬度)/ 2: D = 2
案例39
Shape1。左= Shape1。向左+ V
如果Shape1。Left & gt= frmZQ。ScaleWidth - Shape1寬度然後形狀1。Left = frmZQ。ScaleWidth - Shape1寬度
如果F = False,則Shape2。左= Shape1。左+ (Shape1。寬度形狀2。寬度)/ 2: D = 4
其他情況
結束選擇
末端接頭
私有子窗體_Load()
具有Shape1
。Left = (frmZQ。刻度寬度。寬度)/ 2
。Top = 260
以…結尾
帶形狀2
。Left = (frmZQ。刻度寬度。寬度)/ 2
。Top = 240
以…結尾
V = 10
末端接頭
私有子定時器1_Timer()
選擇案例D
案例4
形狀2。左=形狀2。左+ V:形狀2。Top = Shape2。頂部+ V
如果形狀2。Left & gt= frmZQ。縮放寬度-形狀2。寬度則D = -2
如果形狀2。Top & gt= 240和(Shape1。左形2。Left & gt= -10和Shape1。左形2。Left & lt= 70)那麽D = 4
如果形狀2。Top & gt= frmZQ。然後卸下我
案例3
案例2
形狀2。左=形狀2。左- V:形狀2。Top = Shape2。頂部+ V
如果形狀2。Left & lt= 0,那麽D = -4
如果形狀2。Top & gt= 240和(Shape1。左形2。Left & gt= -10和Shape1。左形2。Left & lt= 70)那麽D = 2
如果形狀2。Top & gt= frmZQ。然後卸下我
案例-1
案例0
案例1
案例2
形狀2。左=形狀2。左- V:形狀2。Top = Shape2。Top - V
如果形狀2。Left & lt= 0,則D = 4
如果形狀2。Top & lt= 0,那麽D = -2
案例3
案例4
形狀2。左=形狀2。左+ V:形狀2。Top = Shape2。Top - V
如果形狀2。Left & gt= frmZQ。縮放寬度-形狀2。寬度則D = 2
如果形狀2。Top & lt= 0,那麽D = -4
其他情況
結束選擇
末端接頭
如果妳需要源代碼,我可以發給妳。