Eline sağlık, işe yarar bir kod dostum +k.

Kendi yaptığın şeyi en azından birdaha unutmassın, emin

Listbox la yapılan bir veriyi text ten girip listbox tan tekrar seçerek aynı hizaya getirip tekrar textlere yansıtmak. Binevi DataGrid gibi. Kod: Private Sub Command1_Click List1. AddItem Text1 List2. AddItem Text2 List3. AddItem Text3 List4. AddItem Text4 End Sub Private Sub List1_Click a = List1. ListIndex List2. ListIndex = a List3. ListIndex = a List4. ListIndex = a Text1. Text = List1. Text Text2. Text = List2. Text Text3. Text = List3. Text Text4. Text = List4. Text End Sub Private Sub List2_Click a = List2. ListIndex List1. ListIndex = a List3. ListIndex = a List4. ListIndex = a End Sub Private Sub List3_Click a = List3. ListIndex List2. ListIndex = a List1. ListIndex = a List4. ListIndex = a End Sub Private Sub List4_Click a = List4. ListIndex List2. ListIndex = a List3. ListIndex = a List1. ListIndex = a End Sub

evet bir zamanlar bende arıyordum hiç biyede bulamadım yok değil vardır muhakkak ama ben nasıl arayacağımı bilemedim hatta bi örnek le wardom da istedim ama cevap alamadım kendi çabamla bişey yapmış oldum

For lngSave& = 0 To List. ListCount - 1 Print

Public Sub listk On Error Resume Next Dim lngSave As Long Dim a, b, c, d a = "M6" b = "G0 X0 Y0 A20" c = "G0 X0 Y0 A20" d = "M30" If FileName$ = "" Then Exit Sub Open FileName$ For Output As