[kslawy]

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

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