(آموزشی) انتخاب خودکار اولین و اخرین ایتم در لیست باکس

[ali.b]

انتخاب اولین ایتم

Private Sub CommandButton1_Click()
Dim i As Long
    For i = ListBox1.ListCount - 1 To 0 Step -1
        ListBox1.ListIndex = i
    Next i
End Sub

انتخاب اخرین ایتم

Private Sub CommandButton2_Click()
Dim i As Long
    For i = 0 To ListBox1.ListCount - 1
        ListBox1.ListIndex = i
    Next i
End Sub

[Amir Ghasemiyan]

سلام
ممنون از آموزشتون
فقط يك مشكل اساسي
اولا براي بدست آوردن اولين و آخرين آيتم ليست باكس نياز به حلقه نيست
دوما اين كدي كه شما نوشتين اصلا مقدار رو نميده

در كد زير a مقدار اولين و b مقدار آخرين آيتم ليست باكس رو برميگردونه

list_count = ListBox1.ListCount
a = ListBox1.List(0)
b = ListBox1.List(list_count - 1)

[ali.b]

سلام
ممنون از آموزشتون
فقط يك مشكل اساسي
اولا براي بدست آوردن اولين و آخرين آيتم ليست باكس نياز به حلقه نيست
دوما اين كدي كه شما نوشتين اصلا مقدار رو نميده

در كد زير a مقدار اولين و b مقدار آخرين آيتم ليست باكس رو برميگردونه

list_count = ListBox1.ListCount
a = ListBox1.List(0)
b = ListBox1.List(list_count - 1)

بله درسته مقدار رو نمیده
تو عنوان هم درج کردم انتخاب هست فقط از روی لیست باکس یا ردیف اول یا میره ردیف اخر
مثلا برای کسانی که وقتی ایتم در لیست باکس درج می کنن تمایل دارن به صورت خودکار اتوماتیک اخرین سطر در لیست باکس نشون داده بشه

[Amir Ghasemiyan]

بله درسته مقدار رو نمیده
تو عنوان هم درج کردم انتخاب هست فقط از روی لیست باکس یا ردیف اول یا میره ردیف اخر
مثلا برای کسانی که وقتی ایتم در لیست باکس درج می کنن تمایل دارن به صورت خودکار اتوماتیک اخرین سطر در لیست باکس نشون داده بشه

درسته من دقت نكردم به عنوان ولي باز هم نيازي به حلقه نيست
خط اول اولين آيتم ليست باكس و خط دوم آخرين رو انتخاب ميكنهچ

ListBox1.ListIndex = 0
ListBox1.ListIndex = ListBox1.ListCount-1