Click here to Skip to main content
15,915,702 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Array of controls Pin
Dennis C. Dietrich16-Jan-05 22:39
Dennis C. Dietrich16-Jan-05 22:39 
GeneralArray of controls Pin
Yulianto.16-Jan-05 16:06
Yulianto.16-Jan-05 16:06 
GeneralRe: Array of controls Pin
-Dr_X-20-Jan-05 14:03
-Dr_X-20-Jan-05 14:03 
GeneralProblem With Splash Screen Pin
kellydanielc16-Jan-05 13:56
kellydanielc16-Jan-05 13:56 
GeneralRe: Problem With Splash Screen Pin
Gavin Jeffrey17-Jan-05 0:43
Gavin Jeffrey17-Jan-05 0:43 
GeneralRe: Problem With Splash Screen Pin
kellydanielc17-Jan-05 0:54
kellydanielc17-Jan-05 0:54 
GeneralRe: Problem With Splash Screen Pin
Gavin Jeffrey17-Jan-05 1:10
Gavin Jeffrey17-Jan-05 1:10 
GeneralRe: Problem With Splash Screen Pin
Jodd19-Jan-05 14:55
Jodd19-Jan-05 14:55 
Start your application with a startup module

Module Mdl_StartUp
Public FrmSplash As New Frm_Splash()
Sub Main()
Splash_AantalStappen = 4
Splash_ToonScherm(True)
Dim FrmMain As New Frm_Main()
Application.Run(FrmMain) End Sub
End Module

Module Mdl_Slpash
Public Splash_AantalStappen As Int16 = 1
Dim StapNr As Int16 = 0

'Toont of verwijdert het splash screen
Public Sub Splash_ToonScherm(ByVal ShowIt As Boolean)
If ShowIt Then
FrmSplash.Show()
FrmSplash.Refresh()
Else
FrmSplash.Close()
End If
End Sub

Public Sub Splash_Init()
With FrmSplash
.L_CopyRight.Text = Proginfo.CopyRight
.L_ProgressText.Text = ""
.L_Versie.Text = "Versie : " & Proginfo.Major.ToString & "." & Proginfo.Minor.ToString & "." & Proginfo.Build.ToString
.L_CopyRight.Text = Proginfo.CopyRight
End With
End Sub

'Waarde van de progressbar in het splash screen
Public Sub Splash_ToonProgress(Optional ByVal Tekst As String = "NOTEKST")
StapNr += 1
If StapNr > Splash_AantalStappen Then
FrmSplash.Close()
Else
Dim ProgressWaarde As Int16 = StapNr * (100 / Splash_AantalStappen)
With FrmSplash
.PB.Value = ProgressWaarde
.PB.Refresh()
If Tekst <> "NOTEKST" Then
.L_ProgressText.Text = Tekst
.L_ProgressText.Refresh()
End If
End With
End If
End Sub
End Module

On the SplashScreen you create a progressbar (PB) and The Labels

In the load of FrmMain you can update the progressbar by calling Splash_ToonProgress

I hope this will help you
Generalquestion2 Pin
Makniteasy16-Jan-05 10:04
Makniteasy16-Jan-05 10:04 
GeneralRe: question2 Pin
Rizwan Bashir17-Jan-05 0:43
Rizwan Bashir17-Jan-05 0:43 
Generalquestion Pin
Makniteasy16-Jan-05 9:54
Makniteasy16-Jan-05 9:54 
GeneralContorl modification From Multiple location Pin
Member 152636216-Jan-05 8:19
Member 152636216-Jan-05 8:19 
GeneralAntiVirus w/ VB Pin
TheGOG16-Jan-05 7:16
TheGOG16-Jan-05 7:16 
GeneralRe: AntiVirus w/ VB Pin
Dave Kreskowiak18-Jan-05 3:57
mveDave Kreskowiak18-Jan-05 3:57 
Generalfill datagrid Pin
anom2m16-Jan-05 2:32
anom2m16-Jan-05 2:32 
GeneralRe: fill datagrid Pin
Makniteasy16-Jan-05 15:36
Makniteasy16-Jan-05 15:36 
GeneralSort by date files in dialog box Pin
aprx16-Jan-05 0:26
aprx16-Jan-05 0:26 
QuestionThe source code of a 3D Sokoban Game in Visual Basic? Pin
Ciara Ibrahim15-Jan-05 18:53
sussCiara Ibrahim15-Jan-05 18:53 
AnswerRe: The source code of a 3D Sokoban Game in Visual Basic? Pin
Robert Rohde15-Jan-05 19:09
Robert Rohde15-Jan-05 19:09 
GeneralRe: The source code of a 3D Sokoban Game in Visual Basic? Pin
Colin Angus Mackay15-Jan-05 19:24
Colin Angus Mackay15-Jan-05 19:24 
GeneralConditional Statements in Crystal Reports Pin
Barathan15-Jan-05 1:01
Barathan15-Jan-05 1:01 
GeneralRe: Conditional Statements in Crystal Reports Pin
Michael P Butler17-Jan-05 4:00
Michael P Butler17-Jan-05 4:00 
GeneralRe: Conditional Statements in Crystal Reports Pin
Barathan17-Jan-05 6:44
Barathan17-Jan-05 6:44 
QuestionWhy know the code? Pin
su_penguin14-Jan-05 14:25
su_penguin14-Jan-05 14:25 
AnswerRe: Why know the code? Pin
Robert Rohde14-Jan-05 21:46
Robert Rohde14-Jan-05 21:46 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.