I am using this section of code to wait a seconds for the appliation to start up before begining to do anything but for some reason the
listbox i have on screen is not updated until the end of the fucntions even with me adding in
fmain.ListBox1.Refresh
fmain.Refresh
even the Label1.Text = "Loading System Settings..." is not working
am I doing this correctly or is there something else i need to do to get the app to update my list box so I know what it is doing.
Code: Select all
' Gambas class file
Public hConsoleTimer As Timer
Public Sub Form_Open()
hConsoleTimer = New Timer As "MyTimer"
hConsoleTimer.Delay = 1000
hConsoleTimer.Enabled = True
End
Public Sub MyTimer_Timer()
hConsoleTimer.Stop
hConsoleTimer.Enabled = False
Label1.Text = "Loading System Settings..."
Startup.LoadSystemFiles
Label1.Text = "Main Server Address :" & Global.ServerDatabaseLocation & " Database Name : " & Global.ServerDatabaseDatabaseName
Label1.Refresh
Global.AddToListBox("Checking for Connection to Main Database server")
DatabaseFunctions.CheckForDatabaseConnection
End