Ako vlozit text do MDI okna ?

Ako vlozit text do MDI okna ?

dodo_mt0

Newbie

13. 3. 2008 #1

Toto je moj kod pre vkladanie textu z textboxov vo Form2 do richtextboxu vo Form1... Vsetko funguje tak ako ma

 If ChB1.Checked = True Then



                Form1.rtb1.Text = Form1.rtb1.Text & "CYCL DEF 200 VRTAT ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q200=" & Me.tb1.Text & "          ; BEZPEC. VZDIALENOST ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q201=" & Me.tb2.Text & "          ; HLBKA ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q206=" & Me.tb3.Text & "          ; POSUV PRISUVU DO HL. ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q202=" & Me.tb4.Text & "          ; HLBKA PRISUVU ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q210=" & Me.tb5.Text & "          ; CAS. VYDRZ HORE ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q203=" & Me.tb6.Text & "          ; SURADNICE POVRCHU ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q204=" & Me.tb7.Text & "          ; 2. BEZPEC. VZDIALENOST ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q211=" & Me.tb8.Text & "          ; CAS. VYDRZ DOLE ~"



            Else

                ChB2.Checked = True



                Form3.rtb1.Text = Form3.rtb1.Text & "G200 " & "Q200=" & Me.tb1.Text & "Q201=" & Me.tb2.Text & "Q206=" & Me.tb3.Text _

                & "Q202=" & Me.tb4.Text & "Q210=" & Me.tb5.Text & "Q203=" & Me.tb5.Text & "Q204=" & Me.tb5.Text



            End If

Ale ked chcem aby mi to iste urobilo aj vtedy ked pouzivam MDI Container tak uz to nefunguje... kod som upravil tak aby mi aktivovalo moje MDI okno ale stale bezuspesne... viete mi poradit v com robim chybu ??
Tu je kod po uprave s aktivaciou MDI okna

Dim Doc As Form3



        If Not IsNothing(Me.ActiveMdiChild) Then

            Doc = Me.ActiveMdiChild



            If ChB1.Checked = True Then



                Form1.rtb1.Text = Form1.rtb1.Text & "CYCL DEF 200 VRTAT ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q200=" & Me.tb1.Text & "          ; BEZPEC. VZDIALENOST ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q201=" & Me.tb2.Text & "          ; HLBKA ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q206=" & Me.tb3.Text & "          ; POSUV PRISUVU DO HL. ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q202=" & Me.tb4.Text & "          ; HLBKA PRISUVU ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q210=" & Me.tb5.Text & "          ; CAS. VYDRZ HORE ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q203=" & Me.tb6.Text & "          ; SURADNICE POVRCHU ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q204=" & Me.tb7.Text & "          ; 2. BEZPEC. VZDIALENOST ~"

                Form1.rtb1.Text = Form1.rtb1.Text & vbCrLf & "Q211=" & Me.tb8.Text & "          ; CAS. VYDRZ DOLE ~"



            Else

                ChB2.Checked = True



                Form3.rtb1.Text = Form3.rtb1.Text & "G200 " & "Q200=" & Me.tb1.Text & "Q201=" & Me.tb2.Text & "Q206=" & Me.tb3.Text _

                & "Q202=" & Me.tb4.Text & "Q210=" & Me.tb5.Text & "Q203=" & Me.tb5.Text & "Q204=" & Me.tb5.Text



            End If

        End If



        Close()