Quantcast
Channel: VBForums - Visual Basic 6 and Earlier
Viewing all articles
Browse latest Browse all 21346

Please Wait Form Doesn't Work When Running Modules

$
0
0
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.

Viewing all articles
Browse latest Browse all 21346

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>