Copy Paste

[old Hippy]

Hallo allemaal

ik heb een vorm met 4 panels in elk staan een aantal textboxen.
nu wil ik met copy en paste hier in aan de gang.
de code die ik gebruik werkt.
Maar allen in panel1 zie code
hoe kan ik elk panel hier mee laten werken?
nu zet ik onder de klik knop voor ieder panel de code hopelijk kan dit anders.

 For Each objPanel As Control In Klanten.Panel1.Controls
            'If this is a TextBox...
            If TypeOf objPanel Is TextBox Then
                'If it has focus...
                If objPanel.Focused Then
                    'Set a reference to it so the properties and 
                    'methods are available
                    Dim objTextBox As TextBox = CType(objPanel, TextBox)
                    'See if there is any text on the Clipboard
                    If Clipboard.GetDataObject().GetDataPresent( _
                        DataFormats.Text) = _
                        True Then
                        'Paste the text from Clipboard
                        objTextBox.Paste()
                    End If
                    'The work is all done so exit the procedure
                    Exit Sub
                End If
            End If
        Next

 

[The Mighty Atom]

Dit werkt:

        'Check elke control op het form
        For Each Ctrl As Control In Me.Controls

            'Als het gevonden Ctrl van het type Panel is...
            If TypeOf Ctrl Is Panel Then

                '...check dan elke control in elk panel
                For Each CtrlInPanel As Control In Ctrl.Controls

                    'Als het gevonden CtrlInPanel van het type Textbox is...
                    If TypeOf CtrlInPanel Is TextBox Then

                        '...zet de Text property van elke Textbox
                        CtrlInPanel.Text = "Tekst in alle textboxen..."
                    End If
                Next
            End If
        Next

Het is wel iets andere code, ik heb dat Clipboard.GetDataObject weggelaten om sneller te kunnen testen. ____.Focused en Dim objTextBox As TextBox = CType... en Exit Sub heb ik ook weggelaten. Als je deze onderdelen toch nodig hebt, denk ik wel dat je ze tussen mijn code kan stoppen.

 

[old Hippy]

HI Dank voor de reactie

ga dit uit proberen ik werk in een modulle

je code werkt maar ik wil hem wel als copy,cut,paste.undo,redo gebruiken
je hoort als het is gelukt OF niet

alfast bedankt Old Hippy

 

[old Hippy]

Hi The Mighty Atom

dit is de code zo als hij bij mij nu goed werkt
en simpel aan te passen voor copy en cut
de code staat in een module.
het probleem is nog wel dat hij het niet doet met panels die in een panel staat.
dit heb ik opgelost door het panel transparant te maken en de textboxen in het hoofd panel tezetten

hi hartelijk dank voor je hulp
en vriendelijke groed Old Hippy

 Public Sub Paste()
        'Check elke control op het form
        For Each Ctrl As Control In KlantenForm.Controls
            'Als het gevonden Ctrl van het type Panel is...
            If TypeOf Ctrl Is Panel Then
                '...check dan elke control in elk panel
                For Each CtrlInPanel As Control In Ctrl.Controls

                    'Als het gevonden CtrlInPanel van het type Textbox is...
                    If TypeOf CtrlInPanel Is TextBox Then
                        If CtrlInPanel.Focused Then
                            'Set a reference to it so the properties and 
                            'methods are available
                            Dim CtrlTextBox As TextBox = CType(CtrlInPanel, Windows.Forms.TextBox)
                            'See if there is any text on the Clipboard
                            If Clipboard.GetDataObject().GetDataPresent( _
                                DataFormats.Text) = True Then
                                'Paste the text from Clipboard
                                CtrlTextBox.Paste()
                            End If
                            'The work is all done so exit the procedure
                            Exit Sub
                        End If
                    End If
                Next
            End If
        Next


    End Sub