Welcome!

Join our community of MMO enthusiasts and game developers! By registering, you'll gain access to discussions on the latest developments in MMO server files and collaborate with like-minded individuals. Join us today and unlock the potential of MMO server development!

Join Today!

[VB6]How To Making Loading Bars *ADDED OXC*[PIC][TUT]

Newbie Spellweaver
Joined
May 29, 2008
Messages
19
Reaction score
0
*DOWNLOAD IF YOU HAVE THE MISSING OXC FILE PUT IT IN SYSTEM32 IMA MAKE A TUTORIAL HOW HERE IS DOWNLOAD ANYWAY:
*SORRY SOME IMAGE YOU NEED TO CLICK ON TO SHOW*
Hello Ragezoners And Welcome To A Next One Of My Tutorial Of Visual Basic 6.
Toady You Will Learn About VB6 Processor Bar. Lets Get Started

1.Open Up "Vb6.exe" Then Select "Standard EXE"

2.Right Click Where The Tools Are And Click "Components"
Icon Sting - [VB6]How To Making Loading Bars *ADDED OXC*[PIC][TUT] - RaGEZONE Forums

3.Scroll Down Till You See "vbaccelerator VB6 Progress Bar Control" Then Click It Then Click "Ok"
Icon Sting - [VB6]How To Making Loading Bars *ADDED OXC*[PIC][TUT] - RaGEZONE Forums

4.Double Click It And Make It The Size You Want
Icon Sting - [VB6]How To Making Loading Bars *ADDED OXC*[PIC][TUT] - RaGEZONE Forums

4 1/2. Go Over To The "Properties Box" On "Categorized" Then Look For "Misc" Then Chance The Name From "vbalProgressBar1" To Just "Bar1" No Quotes You Can Also Change The BackGround Color Of It And The Bar Color When It Loads
Icon Sting - [VB6]How To Making Loading Bars *ADDED OXC*[PIC][TUT] - RaGEZONE Forums

5.Double Click On The Timer In The Tools Box Then Click On It Not Double Click Then Goto "Properties Box" Then Look For "Interval" Set It To "100" No Quotes
Icon Sting - [VB6]How To Making Loading Bars *ADDED OXC*[PIC][TUT] - RaGEZONE Forums

6.Double Click The Timer Then Add This Code
Code:
bar1.Value = bar1.Value + 1
If bar1.Value = "100" Then
MsgBox ("loading Complete")
Form2.Show
Unload Me
Icon Sting - [VB6]How To Making Loading Bars *ADDED OXC*[PIC][TUT] - RaGEZONE Forums

7.Remember To Add Form2!



Have Fun! :D

No Virus Here Is An Example:

~Icon Sting
 
Last edited:
Experienced Elementalist
Joined
Apr 15, 2008
Messages
256
Reaction score
0
Re: [VB6]How To Making Loading Bars[PIC][TUT]

include the .oxcs file also =)
 
Newbie Spellweaver
Joined
May 29, 2008
Messages
19
Reaction score
0
Re: [VB6]How To Making Loading Bars[PIC][TUT]

Oh Yeah Gotta Add The Download Incase Some People Don't Have I Have To Go Bed I WIll Add Tomorrow

GoodNight
 
Newbie Spellweaver
Joined
Jun 23, 2007
Messages
51
Reaction score
0
Re: [VB6]How To Making Loading Bars[PIC][TUT]

I'm a bit confused.. VB6 costs money and VB 2008 dosn't?
 
Elite Diviner
Joined
Feb 14, 2008
Messages
478
Reaction score
0
Re: [VB6]How To Making Loading Bars[PIC][TUT]

Great tut !
 
Banned
Banned
Joined
Jan 31, 2008
Messages
632
Reaction score
0
Re: [VB6]How To Making Loading Bars[PIC][TUT]

Awesome tutorial!

I like it very loads!

~ RascaL
 
Experienced Elementalist
Joined
Oct 31, 2007
Messages
290
Reaction score
1
Re: [VB6]How To Making Loading Bars[PIC][TUT]

Im gonna try it, thanks =]
 
Newbie Spellweaver
Joined
May 29, 2008
Messages
19
Reaction score
0
Re: [VB6]How To Making Loading Bars[PIC][TUT]

Thank You For All The Good Comments I Posted This On A Different Forum Then They Started To Flame Me And Call me a noob and said everyone know this :\

I'm Adding The DLL You need If You Are Missing It
 
Newbie Spellweaver
Joined
Oct 18, 2007
Messages
47
Reaction score
1
Hey Buddy u did the Coding Wrong!
In The Timer Put This!

Private Sub Timer1_Timer()
bar1.Value = bar1.Value + 1
If bar1.Value = "100" Then
Unload Me
Form2.Show
Else
MsgBox ("loading Complete")
End If
End Sub
 
Master Summoner
Loyal Member
Joined
Jul 17, 2007
Messages
532
Reaction score
0
Hey Buddy u did the Coding Wrong!
In The Timer Put This!

Private Sub Timer1_Timer()
bar1.Value = bar1.Value + 1
If bar1.Value = "100" Then
Unload Me
Form2.Show
Else
MsgBox ("loading Complete")
End If
End Sub

You do realise that codes going to popup a messagebox EVERY +1 saying Loading Complete 99 times until it reaches 100
 
Newbie Spellweaver
Joined
Mar 4, 2007
Messages
6
Reaction score
0
i'm not a VB expert but i think the reason of load bar didn't work because it needs something to load you have to make a condition to load something....
like

read a list or check file sizes or something
 
Legendary Battlemage
Loyal Member
Joined
May 4, 2008
Messages
644
Reaction score
19
Lol nice attempt at it but get updated, Get vb2008 more advanced and you have more possibilities at doing more!
 
Banned
Banned
Joined
Jun 24, 2008
Messages
723
Reaction score
1
Put this

Code:
bar1.value = val(bar1.value) + 1 'adds the current value and plus 1
if bar1.value = "100" then 'if the bar reaches 100, then do this:
unload me 'unloads the form
form2.show 'shows form two
msgbox "Loading complete!",vbinformation + vbokonly 'shows a message box
end if 'ends the if function

Simple :)
 
Extreme Coder - Delphi
Loyal Member
Joined
Sep 8, 2007
Messages
1,381
Reaction score
39
You can do more with that loading bar,

e.g if it reaches 100% you can make it do w.e after this line of code if bar1.value = "100" then.

e.g
if bar1.value = "100" then
shell app.path & ("Gunz.exe") ' this will launch the GunZ exe when the progress bar reaches 100% ^^
 
Supreme Arcanarch
Loyal Member
Joined
May 27, 2007
Messages
962
Reaction score
27
ohhhh nice imma try this :D
 
Skilled Illusionist
Loyal Member
Joined
Jun 23, 2007
Messages
310
Reaction score
1
There is.

Also, why are you unloading it when it needs to load form2 ?
 
Back
Top