Listboxda bir sonraki yada bir önceki satır

[feryat]

bir buton yardımıyla listboxta bir önceki yada bir sonraki satıra nasıl geçerim.

 

[Levent Menteşoğlu]

Bir sonraki satır için;

If ListBox1.ListIndex < ListBox1.ListCount - 1 Then ListBox1.ListIndex = ListBox1.ListIndex + 1

Bir önceki satır için;

If ListBox1.ListIndex > 0 Then ListBox1.ListIndex = ListBox1.ListIndex - 1

 

[feryat]

Olmadı

Alakanıza teşekkür ederim.

Private Sub CommandButton2_Click()
If UserForm3.ListBox1.ListIndex < ListBox1.ListCount - 1 Then
UserForm3.ListBox1.ListIndex = UserForm3.ListBox1.ListIndex + 1
End If
End Sub

kodu bu biçimiyle yazdım ama iş görmedi.

Userform4 te userform3.listboxtaki veriler görüntüleniyor. Bu verileri userform3 e dönmeden form4 üzerindeki bir butonla aşağı yukarı gezmek istiyorum ama olmuyor.

dosyaya linkten ulaşabilirsiniz.



http://rapidshare.com/files/23147827/Goezlem_Defteri.rar.html

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

Private Sub CommandButton2_Click()
If UserForm3.ListBox1.ListIndex < UserForm3.ListBox1.ListCount - 1 Then
UserForm3.ListBox1.ListIndex = UserForm3.ListBox1.ListIndex + 1
End If
UserForm_Initialize
End Sub
 
Private Sub CommandButton3_Click()
If UserForm3.ListBox1.ListIndex < UserForm3.ListBox1.ListCount - 1 Then
UserForm3.ListBox1.ListIndex = UserForm3.ListBox1.ListIndex - 1
End If
UserForm_Initialize
End Sub

 

[feryat]

Teşekkür.

Kod çalışıyor. Çok teşekkür ederim.