UC知道vb的ProgessBar控件的问题
来源：百度知道 编辑：UC知道 时间：2024/06/06 19:02:23
Private Sub Cmd1_Click()
Tmr1.Enabled = True
End Sub
Private Sub Form_Load()
Txt1.Text = "心之所愿，无事不成"
End Sub
Private Sub Tmr1_Timer()
ProBar1.Value = ProBar1.Value + 10
Lbl1.Caption = Str(ProBar1.Value) & "%"
If ProBar1.Value = 100 Then
Txt2.Text = "Nothing is impossible to a willing heart."
Tmr1.Enabled = False
End If
End Sub
怎么程序没有用啊
我用了cmd1,tmr1,probar1,Txt1,TXt2控件
Tmr1.Enabled = True
End Sub
Private Sub Form_Load()
Txt1.Text = "心之所愿，无事不成"
End Sub
Private Sub Tmr1_Timer()
ProBar1.Value = ProBar1.Value + 10
Lbl1.Caption = Str(ProBar1.Value) & "%"
If ProBar1.Value = 100 Then
Txt2.Text = "Nothing is impossible to a willing heart."
Tmr1.Enabled = False
End If
End Sub
怎么程序没有用啊
我用了cmd1,tmr1,probar1,Txt1,TXt2控件
Private Sub Cmd1_Click()
Tmr1.Enabled = True
Tmr1.interval = 500
ProBar1.max =100
ProBar1.min = 0
ProBar1.value = 0
End Sub
Private Sub Form_Load()
Txt1.Text = "心之所愿，无事不成"
End Sub
Private Sub Tmr1_Timer()
ProBar1.Value = ProBar1.Value + 10
Lbl1.Caption = Str(ProBar1.Value) & "%"
If ProBar1.Value = 100 Then
Txt2.Text = "Nothing is impossible to a willing heart."
Tmr1.Enabled = False
End If
End Sub