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
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