Private Sub UserForm_Initialize()
Dim lvItem As ListItem
' Sütun başlıkları ekleniyor
With Me.ListView1
.View = lvwReport
.Gridlines = True
.FullRowSelect = True
.ColumnHeaders.Add , , "ID", 50
.ColumnHeaders.Add , , "Ad", 100
.ColumnHeaders.Add , , "Soyad", 100
End With
' Veri satırları ekleniyor
Set lvItem = Me.ListView1.ListItems.Add(, , "1")
lvItem.SubItems(1) = "Ahmet"
lvItem.SubItems(2) = "Yılmaz"
Set lvItem = Me.ListView1.ListItems.Add(, , "2")
lvItem.SubItems(1) = "Mehmet"
lvItem.SubItems(2) = "Kaya"
End Sub
Private Sub CommandButton1_Click()
If Me.ListView1.SelectedItem Is Nothing Then
MsgBox "Lütfen bir satır seçiniz!"
Else
MsgBox "Seçilen ID: " & Me.ListView1.SelectedItem.Text
End If
End Sub
Private Sub UserForm_Initialize()
Dim lvItem As ListItem
' ListView ayarları
With Me.ListView1
.View = lvwReport
.Gridlines = True
.FullRowSelect = True
.ColumnHeaders.Add , , "Ürün Kodu", 100
.ColumnHeaders.Add , , "Ürün Adı", 150
.ColumnHeaders.Add , , "Fiyat", 70
End With
' Örnek veriler ekleniyor
Set lvItem = Me.ListView1.ListItems.Add(, , "001")
lvItem.SubItems(1) = "Laptop"
lvItem.SubItems(2) = "15.000 TL"
Set lvItem = Me.ListView1.ListItems.Add(, , "002")
lvItem.SubItems(1) = "Telefon"
lvItem.SubItems(2) = "8.000 TL"
End Sub