§Þîrî'][' §qÚåÐ FoRuM 2oo7
Numele forumului cat si aceasta descriere pot fi modificate accesind meniul ADMIN -> OPTIUNI
|
Nou pe simpatie:
Aandreea
 | Femeie
24 ani
Bucuresti
cauta Barbat
25 - 52 ani |
|
|
§Þîrî'][' §qÚåÐ FoRuM 2oo7InregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
Code:
Option Explicit
Private DSTOP As Boolean
Private Sub Form_Deactivate()
DSTOP = True
DoEvents
End Sub
Private Sub Form_Unload(Cancel As Integer)
DSTOP = True
DoEvents
End
End Sub
Private Sub Command1_Click()
Dim i As Single
If (Command1.Caption = "Stop" Then
DSTOP = True
Exit Sub
End If
Command1.Caption = "Stop"
For i = 0 To 100 Step 0.005
If DSTOP = True Then
Command1.Caption = "&Begin Test"
DSTOP = False
Exit For
End If
ProgressBar1.Value = i
ProgressBar2.Value = i
DoEvents
Next i
End Sub
|
|
| |
|
