listbox

[y.saied]

سلام
من با Adodc كار ميكنم ، ميخوام تو برنامه ام از يه ListBox استفاده كنم كه امكان تيك گذاشتن و انتخاب كردن چند مورد را داشته باشه
1: بي زحمت بفرمائيد كه با چه كدي ميتونم اطلاعات دو فيلد از يك جدول رو با بهترين سرعت در زمان لود شدن فرم بريزم توي ليست باكس
2: و چيكار كنم كه ليست باكس من امكان انتخاب چندتايي رو بده البته تيك دار

[parsajey]

سلام
من با Adodc كار ميكنم ، ميخوام تو برنامه ام از يه ListBox استفاده كنم كه امكان تيك گذاشتن و انتخاب كردن چند مورد را داشته باشه
1: بي زحمت بفرمائيد كه با چه كدي ميتونم اطلاعات دو فيلد از يك جدول رو با بهترين سرعت در زمان لود شدن فرم بريزم توي ليست باكس
2: و چيكار كنم كه ليست باكس من امكان انتخاب چندتايي رو بده البته تيك دار

سلام دوست عزیز
ListBox.Style=1 این برای لیست باکستون که حالات Checkboxرو بهش می ده

برای ADD کرد اطلاعات دو فیلد ( برای مثال فیلد های اول و دوم ) این کارو انجام بدین

ListBox.ADDItem Adodc.Recordset.Fields(0) + " () " + Adodc.Recordset.Fields(1)
با این کار موجودی دو فیلد شما در لیست باکس ( در بین آنها () قرار می گرد ) ADD می شود

[y.saied]

ممنونم دوست عزيز
با اين روشي كه شما فرمودين همه اطلاعات داخل دو تا فيلد بطور كامل و يكجا در ليست نمايش داده ميشن؟

[parsajey]

ممنونم دوست عزيز
با اين روشي كه شما فرمودين همه اطلاعات داخل دو تا فيلد بطور كامل و يكجا در ليست نمايش داده ميشن؟

برای مثال در فیلد اول نام ذخیره شده و در فیلد دوم نام خانوادگی

در لیست باکس خط اول ( Index=0 ) اطلاعات از چپ به راست - نام خانوادگی () نام ذخیره میشود

[y.saied]

پس چرا فقط اولين ركورد نمايش داده ميشه ؟؟؟؟؟؟؟؟؟؟؟

[mahnaz_tbe]

سلام
من یه listbox دارم که توش checkbox گذاشتم.می خواشتم ببینم چه کدی بنویسم که با کلیک بر روی یک checkbox سطر مربوط به اون انتخاب بشه و با برداشته شدن check اون سطر هم از حالت انتخاب خارج بشه.
تو رو خدا زود جواب بدین.من خیلی به این کد احتیاج دارم.

[parsajey]

پس چرا فقط اولين ركورد نمايش داده ميشه ؟؟؟؟؟؟؟؟؟؟؟

سلام
دوست عزیز شما می تونی با یه حلقه خیلی راحت این کارو انجام بدی


For i=1 to Adodc.Recordset.RecordCount

ListBox.ADDItem Adodc.Recordset.Fields(0) + " () " + Adodc.Recordset.Fields(1)
Adodc.Recordset.MoveNext

Next


با این کار شما تمام رکورد های موجود را پیمایش می کونید ... اگر از

ListBox.ADDItem Adodc.Recordset.Fields(0) + " () " + Adodc.Recordset.Fields(1)

تنها استفاده کنید تنها رکورد جاری رو براتون برمی گردونه

خلاقیت + دقت + تلاش = موفقیت

[parsajey]

سلام
من یه listbox دارم که توش checkbox گذاشتم.می خواشتم ببینم چه کدی بنویسم که با کلیک بر روی یک checkbox سطر مربوط به اون انتخاب بشه و با برداشته شدن check اون سطر هم از حالت انتخاب خارج بشه.
تو رو خدا زود جواب بدین.من خیلی به این کد احتیاج دارم.

سلام

یعنی شما می خواین وقتی چک باکس تیک خورد اون خط انتخاب بشه ( فوکوس ) بشه ؟ + حالات MultiSelect ( چند انتخابی ) ؟؟؟؟ :متفکر:

[y.saied]

سلام
خيلي ممنون ، شرمنده كردي
ولي من مشكلم كامل حل نشده

من نميتونم ليست باكس رو چك دار كنم كه حالتي انتخاب چندتايي رو هم داشته باشه

اگه ممكنه يه نمونه بزارين ، ممنون ............ ممنون

[y.saied]

