yogesh vaidya Ответов: 0

Проект середины родителем и ребенком как запустить средний ребенок из другого среднего дочерней формы


Привет,
Transferring information between two forms,  Child to Child , how i run a customer info form from any another form and after  completion of  info will be return sem child form ,

What I have tried:

for than i was try to a public function on mid parent form  and it partially works fpr only 1 side 
<pre>  
     Public jobAddCust_return As Boolean = False
    Public Addcust_extCond As Boolean = False
    Public ADDsUPPLYER_EXTCOND As Boolean = False
    Public Function AddJobCust(ByVal JobaddCust_cond As Boolean) As Boolean
        If JobaddCust_cond = True Then
            jobAddCust_return = False
            Addcust_extCond = True
            Add_cust1.Enabled = False
            cust_clk = cust_clk + 1
            Child_cond = 1
            Dim NewMDIChild As New CUSTOMER With {
            .MdiParent = Me,
            .Location = New Point(0, 0)
            }
            Run_name = "Customer Master "
            Me.LayoutMdi(MdiLayout.Cascade)
            Pnl_hlpMain.Visible = False
            ' Pnl_mainmenu.Enabled = False
            Pnl_username.Visible = False
            'Pnl_job.Enabled = False
            Runtime_Shutter()
            M_pbLogo.Visible = False
            NewMDIChild.Show()
            Return True
        Else
            Newjob.Txt_custname.Enabled = True
            Return False
        End If
    End Function
    Public Function AddjobCust_r1(ByVal jobcust_return As Boolean) As Boolean
        If jobAddCust_return = True Then
            Newjob.Txt_custname.Enabled = True
            Me.jobAddCust_return = False
            Me.JobaddCust_cond = False
            Addcust_extCond = False
            'Pnl_username.Visible = False
            'M_pbLogo.Visible = False
            Child_cond = 1
            '   Newjob.Select()
            Newjob.NewCustAddition()
            Return True
        Else
            Newjob.Txt_custname.Enabled = True
            Newjob.Txt_custname.Select()
            Return False
        End If
    End Function<pre><pre>

когда я не получил клиента в форме newjob я хочу запустить нового клиента и после этого мне нужно пойти bak на newjob

нужна помощь

0 Ответов