- Код: Выделить всё
Public frmFilter As System.Windows.Forms.Form
frmFilter = New frmFilter
frmFilter.MdiParent = [u]frmMain[/u]
frmMain подчеркивает как ошибку, и пишет, что frmMain - не правилний тип
что я делаю не так?
P.S. frmMain явлаетса Mdi
Public frmFilter As System.Windows.Forms.Form
frmFilter = New frmFilter
frmFilter.MdiParent = [u]frmMain[/u]
Private Sub MDI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
frmFilter.MdiParent =Me
frmFilter.Show
End Sub
Public Class frmMDI
Private Sub frmMDI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OpenChild()
End Sub
End Class
Module Module1
Public frm As frmChild
Public Sub OpenChild()
frm = New frmChild
With frm
.MdiParent = frmMDI
.Show()
End With
End Sub
End Module
Public Sub OpenChild(ByVal MainForm As Form)
frm = New frmChild
With frm
.MdiParent = MainForm
.Show()
End With
End Sub
Сейчас этот форум просматривают: Google-бот и гости: 105