Jag har ett problem: så här har jag gjort:Problem med meny i MDI-fönster
Jag har en meny i MDI-fönstret. Jag vill gärna ha en kod för hur man, när man trycker på en av knapparna, ändrar det/de fönster som inte är "hide" till "hide".
Tacksam för svar.Sv: Problem med meny i MDI-fönster
1. Skapade ett nytt projekt
2. La till en mdiform: mdiform1
3. Ställde in att form1 är mdichild
4. skapade menyerna mnuload och mnuhide
la till denna kod:
Option Explicit
Private Sub mnuhide_Click()
Dim frm As Form
'loopa igenom alla forms i ett projekt
For Each frm In Forms
'om form inte är det active eller mdifönstret, minimera
If frm.hWnd <> Me.ActiveForm.hWnd And frm.hWnd <> MDIForm1.hWnd Then frm.Hide
Next
End Sub
Private Sub mnuload_Click()
'ladda in en ny child
Dim frm As Form1
Set frm = New Form1
frm.Show
End Sub