VB6.0에서 타이머를 사용하는 질문

Question

내 코드에 대한 쿼리가 있는데 VB6.0을 사용하고 있는데 TimerControl을 사용하는 데 문제가 있습니다. 사용자는 먼저 Login[frmLogin]을 입력 한 다음 Timer[tmLogin]/Progressbar[pgLogin]이 100 %에 도달 한 후 EmployeeForm[frmEmployee]으로 리디렉션됩니다.

Private Sub tmLogin_Timer() 
    With Me.pbLogin 
     Me.pbLogin.Value = Me.pbLogin.Value + 1 
     Me.lblLoginPercent.Caption = Str(Me.pbLogin.Value) + "%" 
     If Me.pbLogin.Value >= 1 And Me.pbLogin.Value < 50 Then 
      Me.lblConnecting.Caption = "Connecting..." 
     ElseIf Me.pbLogin.Value >= 50 And Me.pbLogin.Value < 100 Then 
      Me.lblConnecting.Caption = "Logging in..." 
     Else 
      Me.lblConnecting.Caption = "Done..." 
      frmLogin.Hide 
      frmEmployee.Show 
      Me.tmLogin.Enabled = False 
      Exit Sub 
     End If 
    End With 
End Sub 

Answer 1

당신은 수행되는 다른 처리가 없기 때문에 타이머 이벤트는 한 발사 알고 있어야합니다 : 여기

Private Sub cmdContinue_Click() 
    If Me.txtUserID.Text = "" Or Me.txtPassword.Text = "" Then 
     MsgBox "Required field must not be a null.", vbCritical, "ERROR" 
    Else 
     Do Until datLogin.Recordset.EOF 
      With datLogin.Recordset 
       If Me.txtUserID.Text = !empid And Me.txtPassword.Text = !Password Then 

        'Here 

       Else 
        datLogin.Recordset.MoveNext 
       End If 
      End With 
     Loop 
     MsgBox "User ID and Password didn't match!", vbCritical, "ERROR LOGIN" 
    End If 
End Sub 

이 Timer 내 코드입니다 : 여기

내 코드입니다 당신의 응용 프로그램.

다음과 같은 방법으로 그것을 수행하려고 할 수

:

Private Sub cmdContinue_Click() 
    Dim boolLoggedIn As Boolean 

    If Me.txtUserID.Text = "" Or Me.txtPassword.Text = "" Then 
     MsgBox "Required field must not be a null.", vbCritical, "ERROR" 
    Else 
     Do Until datLogin.Recordset.EOF 
      With datLogin.Recordset 
       If Me.txtUserID.Text = !empid And Me.txtPassword.Text = !Password Then 
        boolLoggedIn = true 
        Exit Do 
       Else 
        datLogin.Recordset.MoveNext 
       End If 
      End With 
     Loop 

     If boolLoggedIn Then 
      'While the timer is running frmLogin will still accept user 
      'input, so you should disable the form to prevent that. 
      'You should also consider closing the recordset if it isn't 
      'going to be needed further on. 
      tmLogin.Enabled = true 
     Else 
      MsgBox "User ID and Password didn't match!", vbCritical, "ERROR LOGIN" 
     End If 
    End If 
End Sub 

타이머 이벤트는이 하위가 종료하고 다른 코드가 실행되지되면 발생하기 시작합니다.