狠狠撸

Lipa City

RD Software Engineer (Junior)

Hide Imgmypic.visible=false Cmdhide.enable=false Cmdshow.enable=true Show Imgmypic.visible=true Cmdshow.enable=false Cmdhide.enable=false 1.Create object 2.Nameobject-use prefix 3.Changepropertise of object 4.Create events 5.navigate in diff. forms Build.vbp Bounce.vbp Form -frmhide -frmbuild -frmbounce Cmd2 -form 1.hide -form2.show Cmd3 -form1.hide -form3.show Dim vel, vdir, hdir As Double Private Sub cmdgo_Click() cmdgo.enable = True End Sub Private Sub cmdstop_Click() cmdstop.enable = False End Sub Private Sub Form_Load() vel = 10 vdir = 1 hdir = 1 End Sub Private Sub Timer1_Timer() ball.Left = ball.Left + (hdir * vel) ball.Top = ball.Top