Closing Tabs on Tabcontrol

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

   I have a Tabcontrol with no tabs at all. They create at runtime attaching forms at these newly created tabs.
IE: 
Private Sub NewReport()
Set pageReport = New frmReport
l_Index = TabControl.ItemCount
Set oTabItem = TabControl.InsertItem(l_Index + 1,"Report", pageReport.hwnd, 0)
TabControl.Item(l_Index).Selected = True
End Sub

How can I close /destroy/unload all the instances of pageReports before unload the form?
The app not ended if don't!!!
Or, directly CRASH?
Any help??? 

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
nando_uy Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 26 February 2005 Location: Uruguay Status: Offline Points: 9	Post Options Post Reply Quote nando_uy Report Post Thanks(0) Quote Reply Topic: Closing Tabs on Tabcontrol Posted: 27 October 2008 at 11:12pm
	I have a Tabcontrol with no tabs at all. They create at runtime attaching forms at these newly created tabs. IE: Private Sub NewReport() Set pageReport = New frmReport l_Index = TabControl.ItemCount Set oTabItem = TabControl.InsertItem(l_Index + 1,"Report", pageReport.hwnd, 0) TabControl.Item(l_Index).Selected = True End Sub How can I close /destroy/unload all the instances of pageReports before unload the form? The app not ended if don't!!! Or, directly CRASH? Any help???

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 28 October 2008 at 3:10am
	Hi, Move pageReport as form variable and in Unload event add Unload pageReport
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

nando_uy Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 26 February 2005 Location: Uruguay Status: Offline Points: 9	Post Options Post Reply Quote nando_uy Report Post Thanks(0) Quote Reply Posted: 28 October 2008 at 5:05am
	Can you show me an example? In your Docking Pane sample folder, there's something like you suggest me. So I can't figure how can I implements this for my specific case, because I haven't an form array. And, I need to remove all the instances of pageReport Any Example? Many, many thanks Oleg, you're the man!

Mr.Den Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 26 August 2007 Status: Offline Points: 50	Post Options Post Reply Quote Mr.Den Report Post Thanks(0) Quote Reply Posted: 31 October 2008 at 8:56pm
	Have you tried this in the main form's form_queryunload sub: dim iCtr as integer for iCtr = Forms.count -1 To 0 Step -1 Unload Forms(iCtr) Next iCtr