انتخاب اولین ایتم
کد: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
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)