تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يمكن استخدام اداة Label كقائمة
#1
السلام عليكم ورحمة الله وبركاته

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

وعند الضغط عليه تظهر قائمة استطيع من خلالها اختيار اي اسم وعند اختيارة يتم وضعه على الـ Label
الرد }}}}
تم الشكر بواسطة:
#2
كود :
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
الرد }}}}
تم الشكر بواسطة:
#3
ممكن توضح الكود المرفق يخص Richtextbox and textbox

وليس فيه ما اريد ؟
الرد }}}}
تم الشكر بواسطة:
#4
أداة ال label هى لعرض النصوص فكيف تريدها أن تعمل كقائمة منسدلة إستخدم ال combobox
الرد }}}}
تم الشكر بواسطة:
#5
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


******
*****
****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] printing label dubai.eig 0 42 27-11-16, 12:44 AM
آخر رد: dubai.eig
  [سؤال] استخدام الدوال في crystalreport thevirus 1 75 25-11-16, 06:33 PM
آخر رد: thevirus
  [سؤال] اداة Geckowebbroser التي موجود في لغة vb.net عبدالرحمن المكاوي 0 48 24-11-16, 03:54 PM
آخر رد: عبدالرحمن المكاوي
  هل يمكن انشاء صفحة متصفح Mohamed20 2 129 20-11-16, 12:38 AM
آخر رد: myalsailamy
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 67 15-11-16, 10:30 PM
آخر رد: السرور
  كيف يمكن عمل هذا الترتيب rabeh.ram 10 200 15-11-16, 03:11 AM
آخر رد: rabeh.ram
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 97 10-11-16, 06:25 PM
آخر رد: أبو عمر
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 109 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
  هل يمكن ان تتصل بقاعدة بيانات SQL من دون سيرفر اي اتصال مباشر مثل Access thevirus 4 110 09-11-16, 07:10 PM
آخر رد: thevirus
Lightbulb [سؤال] هل يوجد اداة لاستعراض الانترنت غير webcontrol elhon.tec 1 155 09-11-16, 03:24 PM
آخر رد: elhon.tec

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم