{"id":195,"date":"2007-08-31T16:14:00","date_gmt":"2007-08-31T16:14:00","guid":{"rendered":"http:\/\/www.webmundi.com\/?p=195"},"modified":"2019-06-13T10:27:23","modified_gmt":"2019-06-13T13:27:23","slug":"fechar-todos-forms-mdi-child","status":"publish","type":"post","link":"http:\/\/localhost\/cmswebmundicom\/desenvolvimento-de-sistemas\/visual-basic\/fechar-todos-forms-mdi-child\/","title":{"rendered":"Fechar todos Forms MDI Child"},"content":{"rendered":"
Sub Command1_Click()
\nDim Frm As Form
\nFor Each Frm In Forms
\nIf Frm.Name <> Me.Name Then
\n‘fecha todos forms exceto o chamador (Pai-MDI Form)
\nUnload Frm
\nEnd If
\nNext Frm
\nEnd Sub<\/p>\n","protected":false},"excerpt":{"rendered":"
Fechar todos Forms MDI Child Sub Command1_Click() Dim Frm As Form For Each Frm In Forms If Frm.Name <> Me.Name…<\/p>\n","protected":false},"author":2,"featured_media":1507,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_kadence_starter_templates_imported_post":false,"_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"footnotes":""},"categories":[13,10],"tags":[28,14,31],"class_list":["post-195","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-desenvolvimento-de-sistemas","category-visual-basic","tag-desenvolvimento-de-sistemas","tag-programacao","tag-visual-basic"],"yoast_head":"\n