1、VB内调拍衡试运行。点击vb顶部工具栏的启动按钮(黑色三角形图标),或者菜单--运行-启动,快捷键是F5。这个功能在编写程序时会经常用到。
2、编译vb程序后运袭明做行。点击菜单---文件--生成工程1.exe(具体工程名字可以自己修改槐慎)。这样就会生成exe文件,点击这个exe运行就是编写好的软件。
Private Sub Command1_Click() '向右移动Timer1.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Command2_Click() '向左移动
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub 烂袜Form_Load()
Timer1.Enabled = False
Timer1.Interval 粗历团= 50
Timer2.Enabled = False
Timer2.Interval = 50
End Sub
Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 60
If Shape1.Left >= ScaleWidth Then Shape1.Left = -Shape1.Width
End Sub
Private Sub Timer2_Timer()
Shape1.Left = Shape1.Left - 岩橘60
If Shape1.Left <= -Shape1.Width Then Shape1.Left = ScaleWidth
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)