seur2000 Ответов: 0

Toolstrip mergeaction не работает


У меня есть форма mdi и ребенок, у них есть полоса инструментов в слиянии,
когда я нажимаю кнопку buttom на toolstrip для моего sub save, все элементы управления в дочерней форме не заполняются, если я делаю sub кнопкой в форме, все в порядке


Я не могу найти решение


простите за гугл перевод

Что я уже пробовал:

простите за гугл перевод

у детей:
TS_SAVE.MergeAction = MergeAction.Replace

в frmMDI открыт ребенок:
Dim NewMDIChild As New frmContratti()
NewMDIChild.MdiParent = Me
NewMDIChild.Show()
NewMDIChild.WindowState = FormWindowState.Maximized


кнопка действия в полосе инструментов frmMDI:
Case ActiveMdiChild.Name = "frmContratti"
            ' frmContratti.ControlSave()


sub CntrolSave не имеет никаких проблем, но в этом случае все текстовые поля и т. д. На форме они пусты, как будто дайвер читает в другой форме

в frmMDI:
Private Sub frmMDI_MdiChildActivate(sender As Object, e As EventArgs) Handles Me.MdiChildActivate
        ToolStripManager.RevertMerge(TS_mdi)
        If ActiveMdiChild IsNot Nothing Then
            Select Case True
                Case ActiveMdiChild.Name = "frmContratti"
                    ToolStripManager.Merge(frmContratti.TS_mdi, TS_mdi)
            End Select
        End If
    End Sub


======================
еще пример:
frmMDI
Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs)
        Dim NewMDIChild As New Form1()
        NewMDIChild.MdiParent = Me
        NewMDIChild.Show()
        NewMDIChild.WindowState = FormWindowState.Maximized
    End Sub


Private Sub frmMDI_MdiChildActivate(sender As Object, e As EventArgs) Handles Me.MdiChildActivate
        Dim frmChild As Form
        ToolStripManager.RevertMerge(ToolStrip)
        If ActiveMdiChild IsNot Nothing Then
            Select Case True
                Case ActiveMdiChild.Name = "Form1"
                    frmChild = ActiveMdiChild
                    ToolStripManager.Merge(Form1.ToolStrip, ToolStrip)
            End Select
        End If


Форма 1:
Private Sub SaveToolStripButton_Click(sender As Object, e As EventArgs) Handles SaveToolStripButton.Click
        MsgBox(TextBox1.Text)
    End Sub

даже если я увеличу текстовое поле, оно вернется пустым

0 Ответов