copy en paste

[old Hippy]

hi allemaal

ik heb in mijn project de knoppen copy en paste nodig.
dit lukt wel maar er staan verschillende groepboxen op het tabblad.
is het mogelijk om in mijn hele project dit toe tepassen????
de code die ik nu gebruik is met een toolstripbutton click EditCopy() en de volgende code
Het werkt nu alleen in de groepbox1

 Private Sub EditCopy()
        'Process each control in the MyProject Panel
        Dim groupbox As New Control
        For Each objPanel As Control In GroupBox1.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 = objPanel
                    'See if any text has been selected
                    If objTextBox.SelectionLength > 0 Then
                        'Copy the text and place it on the 
                        'Clipboard
                        objTextBox.Copy()
                    End If
                    'The work is all done so exit the procedure
                    Exit Sub
                End If
            End If
        Next
    End Sub

Iemand????????

 

[bn2vs]

Als je enkel textvelden in groupeboxen hebt is het wss het simeplste om er nog een foreach loop rond te zetten die die gbx'en afgaat.

Als dat niet zo is kan je je textvelden bij startup in een list zetten ofzo, en zo zo heel makkelijk aflopen.

Ik gebruik een gelijkaardige oplossing in mn converter, maar vind hem niet ideaal. Iemand een beter idee?

 

[old Hippy]

hi bn2vs

Bedankt voor je reactie ik ben nog steets een beginner en dat zal wel zo blijven.
ik ga proberen een foreach loop te maken maar weet ook niet hoe ik ga dit uitproberen en laat je weten of dit is gelukt of niet.
bedankt Old Hippy