•
•
•
•
What is DaniWeb IT Discussion Community?
You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 456,564 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,584 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums
Views: 1536 | Replies: 3 | Solved
![]() |
•
•
Join Date: Aug 2007
Location: Cavite,Philippines
Posts: 508
Reputation:
Rep Power: 3
Solved Threads: 68
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.
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.
"death is the cure of all diseases..."
http://ryantetek.wordpress.com
http://ryantetek.wordpress.com
•
•
Join Date: Dec 2007
Posts: 11
Reputation:
Rep Power: 1
Solved Threads: 0
I have this in my code
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?
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 If at first you don't succeed, don't try skydiving!
![]() |
•
•
•
•
•
•
•
•
DaniWeb Visual Basic 4 / 5 / 6 Marketplace
•
•
•
•
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Similar Threads
- Windows Explorer Issue: my "Address" bar is gone, how do I get it back? (Windows NT / 2000 / XP / 2003)
- About Progress Bar (Visual Basic 4 / 5 / 6)
- progress bar (Visual Basic 4 / 5 / 6)
- css to make navigation bar (HTML and CSS)
- how to make animation bar in javascript (JavaScript / DHTML / AJAX)
- windows explorer -explorer bar sticky on desktop (Windows Software)
- Loading Bar Problem (Web Browsers)
- ie problems (Web Browsers)
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- Previous Thread: Large Icon ListView like with Text area
- Next Thread: VU Meter to control a clavilux


Linear Mode