سلام
خيلي ممنون ، شرمنده كردي
ولي من مشكلم كامل حل نشده

من نميتونم ليست باكس رو چك دار كنم كه حالتي انتخاب چندتايي رو هم داشته باشه

اگه ممكنه يه نمونه بزارين ، ممنون ............ ممنون

[y.saied]

كسي از دوستان نميخواد به من كمك كنه .........

[hamed aj]

با سلام

دوست عزیز خاصیت multiselect شیء ListBox فقط در style استاندارد فعال هست
1 - شما میتونید از یک کنترل listbox دیگر (نه استاندارد خود VB6) استفاده کنید. شاید مشکل شما رو حل کنه
2 - برای چه کاری نیاز دارید. توضیح بدین شاید بشه مشکل رو با روش دیگه ای حل کرد

[y.saied]

ممنون .......... شرمنده كردي

من ميخوام اسامي پرسنلي رو كه در بانك اطلاعاتي اكسس ثبت كردم در يك ليست باكس نشون بدم و با انتخاب افراد مورد نظر و با زدن كليد انتقال نام افرادي رو كه تيك خورده از اين ليست باكس حذف شده و در ليست باكس دومي نمايش داده شود .

فقط همين

[mahnaz_tbe]

سلام

یعنی شما می خواین وقتی چک باکس تیک خورد اون خط انتخاب بشه ( فوکوس ) بشه ؟ + حالات MultiSelect ( چند انتخابی ) ؟؟؟؟ :متفکر:

معذرت می خوام.می خواستم بگم ListView اشتباهی گفتم Listbox.:خجالت:
ببینین اول اینکه می خوام کنار گزینه هام تو Listview یک Textbox بزارم و کنار Listview هم یک گزینه "انتخاب همه" که وقتی روی "انتخاب همه" کلیک میشه همه گزینه ها انتخاب بشه و برعکس.
همچنین وقتی روی یه گزینه ای کلیک میشه هم انتخاب بشه و هم CheckBox کنارش تیک بخوره و اگر تیک خورده، تیکش برداشته بشه و از حالت انتخاب هم خارج بشه.
الان با کدی که نوشتم این اتفاقا می افته ولی دو تا مشکل وجود داره. اول اینکه وقتی کنار گزینه ها کلیک می کنم و چند تا رو انتخاب می کنم، وقتی چک یکی از گزینه ها رو بر میدارم،همه گزینه ها از حالت انتخاب خارج می شن نه فقط همون یک گزینه.
دوم اینکه وقتی روی خود گزینه کلیک می کنم (نه رو روی چک کنارش) و چند تا رو می خوام انتخاب کنم، گزینه های قبلی از حالت انتخاب خارج می شن، در حالیکه من می خوام در حالت انتخاب بمونن و وقتی دوباره روشون کلیک می کنم، فقط همون گزینه از حالت انتخاب خارج بشه.
اینم کدی که نوشتم.
Private Sub ChkAll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChkAll.Click
If Me.ChkAll.Checked = True Then
Dim i As Integer
For i = 0 To ListView1.Items.Count.ToString - 1
Me.ListView1.Items(i).Selected = True
Me.ListView1.Items(i).Checked = True
ListView1.Select()
Next
End If
If Me.ChkAll.Checked = False Then
Dim j, i As Integer
j = ListView1.Items.Count.ToString - 1
For i = 0 To j
Me.ListView1.Items(i).Checked = False
Next
Me.ListView1.SelectedItems.Clear()
End If
End Sub
************************************************** *

Private Sub ListView1_ItemChecked(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
If (e.Item.Checked) Then
Me.ListView1.Items(e.Item.Index).Selected = True
Me.ListView1.Items(e.Item.Index).Checked = True
End If
If Not (e.Item.Checked) Then
Me.ListView1.Items(e.Item.Index).Selected = False
Me.ListView1.Items(e.Item.Index).Checked = False
End If
End Sub
************************************************** *

Private Sub ListView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Dim j As Integer
j = ListView1.Items.Count.ToString - 1
If (Me.ListView1.SelectedItems.Count > 0) And (Me.ListView1.SelectedItems.Count < j) Then
Dim i As Integer
For i = 0 To j
If Me.ListView1.Items.Item(i).Selected = False Then
Me.ListView1.Items.Item(i).Checked = False
Else
Me.ListView1.Items.Item(i).Checked = True
End If
Next
End If
End Sub

[khormaloo]

منم همين مشكلو دارم
يه ListView مي خوام كه حالت MultiSelect داشته باشه
كسي نميدونه؟