textbox a yazılanı listview e almak

[mustim1547]

Textbox1 ,2, ve 3 e yazdıklarımı nasıl sırasıyla listview e alabilirim..Yani butona basınca textbox1 deki isim textbox2 deki soyisim listview de yanyana eklenmesini istiyorum..

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim sat As Long
sat = ListView1.ListItems.Count + 1
ListView1.ListItems.Add , , TextBox1.Text
ListView1.ListItems(sat).SubItems(1) = TextBox2.Text
ListView1.ListItems(sat).SubItems(2) = TextBox3.Text
End Sub
Private Sub UserForm_Initialize()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "ADI", 150
ListView1.ColumnHeaders.Add , , "SOYADI", 150
ListView1.ColumnHeaders.Add , , "ŞEHİR", 150
End Sub

 

[mustim1547]

Teşekkür ederim.

Private Sub CommandButton1_Click()
Dim sat As Long
sat = ListView1.ListItems.Count + 1
ListView1.ListItems.Add , , TextBox1.Text
ListView1.ListItems(sat).SubItems(1) = TextBox2.Text
ListView1.ListItems(sat).SubItems(2) = TextBox3.Text
End Sub
Private Sub UserForm_Initialize()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "ADI", 150
ListView1.ColumnHeaders.Add , , "SOYADI", 150
ListView1.ColumnHeaders.Add , , "ŞEHİR", 150
End Sub

Tam istediğim gibi yapmışsınız.Ellerinize sağlık.Çok çok teşekkür ederim.

 

[Orion1]

Tam istediğim gibi yapmışsınız.Ellerinize sağlık.Çok çok teşekkür ederim.

Rica ederim.
iyi çalışmalar.