Timer Control

[BurnMan2003]

I am using VB6 and I want a flash movie to play while showing a message while my database looks up the userid and password codes. Problem is... the database is too small and my flash doesn't get shown. I want to know how I can delay (like 2 seconds ) so I can show that flash doc before it begins looking up in the database. I need some sort of timer control that is triggered by the clicking of the submit button so the user knows that the information is being verified. Thanks on avance!

[BurnMan2003]

Please excuse the typing... as I am extemely tired!

[SimonVega]

Display your flash movie on a seperate thread and explicity force the thread to sleep for 2 seconds after calling the db:

using System;
using System.Threading;

class ShowFlash {

    static void Main() {
        Thread t = new Thread(new ThreadStart(DisplayFlash));
        t.Start();
        RetrieveDBInfo();
        t.Abort();
    }

    static void DisplayFlash() {
        Console.WriteLine("Display Flash Movie Here..");
    }

    static void RetrieveDBInfo() {
        // Retrieve information from db
        Thread.Sleep(2000);
    }
}

[Pirate]

Originally posted by BurnMan2003
I am using VB6 and I want a flash movie to play while showing a message while my database looks up the userid and password codes. Problem is... the database is too small and my flash doesn't get shown. I want to know how I can delay (like 2 seconds ) so I can show that flash doc before it begins looking up in the database. I need some sort of timer control that is triggered by the clicking of the submit button so the user knows that the information is being verified. Thanks on avance!

If you want to make use of threading , SimonVega got a good example otherwise , paste a timer control , disable it , and fire it after the user fill in empty spaces .

timer1.interval = 2000
timer1.enabled =true

[Pirate]

the code should go inside a button the user will click !

[SimonVega]

the code should go inside a button the user will click !

Thanks for the clarification...

[BurnMan2003]

Will this work in VB6, because it looks like c++ coding with the braces!

[BurnMan2003]

OK when the user fills in the userid and the password, they click on the submit. I then want the flash movie that says "Validating" to appear and run.. but the database is too small for it to play because it finds the data too fast. How can I from The submit button in VB6 get that flash movie to play for 2 or 3 seconds and then search the database? Thaks, I hope ths is clearerr.... here is the code I have so far under the command button:

Private Sub cmdSubmit_Click()
' Validate Inputs
On Error GoTo Err_Check
Dim strsql As String

strsql = "Select * FROM tblUsers Where UserName = '" & txtUserName.Text & "'"
flaVerify.Visible = True
cmdSubmit.Enabled = False


Set rst = New ADODB.Recordset

rst.Open strsql, cnn, adOpenForwardOnly, adLockReadOnly
If Not rst.EOF And Not rst.BOF Then
If rst!Password = txtPwd.Text Then
frmSwitch.Show
Me.Hide


Else
flaVerify.Visible = False
MsgBox "Invalid Password"
cmdSubmit.Enabled = True

End If
Else
flaVerify.Visible = False
MsgBox "Invalid User Name"
cmdSubmit.Enabled = True
End If
rst.Close
Exit_Check:
Set rst = Nothing
Exit Sub
Err_Check:
MsgBox Err.Description, "Login Function"
Resume Exit_Check


End Sub

[SimonVega]

Just noticed you mentioned VB6...This is a .NET Forum.

The code I posted is in C#. Here is a VB.NET equivalent:

Imports System
Imports System.Threading

Public Module Module1
    Sub Main()
        Dim t As New Thread(AddressOf ShowFlash.DisplayFlash)
        t.Start()
        ShowFlash.CallDB()
        t.Abort()
    End Sub
End Module

Public Class ShowFlash
    Public Shared Sub DisplayFlash()
        Console.WriteLine("Display Flash...")
    End Sub

    Public Shared Sub CallDB()
        Console.WriteLine("Call DB")
        Thread.Sleep(2000)
    End Sub
End Class

[BurnMan2003]

Will this work in VB6?

[Pirate]

Originally posted by BurnMan2003
Will this work in VB6?

What ! VB6 ???

[BurnMan2003]

yes... VB6, I have to finish this by semester's end, and I don't have time to learn another language and the ne wstuff in .NET. Can you please help! Thanks man!

