Oppure

Loading
19/11/11 14:24
AcitanoX
Allora, ho questo codice che mi mostra il menù quando uso il tasto destro del mouse sulla linguetta di una TabPage:

Private Sub text_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Right Then
            For i As Integer = 0 To tabs.TabCount - 1
                Dim rec = tabs.GetTabRect(i)
                If rec.Contains(e.Location) Then
                    rightmenutext.Show(Windows.Forms.Cursor.Position)
                End If
            Next
        End If
    End Sub


Come potrei convertirlo per mostrarlo quando uso il tasto destro del mouse sul testo evidenziato in una determinata RichTextBox?

P.S: L'evento lo chiamerò usando questo codice:

Public Sub New()
        InitializeComponent()
        For Each c As Control In GetChildControls(Me)
            If TypeOf c Is RichTextBox Then
                AddHandler c.MouseUp, AddressOf text_MouseUp
            End If
        Next
    End Sub
aaa