您所在位置：主题：[讨论]请问可用keyup运行progressbar吗?
cskms
[专家分：0] 发布于 2010-03-22 20:38:00
看到Vb6的progressbar后, 突然有一个想法，就是想将它变成能源值 或是目标值等等。
form1入面有ProgressBar1和check1, 当check1.value=1后, 再按下command1, 之后只要按下键盘上的任何一个键, ProgressBar1的数值就会+1并用label1显示, 当数值够了, form2出现。
请问一下, 如果我想设定按了特定的键(例如F3 / alt+F12)后ProgressBar1的数值才会+1, 应该怎样改?
------------------------------------------------------------------
Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)
Label1 = ProgressBar1.Value
If Check1.Value = 1 Then
ProgressBar1.Value = ProgressBar1.Value + 1
End If
If ProgressBar1.Value = 80 Then
Beep
Form2.Show
End If
End Sub
Private Sub Form_Load()
ProgressBar1.Value = 0
End Sub
form1入面有ProgressBar1和check1, 当check1.value=1后, 再按下command1, 之后只要按下键盘上的任何一个键, ProgressBar1的数值就会+1并用label1显示, 当数值够了, form2出现。
请问一下, 如果我想设定按了特定的键(例如F3 / alt+F12)后ProgressBar1的数值才会+1, 应该怎样改?
------------------------------------------------------------------
Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)
Label1 = ProgressBar1.Value
If Check1.Value = 1 Then
ProgressBar1.Value = ProgressBar1.Value + 1
End If
If ProgressBar1.Value = 80 Then
Beep
Form2.Show
End If
End Sub
Private Sub Form_Load()
ProgressBar1.Value = 0
End Sub