[Pirate]

Originally posted by BurnMan2003
Will this work in VB6?

It won't work .
Just try what I've posted , it should work !

[BurnMan2003]

Using my coding from the command button, where should I insert your code for best results?

[Pirate]

Hold on

[BurnMan2003]

k... Thanks!

[SimonVega]

Try using the Shell() VB function, passing in the path to your wav file. This will run on a seperate thread.

[Pirate]

try this now : add timer1 to your form !

Private Sub cmdSubmit_Click()
' Validate Inputs
    On Error GoTo Err_Check
    Dim strsql As String
    strsql = "Select * FROM tblUsers Where UserName = '" & txtUserName.Text & "'"
    
    'Show flash movie
FireTimer
    
    Set rst = New ADODB.Recordset
    
    rst.Open strsql, cnn, adOpenForwardOnly, adLockReadOnly
    If Not rst.EOF And Not rst.BOF Then
        If rst!Password = txtPwd.Text Then
           'Stop the timer
        Timer1.Enabled = False
        
            frmSwitch.Show
            Me.Hide
            
        Else
            flaVerify.Visible = False
            
            'Stop the timer
            Timer1.Enabled = False
            
            MsgBox "Invalid Password"
            cmdSubmit.Enabled = True
            
        End If
    Else
       'Stop the timer
       Timer1.Enabled = False
       
        flaVerify.Visible = False
        MsgBox "Invalid User Name"
        cmdSubmit.Enabled = True
    End If
    rst.Close
Exit_Check:
    Set rst = Nothing
    Exit Sub
Err_Check:
  MsgBox Err.Description, "Login Function"
    Resume Exit_Check
End Sub
 
Sub FireTimer()
Timer1.Enabled = True
    flaVerify.Visible = True
    cmdSubmit.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Interval = 3000
Timer1.Enabled = False
End Sub

[BurnMan2003]

Will try it.. thanks!

[BurnMan2003]

Gonna have to check it out, because it is still bypassing showing the flash movie when I click the button. It shoudl always show the flash before jumping pages, and it isn't... why????

[Pirate]

Is flaVerify form or flash object ?? Does the form overrides the movie ??

[BurnMan2003]

flaVerify is the flash movie.... not sure what you mean my overrides movie. It should be shown for 2 seconds before the database is even accessed to search.. just for show you know!

[Pirate]

try this site which has a good splash screens . It's easy but you missed something out there . I gotta go now

[Pirate]

I added StopTimer sub . see if it helps !

Originally posted by Pirate
try this now : add timer1 to your form !

Private Sub cmdSubmit_Click()
' Validate Inputs
    On Error GoTo Err_Check
    Dim strsql As String
    strsql = "Select * FROM tblUsers Where UserName = '" & txtUserName.Text & "'"
    
    'Show flash movie
FireTimer
    
    Set rst = New ADODB.Recordset
    
    rst.Open strsql, cnn, adOpenForwardOnly, adLockReadOnly
    If Not rst.EOF And Not rst.BOF Then
        If rst!Password = txtPwd.Text Then
           'Stop the timer
StopTimer
        
            frmSwitch.Show
            Me.Hide
            
        Else
            flaVerify.Visible = False
            
            'Stop the timer
StopTimer
            
            MsgBox "Invalid Password"
            cmdSubmit.Enabled = True
            
        End If
    Else
       'Stop the timer
StopTimer
       
        flaVerify.Visible = False
        MsgBox "Invalid User Name"
        cmdSubmit.Enabled = True
    End If
    rst.Close
Exit_Check:
    Set rst = Nothing
    Exit Sub
Err_Check:
  MsgBox Err.Description, "Login Function"
    Resume Exit_Check
End Sub
 
Sub FireTimer()
Timer1.Enabled = True
    flaVerify.Visible = True
    cmdSubmit.Enabled = False
End Sub
 
Sub StopTimer()
Timer1.Enabled = False
flaVerify.Visible = False
cmdSubmit.Enabled = True
End Sub
 
Private Sub Form_Load()
Timer1.Interval = 3000
Timer1.Enabled = False
End Sub