ListView – Gelişmiş Liste
Dim ListEleman As ListItem
ListView1.ColumnHeaders.Add 1, , "Adı" ‘ Kolon ekleme
ListView1.ColumnHeaders.Add 2, , "Boyut"
ListView1.ColumnHeaders.Add 3, , "Tarih"
ListView1.ColumnHeaders(1).Width = 1600 ‘ Kolon şekillendirme ListView1.ColumnHeaders(2).Width = 500
ListView1.ColumnHeaders(2).Alignment = lvwColumnRight
ListView1.ColumnHeaders(3).Width = 1800
Dosya = Dir(Text1 & "\*.*") ‘ Listeyi oluşturma
While Not dosya = ""
Set ListEleman = ListView1.ListItems.Add(, , dosya)
ListEleman.SmallIcon = 2 ‘ ImageList’den alınıyor
ListEleman.Icon = 1 ‘ ImageList’den alınıyor
ListEleman.SubItems(1) = CStr(FileLen(Text1 & "\" & Dosya) \ 1024 & "KB")
ListEleman.SubItems(2) = CStr(FileDateTime(Text1 & "\" & Dosya))
Dosya = Dir
Wend
ListView - Özellikler
AllowColumnRecorder
Appearange
Arrange
BackColor
BorderStyle
CausesValidation
CheckBoxes
ColumnHeadersIcon
ColumnHeaders
Container
DragIcon
DragMode
DropHighLight
Enabled
FlatScrollBar
Font
FontName
ForeColor
FullRowSelect
GridLines
Height
HelpContextID
HideColumnHeaders
HideSelection
HotTracking
HoverSelection
HWnd
Icons
Index
LabelEdit
LabelWarp
Left
ListItems
MouseIcon
MousePointer
MultiSelect
Name
Object
OleDragMode
OleDropMode Parent
Picture
PictureAligment
SelectedItem
SmallIcons
Sorted
SortKey
SortOrder
TabIndex
TabStop
Tag
TextBackgraund
ToolTiptext
Top
Visible
WhatsThisHelpID
Width
View
View : 0 - Büyük Simge, 1 - Küçük Simge, 2 - Liste, 3 - Ayrıntılı Liste
SatırSayısı = ListView1.ListItems.Count
ListView - Olaylar
AfterLabelEdit
BeforeLabelEdit
Click
ColumnClick
DblClick
DragDrop
DragOver
GotFocus
ItemCheck
ItemClick
KeyDown
KeyPress
KeyUp
LostFocus MouseDown
MouseMove
MouseUp
OleCompleteDrag
OleDragDrop
OleDragOver OleGiveFeedBack
OleSetData
OleStartDrag
Vali
ListView -Yöntemler
Drag
FindItem
GetFirstVisible
HitText
Move
OleDrag
Refresh
SetFocus
ShowWhatsThis
StartlabelEdit
Zorder
Dim ListEleman As ListItem
ListView1.ColumnHeaders.Add 1, , "Adı" ‘ Kolon ekleme
ListView1.ColumnHeaders.Add 2, , "Boyut"
ListView1.ColumnHeaders.Add 3, , "Tarih"
ListView1.ColumnHeaders(1).Width = 1600 ‘ Kolon şekillendirme ListView1.ColumnHeaders(2).Width = 500
ListView1.ColumnHeaders(2).Alignment = lvwColumnRight
ListView1.ColumnHeaders(3).Width = 1800
Dosya = Dir(Text1 & "\*.*") ‘ Listeyi oluşturma
While Not dosya = ""
Set ListEleman = ListView1.ListItems.Add(, , dosya)
ListEleman.SmallIcon = 2 ‘ ImageList’den alınıyor
ListEleman.Icon = 1 ‘ ImageList’den alınıyor
ListEleman.SubItems(1) = CStr(FileLen(Text1 & "\" & Dosya) \ 1024 & "KB")
ListEleman.SubItems(2) = CStr(FileDateTime(Text1 & "\" & Dosya))
Dosya = Dir
Wend
ListView - Özellikler
AllowColumnRecorder
Appearange
Arrange
BackColor
BorderStyle
CausesValidation
CheckBoxes
ColumnHeadersIcon
ColumnHeaders
Container
DragIcon
DragMode
DropHighLight
Enabled
FlatScrollBar
Font
FontName
ForeColor
FullRowSelect
GridLines
Height
HelpContextID
HideColumnHeaders
HideSelection
HotTracking
HoverSelection
HWnd
Icons
Index
LabelEdit
LabelWarp
Left
ListItems
MouseIcon
MousePointer
MultiSelect
Name
Object
OleDragMode
OleDropMode Parent
Picture
PictureAligment
SelectedItem
SmallIcons
Sorted
SortKey
SortOrder
TabIndex
TabStop
Tag
TextBackgraund
ToolTiptext
Top
Visible
WhatsThisHelpID
Width
View
View : 0 - Büyük Simge, 1 - Küçük Simge, 2 - Liste, 3 - Ayrıntılı Liste
SatırSayısı = ListView1.ListItems.Count
ListView - Olaylar
AfterLabelEdit
BeforeLabelEdit
Click
ColumnClick
DblClick
DragDrop
DragOver
GotFocus
ItemCheck
ItemClick
KeyDown
KeyPress
KeyUp
LostFocus MouseDown
MouseMove
MouseUp
OleCompleteDrag
OleDragDrop
OleDragOver OleGiveFeedBack
OleSetData
OleStartDrag
Vali
ListView -Yöntemler
Drag
FindItem
GetFirstVisible
HitText
Move
OleDrag
Refresh
SetFocus
ShowWhatsThis
StartlabelEdit
Zorder
