UC知道这个VB有什么问题
来源：百度知道 编辑：UC知道 时间：2024/06/05 07:12:26
Option Explicit
Dim V%, JS!
Private Sub Command1_Click()
V = Combo1.Text
Timer1.Enabled = True
JS = 0
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set Picture = LoadPicture("VB 背景 1.bmp")
Label1.Caption = "演示火箭匀速垂直运动"
Label2.Caption = "选择速度 米/秒"
Label3.Caption = "升空时间 秒"
Label5.Caption = "速度 米/秒"
Label7.Caption = "升空高度 米"
Label4.Caption = ""
Label6.Caption = ""
Label8.Caption = ""
Command1.Caption = "发射按钮"
Command2.Caption = "结束按钮"
Combo1.AddItem (Str(10))
Combo1.AddItem (Str(20))
Combo1.AddItem (Str(30))
Combo1.AddItem (Str(40))
Combo1.AddItem (Str(50))
Combo1.Text = 30
Picture1.Picture = LoadPicture("China 火箭.bmp")
Picture1.AutoSize = True
Timer1.Enabled = False<
Dim V%, JS!
Private Sub Command1_Click()
V = Combo1.Text
Timer1.Enabled = True
JS = 0
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set Picture = LoadPicture("VB 背景 1.bmp")
Label1.Caption = "演示火箭匀速垂直运动"
Label2.Caption = "选择速度 米/秒"
Label3.Caption = "升空时间 秒"
Label5.Caption = "速度 米/秒"
Label7.Caption = "升空高度 米"
Label4.Caption = ""
Label6.Caption = ""
Label8.Caption = ""
Command1.Caption = "发射按钮"
Command2.Caption = "结束按钮"
Combo1.AddItem (Str(10))
Combo1.AddItem (Str(20))
Combo1.AddItem (Str(30))
Combo1.AddItem (Str(40))
Combo1.AddItem (Str(50))
Combo1.Text = 30
Picture1.Picture = LoadPicture("China 火箭.bmp")
Picture1.AutoSize = True
Timer1.Enabled = False<
你的窗体应该为form11,所以检查一下窗体名是否为form11
窗体上是否有一个picture的图像控件!没有重建一个!不要建错!
要建立那个名为picture的不要建image!
Form11.Height 改成：Form1.Height
Labe14.Caption = JS 改成：LabeL4.Caption = JS '注意1与L
Labe16.Caption = V 改成：LabeL6.Caption = V '注意1与L
Labe18.Caption = H 改成：LabeL8.Caption = H '注意1与L