منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

اخواني جزاكم الله خير
اريد أن استخدم اداة الـ Label
كقائمة
مثلاً اضع في خانة الـ Text للـ Label خط هكذا ______

وعند الضغط عليه تظهر قائمة استطيع من خلالها اختيار اي اسم وعند اختيارة يتم وضعه على الـ Label

كود :
Dim len As Integer = Me.richTextBox1.TextLength

Dim index As Integer = 0

Dim lastIndex As Integer = Me.richTextBox1.Text.LastIndexOf(Me.textBox1.Text)

While index < lastIndex

    Me.richTextBox1.Find(Me.textBox1.Text, index, len, RichTextBoxFinds.None)

    Me.richTextBox1.SelectionBackColor = Color.Yellow

    index = Me.richTextBox1.Text.IndexOf(Me.textBox1.Text, index) + 1

End While

ممكن توضح الكود المرفق يخص Richtextbox and textbox

وليس فيه ما اريد ؟

أداة ال label هى لعرض النصوص فكيف تريدها أن تعمل كقائمة منسدلة إستخدم ال combobox

amgadtamer كتب :أداة ال label هى لعرض النصوص فكيف تريدها أن تعمل كقائمة منسدلة إستخدم ال combobox

ذلك صحيح .

مع ذلك يمكنك تطبيق ما تريد كالتالي :

أضف أداة Label وأداة ListBox للفورم
في خاصية الـ Text الخاصة بأداة الـ Label ضع خط طويل ____________
قم بمحاذاة أداة الـ ListBox أسفل أداة الـ Label بحيث تكون أسفلها تماماً

قم بوضع هذا الكود :

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.ListBox1.Visible = False

        Me.Label1.Cursor = Cursors.Hand

        Me.ListBox1.Items.Clear()

        For i As Integer = 0 To 4

            Me.ListBox1.Items.Add("Numbur " & i.ToString)

        Next

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        If Me.ListBox1.Items.Count > 0 Then

            If Me.ListBox1.SelectedItems.Count > 0 Then

                Me.Label1.Text += vbCrLf & Me.ListBox1.SelectedItem.ToString

                Me.ListBox1.Visible = False

            End If

        End If

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

        Me.ListBox1.Visible = True

    End Sub

******
*****
****
***
**
*

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

aftfm

oneyemenweb2

aftfm

amgadtamer

kslawy