Add ContextMeunStrip To Rectangle - نسخة قابلة للطباعة

كود :

   Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint

        Using sb As New SolidBrush(Color.Black)

            e.Graphics.FillRectangle(sb, rect)

            Using sf As StringFormat = New StringFormat

                sf.Alignment = StringAlignment.Center

                sf.LineAlignment = StringAlignment.Center

                e.Graphics.DrawString(selectedText, Control.DefaultFont, Brushes.White, rect, sf)

            End Using



        End Using

    End Sub

كود :

  Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown

        Dim pt As Point = Me.PointToClient(Cursor.Position)

        If rect.Contains(pt) Then

            Dim strip As ContextMenuStrip = New ContextMenuStrip()

            For i As Integer = 0 To Me.list.Count - 1

                Dim s As String = Me.list(i)

                Dim item As ToolStripMenuItem = CType(strip.Items.Add(s, Nothing, AddressOf Me.OnContextMenuItemClick), ToolStripMenuItem)

                item.Tag = s

            Next

            Dim stripLocation As Point = New Point(Me.rect.Left + (rect.Width / 2), Me.rect.Bottom)

            strip.Show(Me, stripLocation)

            Return

        End If

    End Sub



    Private Sub OnContextMenuItemClick(sender As Object, ea As EventArgs)

        If TypeOf sender Is ToolStripItem AndAlso TypeOf (CType(sender, ToolStripItem)).Tag Is String Then

            Me.selectedText = CType((CType(sender, ToolStripItem)).Tag, String)

            Invalidate(rect)

        End If

    End Sub

كود :

Public Class Form1



    Private list As List(Of String) = New List(Of String)

    Private rect As Rectangle = New Rectangle(10, 10, 100, 20)

    Private selectedText As String = Nothing



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.list.Add("Omar")

        Me.List.Add("Amin")

        Me.List.Add("Ibrahim")

    End Sub



    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint

        Using sb As New SolidBrush(Color.Black)

            e.Graphics.FillRectangle(sb, rect)

            Using sf As StringFormat = New StringFormat

                sf.Alignment = StringAlignment.Center

                sf.LineAlignment = StringAlignment.Center

                e.Graphics.DrawString(selectedText, Control.DefaultFont, Brushes.White, rect, sf)

            End Using



        End Using

    End Sub



    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown

        Dim pt As Point = Me.PointToClient(Cursor.Position)

        If rect.Contains(pt) Then

            Dim strip As ContextMenuStrip = New ContextMenuStrip()

            For i As Integer = 0 To Me.list.Count - 1

                Dim s As String = Me.list(i)

                Dim item As ToolStripMenuItem = CType(strip.Items.Add(s, Nothing, AddressOf Me.OnContextMenuItemClick), ToolStripMenuItem)

                item.Tag = s

            Next

            Dim stripLocation As Point = New Point(Me.rect.Left + (rect.Width / 2), Me.rect.Bottom)

            strip.Show(Me, stripLocation)

            Return

        End If

    End Sub



    Private Sub OnContextMenuItemClick(sender As Object, ea As EventArgs)

        If TypeOf sender Is ToolStripItem AndAlso TypeOf (CType(sender, ToolStripItem)).Tag Is String Then

            Me.selectedText = CType((CType(sender, ToolStripItem)).Tag, String)

            Invalidate(rect)

        End If

    End Sub



End Class