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

[alireza661]

ببخشید یک کنترلی رو میخواستم که لیست باکس باشه با این تفاوت که چند ستون داشته باشه و بشه برای هر ستون عنوان انتخاب کرد. مثل این تصویر :

http://www.img4up.com/up2/03400562453236404452.jpg

[بهروز عباسی]

برای استفاده از این کنترل در وی بی باید تیک گزینه Microsoft Windows Common Controls 6.0 را در کادر Project/Componnent... رو بزنی تا به toolbox اضافه بشه
واز ListView استفاده کن

[alireza661]

چجوری باید بهش ستون اضافه کنم؟
و اگر بخوام به هر ستون آیتم اضافه کنم باید از چه متدی استفاده بکنم؟

[بهروز عباسی]

روی ListView1 کلیک راست کن گزینه آخر pEROPERTIS رو بزن یه کادر باز میشه خودت میفهمی باید چکار کنی واضحه(راحته)

[alireza661]

بله من اینجارو دیده بودم اما هر چی در تب Insert Columns ستون اضافه میکنم و بعد ok میکنم هیچی در لیست ویو نمایش داده نمیشه

[بهروز عباسی]

در تب gENERAL ازلیست کشوی vIEw گزینه lvwReport رو انخاب کن بعد

برنامه رو اجرا کنی میاد

[alireza661]

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

[محسن واژدی]

سلام
برای افزودن آیتم به لیست:

Private Sub Command1_Click()
Dim li As ListItem

With ListView1
.ColumnHeaders.Add , , "One"
.ColumnHeaders.Add , , "Two"
.ColumnHeaders.Add , , "Three"

Set li = .ListItems.Add(, , "Row1Item1")
li.SubItems(1) = "Row1Item2"
li.SubItems(2) = "Row1Item3"

Set li = .ListItems.Add(, , "Row2Item1")
li.SubItems(1) = "Row2Item2"
li.SubItems(2) = "Row2Item3"
End With
End Sub





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

برنامه را کمپایل کنید و بعد امتحانش کنید

موفق باشید

[Mr'Jamshidy]

کنترل Microsoft Windows Common Controls 6.0 استیل ویندوز رو به خودش نمیگیره اما اگر Microsoft Windows Common Controls 5.0 (SP2) رو انتخاب کنی به مشکلت حل میشه

[alireza661]

برای اینکه عنوان هر ستون از راست به چپ نوشته بشه چکار باید کرد؟

[Mr'Jamshidy]

غیر از ستون شماره یک بقیه رو Alignment رو عوض کن
ستون شماره یک نمیشه نمیدونم چرا
البته باید بشه دورش زد

84634

[alireza661]

من 4 تا ستون دارم که index هاشون از 1 تا 4 هست
اما index چهار رو قبول نمیکنه با این دستور >

li.SubItems(4) = "man"
و این پیغام خطارو میده

http://www.img4up.com/up2/34625258258588253786.jpg

صد بار چک کردم ایندکس 4 هم وجود داره ولی نمیدونم چرا این خطارو میده

[محسن واژدی]

سلام
SubItemها از ستون دوم شروع میشوند تا چهارم که Index هایشان به ترتیب میشود 1,2,3،
پس برای اینکه بتوانیم آیتمی را در ستون چهارم اضافه کنیم میشود:

li.SubItems(3) = "man"


موفق باشید

[alireza661]

به ترتیب میشود 1,2,3،
این شد سه تا ستون ایندکس اولی چیه پس؟

[alireza661]

راستی یک سئوال چکار کنم تا ستون ها قفل بشه؟
یعنی کاربر نتونه اونارو تغییر اندازه بده؟

[M.T.P]

افزودن چند خصوصیت به Listview در Microsoft Common Control 5.0 (http://barnamenevis.org/showthread.php?213836-%D8%A7%D9%81%D8%B2%D9%88%D8%AF%D9%86-%DA%86%D9%86%D8%AF-%D8%AE%D8%B5%D9%88%D8%B5%DB%8C%D8%AA-%D8%A8%D9%87-Listview-%D8%AF%D8%B1-Microsoft-Common-Control-5.0&highlight=m.t.p+Listview)

[alireza661]

مرسی از گرید لاین استفاده کردم اما چجوری ستون هارو قفل کنم؟

[محسن واژدی]

این شد سه تا ستون ایندکس اولی چیه پس؟
سلام
index اولی میشود شماره ردیف، مانند ListBox



راستی یک سئوال چکار کنم تا ستون ها قفل بشه؟
یعنی کاربر نتونه اونارو تغییر اندازه بده؟
چون listview بصورت معمول این اختیار را ندارد، از کد زیر استفاده کنید:

Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
Private Declare Function EnableWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Private Sub Command2_Click()
Dim hChild&
hChild = FindWindowEx(ListView1.hwnd, 0&, vbNullString, vbNullString)
If hChild Then EnableWindow hChild, 0
End Sub


موفق باشید