Hello to everyone. I'm new to the forum, also new in programming with VB6. I have created a "please wait" form with a timer that adds dots after the "please wait" label. The thing is that i want this form to show when several modules run behind my programm. With these modules i fill data in msflexgrids on another form. The "please wait" form appears normally but the dots are not added after the label to show that the program is running. I have also made my pointer hourglass but the form is also needed. If i create a loop before the modules the dots in the form are added normally so i guess something is wrong with the modules running behind. Here is the timer code:
Private Sub tmrTest_Timer()
mintCount = mintCount + 1
MyWord = Array(".", ".", ".", ".", ".", ".", ".", ".", ".", ".", ".", ".")
frm_Please_Wait.lbl_Please_Wait.Caption = frm_Please_Wait.lbl_Please_Wait.Caption & MyWord((mintCount) - 1)
If mintCount = 12 Then
mintCount = 0
lbl_Please_Wait.Caption = ""
End If
And the particular section of the code i want the "Please Wait" form to appear:
' Mouse Pointer To Clock
SavedPointer = Screen.MousePointer
Screen.MousePointer = 11
Load frm_Please_Wait
frm_Please_Wait.Show
DoEvents
Module_Joint_Coordinates.main
Module_Frame_Connectivity.main
Module_Frame_Sections.main
Module_Sections.main
Module_Conc_Beams.main
Module_Conc_Cols.main
Module_Material_Properties_01.main
Module_Material_Properties_02.main
Module_Concrete_Data.main
Module_Rebar_Data.main
Module_Short_Beams_Sections.main
Module_Beams_To_Dim.main
' Restore Mouse Pointer
Screen.MousePointer = SavedPointer
frm_Please_Wait.Hide
Unload frm_Please_Wait
'frm_Tables.Show (The form where i store the data in the tables for further use)
End Sub
I know my question may sound silly but forgive me. My level is novice.
Thanks in advance.
Private Sub tmrTest_Timer()
mintCount = mintCount + 1
MyWord = Array(".", ".", ".", ".", ".", ".", ".", ".", ".", ".", ".", ".")
frm_Please_Wait.lbl_Please_Wait.Caption = frm_Please_Wait.lbl_Please_Wait.Caption & MyWord((mintCount) - 1)
If mintCount = 12 Then
mintCount = 0
lbl_Please_Wait.Caption = ""
End If
And the particular section of the code i want the "Please Wait" form to appear:
' Mouse Pointer To Clock
SavedPointer = Screen.MousePointer
Screen.MousePointer = 11
Load frm_Please_Wait
frm_Please_Wait.Show
DoEvents
Module_Joint_Coordinates.main
Module_Frame_Connectivity.main
Module_Frame_Sections.main
Module_Sections.main
Module_Conc_Beams.main
Module_Conc_Cols.main
Module_Material_Properties_01.main
Module_Material_Properties_02.main
Module_Concrete_Data.main
Module_Rebar_Data.main
Module_Short_Beams_Sections.main
Module_Beams_To_Dim.main
' Restore Mouse Pointer
Screen.MousePointer = SavedPointer
frm_Please_Wait.Hide
Unload frm_Please_Wait
'frm_Tables.Show (The form where i store the data in the tables for further use)
End Sub
I know my question may sound silly but forgive me. My level is novice.
Thanks in advance.