دو سوال در vb

[shahrdartoope]

من يك commandbuton و يك listbox دارم. براي حذف آيتم هاي درون ليست باكس از
List1.RemoveItem List1.SelCount استفاده كردم.
2- و براي اينكه هر وقت آيتمي از ليست باكس انتخاب نباشه commandbuton غير فعال بشه از
If List1.SelCount Then
Command1.Enabled = True
End If
استفاده كردم.
حالا موقعي كه از ليست آخرين آيتم حذف ميشه خطا ميده.اول اينكه آيتم ها بصورت رندوم حذف ميشن دوم اينكه نتونستم براي دومين كار dim,static يا غيره تعريف كنم. اگه از حرف هام سر در نياورديد اين فايل زيري
1.5 كيلوبايت

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[Payman_62]

منم يه سوال تو همين مايه ها دارم نخواستم تاپيك بزنم چون سادست و ارزششو نداره
چه طور ميشه تو DirListBox فولدرهاي هيدن رو ديد اگه امكانش نيست آيا اصلا راهي وجود داره كه بشه تو ويبي فولدرهاي هيدن رو ديد

[*Batman*]

من يك commandbuton و يك listbox دارم. براي حذف آيتم هاي درون ليست باكس از
List1.RemoveItem List1.SelCount استفاده كردم.
2- و براي اينكه هر وقت آيتمي از ليست باكس انتخاب نباشه commandbuton غير فعال بشه از
If List1.SelCount Then
Command1.Enabled = True
End If
استفاده كردم.
حالا موقعي كه از ليست آخرين آيتم حذف ميشه خطا ميده.اول اينكه آيتم ها بصورت رندوم حذف ميشن دوم اينكه نتونستم براي دومين كار dim,static يا غيره تعريف كنم. اگه از حرف هام سر در نياورديد اين فايل زيري
1.5 كيلوبايت

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خوب اگه ميخواي در صورت عدم انتخاب از داخل ليست CMD غير فعال بشه.گزينه اول Lbox رو None قراربده و هر وقت خصوصيت List با None برابر شد.اونوقت CMD رو غير فعال كن.
خودمم نفهميدم چي گفتم. :blink: :blush:

[ahmad_h]

کدت رو اینجوری اصلاح کن
Private Sub Command1_Click()
If List1.SelCount Then
List1.RemoveItem List1.ListIndex
Command1.Enabled = False
End If
End Sub

Private Sub List1_Click()
If List1.SelCount Then Command1.Enabled = True
End Sub

Private Sub List1_Validate(Cancel As Boolean)
If List1.SelCount = 0 Then Command1.Enabled = False
End Sub

[shahrdartoope]

ممنون از راهنماییت