+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف يمكن استخدام اداة Label كقائمة (/showthread.php?tid=7186)
كيف يمكن استخدام اداة Label كقائمة - aftfm - 30-11-12
السلام عليكم ورحمة الله وبركاته
اخواني جزاكم الله خير
اريد أن استخدم اداة الـ Label
كقائمة
مثلاً اضع في خانة الـ Text للـ Label خط هكذا ______
وعند الضغط عليه تظهر قائمة استطيع من خلالها اختيار اي اسم وعند اختيارة يتم وضعه على الـ Label
كيف يمكن استخدام اداة Label كقائمة - oneyemenweb2 - 30-11-12
كود :
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كيف يمكن استخدام اداة Label كقائمة - aftfm - 30-11-12
ممكن توضح الكود المرفق يخص Richtextbox and textbox
وليس فيه ما اريد ؟
كيف يمكن استخدام اداة Label كقائمة - amgadtamer - 30-11-12
أداة ال label هى لعرض النصوص فكيف تريدها أن تعمل كقائمة منسدلة إستخدم ال combobox
كيف يمكن استخدام اداة Label كقائمة - kslawy - 30-11-12
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******
*****
****
***
**
*