çift sütunlu listbox nasıl oluşur (unuttum....)

[hsayar]

çift sütunlu listbox nasıl oluşur (unuttum....):kafa:

sub ListboxDoldur()
with listbox1
    .coloumncount = 2
    For i = 1 to 10 
      [COLOR=Red]Listboxın 1 kolonu[/COLOR] = i
      [COLOR=Red]Listboxın 2 kolonu[/COLOR] = i * 10
    next i
end with
End sub

 

[zafer]

Merhaba


.coloumncount =
.Columncount = 2 olacak



ListBox1.AddItem
ListBox1.list(0, i) = xxxxxxxxxxxxxxxx

xxxxxxxxxx=Listbox1.column(0

 

[hsayar]

orda sorun olacağını sanmıyoruz öylesine yazmıştım.

Private Sub CommandButton1_Click()
'ListBox1.AddItem(1, 0) = TextBox1.Text
'ListBox1.AddItem(1, 1) = TextBox2.Text
With ListBox1
  .ColumnCount = 2
  .ColumnHeads = True
  .ColumnWidths = "50;75"
  For i = 1 To 10
    '.AddItem
    .Column(0, i - 1) = i & "Tarih"
    .Column(1, i - 1) = i & "Tipi"
  Next i
     
End With


End Sub

 

[zafer]

Merhaba



'.AddItem

Kapatmışsınız.

Yoksa kodlarınız çalışıyor


Private Sub CommandButton1_Click()
'ListBox1.AddItem(1, 0) = TextBox1.Text
'ListBox1.AddItem(1, 1) = TextBox2.Text
With ListBox1
.ColumnCount = 2
.ColumnHeads = True
.ColumnWidths = "50;75"
For i = 1 To 10
.AddItem
.Column(0, i - 1) = i & "Tarih"
.Column(1, i - 1) = i & "Tipi"
Next i

End With


End Sub

 

[hsayar]

taşaekkürler sn. zafer
baştan bu halde idi sonradan orayı düzeltip yukarısını bozmuşum.

.Column(0, i ) = i & "Tarih"
.Column(1, i ) = i & "Tipi"