Vb.net listbox acill

İlk önce bi adet timer ekle forma interval 300000 yap
sonra
form'un load eventine


ekle daha sonra Timerın eventine


sanırım istediğin bu tarz birşey

mantığı anladın fakat çalışmıyor

dim ra as integer = -1

timer bölümüne

ra = ra +1

try

Listbox1.selectedindex = ra
textbox1.text = listbox1.selecteditem.tostring
catch
end try
end if

byteview' Alıntı:

dim ra as integer

timer bölümüne

ra = ra +1

try

Listbox1.selectedindex = ra
textbox1.text = listbox1.selecteditem.tostring
catch
end try
end if

Genişletmek için tıkla ...

Hocam yapıyorum fakat tek bir tanesi alıyor ötekisini almıyor

http://mocean.tr.tn/2016/09/02/vb-net-listbox-kullanimi/ belki yardımcı olur

akabedesing' Alıntı:

Hocam yapıyorum fakat tek bir tanesi alıyor ötekisini almıyor

Genişletmek için tıkla ...

düzelt tim - 1 eklersen olcaktir

byteview' Alıntı:

düzelt tim - 1 eklersen olcaktir

Genişletmek için tıkla ...

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


Try
ListBox1.SelectedIndex = ListBox1.SelectedIndex.ToString - 1
Label1.Text = ListBox1.SelectedItem.ToString =

Catch ex As Exception
Timer1.Enabled = False
MsgBox("HATA")


End Try

Genişletmek için tıkla ...

Bu şekilde ama msg box hata veriyor

akabedesing' Alıntı:

Bu şekilde ama msg box hata veriyor

Genişletmek için tıkla ...

böyle dermisin

dim ra as integer = -1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


ra = ra +1

try

Listbox1.selectedindex = ra
textbox1.text = listbox1.selecteditem.tostring


catch
msgbox("bitti")
ra = -1 ' eger tekrar baslamasini istiyorsan
end try

end sub

byteview' Alıntı:

böyle dermisin

dim ra as integer = -1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


ra = ra +1

try

Listbox1.selectedindex = ra
textbox1.text = listbox1.selecteditem.tostring


catch
msgbox("bitti")
ra = -1 ' eger tekrar baslamasini istiyorsan
end try

end sub

Genişletmek için tıkla ...

hocam böylede olmadı sadece ıtems 0 olanı alıyor devamı gelmıyor oldu yerde sayıyo

arthur dayne' Alıntı:

ilk önce bi adet timer ekle forma interval 300000 yap
sonra
form'un load eventine

Kod:

listbox1.selectedındex = 0
timer1.start()

ekle daha sonra timerın eventine

Kod:

   try
             textbox1.text = textbox1.text & vbnewline & listbox1.selectedıtem
            listbox1.selectedındex += 1
        catch ex as exception
            timer1.enabled = false
        end try

sanırım istediğin bu tarz birşey

Genişletmek için tıkla ...

hocam biraz oynama yapınca oldu teşekkürler

akabedesing' Alıntı:

hocam böylede olmadı sadece ıtems 0 olanı alıyor devamı gelmıyor oldu yerde sayıyo

Genişletmek için tıkla ...

cod denendi calisiyor


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer2.Enabled = True

End Sub

Dim ra As Integer = -1
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
ra = ra + 1


If Not ListBox3.SelectedIndex = 0 Then
ListBox3.SelectedIndex = 0

End If

Try

ListBox3.SelectedIndex = ra
TextBox1.Text = ListBox3.SelectedItem.ToString

Catch
MsgBox("ad")
ra = -1
End Try
End Sub

simdi anladim senin yapmak istedigin itemleri sira sira textboxda toplamak : )
ilginc neden böyle birsey yapmak istiyorsun

while döngüsü kullanılarak yapılabilir

byteview' Alıntı:

simdi anladim senin yapmak istedigin itemleri sira sira textboxda toplamak : )
ilginc neden böyle birsey yapmak istiyorsun

Genişletmek için tıkla ...

Bi projem için yakında piyasaya çıkar