Tabbed MDI and controls created in run-time

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I open a form (form A), then create controls in run-time (like textbox), 

If i click on tab to go on another form (form B),
when i return to form A, the controls created in run-time is invisible.

How i can resolve this?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
chvs Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 30 January 2007 Status: Offline Points: 3	Post Options Post Reply Quote chvs Report Post Thanks(0) Quote Reply Topic: Tabbed MDI and controls created in run-time Posted: 02 May 2007 at 10:43am
	I open a form (form A), then create controls in run-time (like textbox), If i click on tab to go on another form (form B), when i return to form A, the controls created in run-time is invisible. How i can resolve this?

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 02 May 2007 at 12:41pm
	Hello, Show code you use to create controls.
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

chvs Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 30 January 2007 Status: Offline Points: 3	Post Options Post Reply Quote chvs Report Post Thanks(0) Quote Reply Posted: 02 May 2007 at 12:47pm
	In form load. qtEtapas = rs.RecordCount For i = 1 To qtEtapas - 1 Load txtMed(i) txtMed(i).Left = txtMed(i - 1).Left + txtMed(i - 1).Width + 200 txtMed(i).Visible = True Next i

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 02 May 2007 at 1:13pm
	Hi, It works for me. In our MDI sample I inserted Option Explicit Public fMain As frmMain Private Sub Form_Load() Dim i As Long For i = 1 To 5 Load txtMed(i) txtMed(i).Left = txtMed(i - 1).Left + txtMed(i - 1).Width + 200 txtMed(i).Visible = True Next i End Sub and don't see any problems. Please attach sample project that show error.
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS