DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

How to make a Loading bar??

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Jul 2007

Posts: 102

Reputation: hawisme000 is an unknown quantity at this point

Solved Threads: 2

hawisme000 hawisme000 is offline

Offline

Junior Poster

How to make a Loading bar??

Oct 24th, 2007

can any1 help me use a progress bar(if im not mistaken)

i wanna put a loading bar in my login form

but i dont know the syntax i must put

thx in advance to any1 who can help

•

Join Date: Oct 2007

Posts: 3

Reputation: td5223 is an unknown quantity at this point

Solved Threads: 1

td5223

Offline

Newbie Poster

Re: How to make a Loading bar??

Oct 24th, 2007

Go to Components - Controls and add "Microsoft Windows Common Controls" to your project. Then the progressbar should appear in your list of components. Then select the progressbar and create it on your form. The value can be set something like mainform.progressbar1.value = 50.... (0-100)

•

Join Date: Aug 2007

Posts: 570

Reputation: ryan_vietnow is an unknown quantity at this point

Solved Threads: 71

ryan_vietnow ryan_vietnow is offline

Offline

Posting Pro

Re: How to make a Loading bar??

Oct 24th, 2007

add a timer and a progress bar to your form.
set the progressbar1.max(or maximum i think) to 100,value to 0.
set the timer1.enabled=false

type this inside the timer event:

If ProgressBar1.Value <> ProgressBar1.Max Then
ProgressBar1.Value = (ProgressBar1.Value + 1)
else
frmlogin.hide(or Unload frmlogin)
frmMain.Show
me.enabled=0
End If

then type this after the user successfully logged:
timer1.enabled=1

*change the progressbar1.interval if how fast or slow you progress bar should be.

http://www.ryantetek.com/

•

Join Date: Dec 2007

Posts: 11

Reputation: jayDC is an unknown quantity at this point

Solved Threads: 0

jayDC

Offline

Newbie Poster

Re: How to make a Loading bar??

Dec 15th, 2007

I have this in my code

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub mnuOpen_Click()
Dim result As FMOD_RESULT
Dim cD As New cCommonDialog
If channel Then
Call FMOD_Channel_Stop(channel)
End If
Timer1.Enabled = 1
On Error GoTo ErrorHandler
   If (cD.VBGetOpenFileName(sFile, Filter:="Wave Files (*.WAV)|*.WAV|All Files (*.*)|*.*", _
      DefaultExt:="WAV", Owner:=Me.Hwnd)) Then
    Timer1.Enabled = 1
    result = FMOD_System_CreateSound(system, sFile, FMOD_SOFTWARE, Sound)
    ERRCHECK (result)
    result = FMOD_System_PlaySound(system, FMOD_CHANNEL_FREE, Sound, 0, channel)
        ERRCHECK (result)
        result = FMOD_Channel_SetPaused(channel, 1)
        vbalWaveRender1.WaveFile = sFile
   End If
   Exit Sub
ErrorHandler:
   MsgBox "Error: " & Err.description, vbExclamation
   Exit Sub
End Sub
Private Sub mnuOpen_Click()
Dim result As FMOD_RESULT
Dim cD As New cCommonDialog
If channel Then
Call FMOD_Channel_Stop(channel)
End If
Timer1.Enabled = 1
On Error GoTo ErrorHandler
   If (cD.VBGetOpenFileName(sFile, Filter:="Wave Files (*.WAV)|*.WAV|All Files (*.*)|*.*", _
      DefaultExt:="WAV", Owner:=Me.Hwnd)) Then
    Timer1.Enabled = 1
    result = FMOD_System_CreateSound(system, sFile, FMOD_SOFTWARE, Sound)
    ERRCHECK (result)
    result = FMOD_System_PlaySound(system, FMOD_CHANNEL_FREE, Sound, 0, channel)
        ERRCHECK (result)
        result = FMOD_Channel_SetPaused(channel, 1)
        vbalWaveRender1.WaveFile = sFile
   End If
   Exit Sub
ErrorHandler:
   MsgBox "Error: " & Err.description, vbExclamation
   Exit Sub
End Sub

Seem to make the progress after the files load, and that really ain't the progress. Anyway to adjust it to be more accurate, should I move the file loading events to the timer to be executed during the progress bar?