نمایش آیتم های یک لیست باکس

[امیر رضا]

لطفا در خصوص نمایش آیتم های یک لیست باکس در کادر پیغام راهنمایی کنید من می خوام هر بار یک آیتم از لیت خونده بشه و کاری انجام بشه مثلا دکمه ای کلیک بشه اینو ببینید اشکالمو بگید

Dim i As Integer
For i = 1 To ListBox2.ListCount - 1
TextBox1.Text = ListBox2.Text
ListBox2.Selected(i) = True
CommandButton5 = True
 
Next

میخوام بعد اینکه عملیات پشت CommandButton5 من انجام شد رکورد بعدی لیست باکس خونده بشه و بهمین ترتیب الی آخر


با تشکر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[alieddy0]

با سلام
متاسفانه بنده متوجه منظورتون نشدم.اگه میشه خودتون یا دوستانی که متوجه شدن بیشتر توضیح بدین

[امين اسماعيلي]

با درود منم زیاد متوجه نشدم اما خلال اون چیزی که گتی دیدم که میخوای با کد کدها ی یه کلید دیگرو اجرا کنی خوب دو تا کد من برات مینوسم اجرا کن

 Me.CommandButton1.SetFocus
    SendKeys "{Enter}"

یکی دیگه

Call CommandButton1_Click

هر دوشون باید یه جور عمل کنن

[امیر رضا]

منظور اصلیم اینه که بخوام تمام آیتم های لیست باکس رو دونه بدونه نمایش بدم یه ایندکسهای یک آرایه رو دونه دونه نمایش بدم

[امين اسماعيلي]

با درود
میخوای ایتم های لیست باکس هر چی توش بود کجا نشون بده

خودش خودکار انتخاب بشه و تو مسیج باکس بیاد . اینه منظورت . بعد برای ایونت یک باتتن بزاری . یعنی با اجرای یک باتن این اجرا بشه

[امیر رضا]

با درود
میخوای ایتم های لیست باکس هر چی توش بود کجا نشون بده

خودش خودکار انتخاب بشه و تو مسیج باکس بیاد . اینه منظورت . بعد برای ایونت یک باتتن بزاری . یعنی با اجرای یک باتن این اجرا بشه

بله مهندس توی پست دیگه جوابو دادید از شماخیلی ممنونم