List Box

[ILOVEVB]

سلام
:flower: سال نو مبارک :flower:
چگونه می توان هنگام اضافه کردن item به یک list box مقادیری را به عنوان کلید به item ها نسبت داد و هنگام انتخاب شدن یکی از item های list box‌ توسط کاربر چگونه می توان آن را بازیابی کرد .
ممنون
خدانگهدار

[Hamedm]

سلام

میشه واضحتر توضیح بدی. :oops:

در پناه حق موفق باشید و پرتوان

[armin_izer]

سلام

میشه اینکار رو با کمی کد نویسی انجام داد.
ولی عزیز مین میشه بگی چرا از ListView استفاده نمیکنی؟
تمام این قابلیت ها رو داره.
عالیه.
از اون استفاده کن.
بازم اگه سوال داشتی بگو. :موفق:

[ILOVEVB]

سلام
دوستان عزیز کاری که من می خواهم انجام بدهم این است که اطلاعات یک فیلد از یک جدول را بخوانم و به عنوان آیتم های یک لیست باکس ذخیره کنم و در ضمن ID این فیلد را که از نوع متغییر رشته ای است به عنوان یک کلید ذخیره کنم تا وقتی کاربر بر روی یکی از آیتم های لیست باکس کلیک می کند از طریق ID مربوطه بقیه اطلاعات رکورد انتخاب شده توسط کاربر را بدست بیاورم .
ممنون :flower: .
خدانگهدار

[armin_izer]

:strange:
azize man kami mokhet ro bekar bendaz.
bebin injooriye.fekr kon to formet ye listbox dari va 2 ta label ok ?
va masalan userid ha ro tooye load formet rikhti tooye listboxet.
[code]
Private Sub ListBox1_Click
dim Cnn as string
dim db as new adodb.connection
dim rs as new adodb.recordset
dim sql as string

Cnn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C;\database.mdb;Persist Security Info=False"
db.Open Cnn
sql = "SELEC T * FROM Table1 WHERE UserId=" & list1.List(List1.ListIndex)
rs.Open sql , db
label1.Caption = rs.Fields("Name").value
label2.Caption = rs.Fields("Surname").Value
rs.close
set rs = nothing
db.close
End Sub

[armin_izer]

azize man kami mokhet ro bekar bendaz.
bebin injooriye.fekr kon to formet ye listbox dari va 2 ta label ok ?
va masalan userid ha ro tooye load formet rikhti tooye listboxet.



Private Sub ListBox1_Click
dim Cnn as string
dim db as new adodb.connection
dim rs as new adodb.recordset
dim sql as string

Cnn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C;\database.mdb;Persist Security Info=False"
db.Open Cnn
sql = "SELEC T * FROM Table1 WHERE UserId=" & list1.List(List1.ListIndex)
rs.Open sql , db
label1.Caption = rs.Fields("Name").value
label2.Caption = rs.Fields("Surname").Value
rs.close
set rs = nothing
db.close
End Sub

[حامد مصافی]

پروپرتی ItemData موجود در لیست باکس دقیقاً چیزیه که شما دنبالشین

[ILOVEVB]

با عرض تشکر از armin_izer و BlackDal عزیز
armin_izer جان یه خورده با میتدی ها مهربون تر حرف بزن . بالاخره شما حرفه ای ها هم یه روز مبتدی بودین :flower: