Copy/Past/Cut buttons

[geertd]

Hallo allemaal,

Ik heb in mijn toolstrip 3 buttons: copy, cut en paste. Alledrie heb ik ze gedisabled.
Hoe kan ik nu zorgen dat als er ergens in mijn form een tekst in een textbox geselecteerd wordt automatisch de copy/cut button ge-enabled worden?
En wanneer een tekstvak actief is automatisch de pastebutton ge-enabled wordt?

Alvast bedankt,

Geert

 

[Dummy1912]

Hello,

je kan de textbox_textchanged

gebruiken.

en dan voeg deze code toe:

Private Sub Textbox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Textbox1.TextChanged
call SetMenu

end sub

 Private Sub SetMenu()
        On Error Resume Next
        
        If TextBox1.Text = "" Then
            Me.CopyToolStripMenuItem.Enabled = False
            Me.CutToolStripMenuItem.Enabled = False
           
        Else
            Me.CopyToolStripMenuItem.Enabled = True
            Me.CutToolStripMenuItem.Enabled = True
          
        End If

hoop dit je verder helpt

Dummy1912

 

[geertd]

Op die manier wordt alleen gekeken of er iets in de textbox staat. Niet of er iets geselecteerd is...

 

[Dummy1912]

sorry

had even verkeerd gelezen.

zo dan:

Private Sub TextBox1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.SelectionChanged
        Call SetMenu()
    End Sub

Private Sub SetMenu()
        On Error Resume Next
If TextBox1.SelectedText = "" Then
            Me.CopyToolStripMenuItem.Enabled = False
            Me.CutToolStripMenuItem.Enabled = False
           
        Else
            Me.CopyToolStripMenuItem.Enabled = True
            Me.CutToolStripMenuItem.Enabled = True
                   End If

sorry

Dummy1912

 

[geertd]

Bedankt,

Maar hoe zorg ik nu dat als het textvak actief wordt, de plakbutton ook ge-enabled wordt?

 

[Dummy1912]

je kan het zo doen

If TextBox1.SelectedText = "" Then
            Me.CopyToolStripMenuItem.Enabled = False
            Me.CutToolStripMenuItem.Enabled = False
           Me.PasteToolStripMenuItem.Enabled = False
        Else
            Me.CopyToolStripMenuItem.Enabled = True
            Me.CutToolStripMenuItem.Enabled = True
            Me.PasteToolStripMenuItem.Enabled = True
                   End If

of je kan het ook zo doen als de clipboard leeg is of niet

 If Not My.Computer.Clipboard.ContainsText Then
            Me.PasteToolStripMenuItem.Enabled = False
                   Else
            Me.PasteToolStripMenuItem.Enabled = True
                    End If

je plaats deze gewoon bij in de Sub SetMenu()

Dummy1912