listbox'ta Metin biçimlendirme ve listboxtaki ilk seçenekle hesi seçme.

[halilsoft]

benim iki soru olacak tı
1. listboxta metim biçinlendirme yapabilirmiyim. yani tarif formatı ve 0,00 gi sayıo formatı uygulanabilir mi?
2. listbox ilk satırında hepsi seçeneğim var ve ben bunu seçince hepsini seçilmesi, herhagi biri seçildiğinde ise ilk satırdaki seçeneğin kalmasını istiyorum mümkün müdür?

 

[Mahmut Kök]

Rakam şekli için, herhangi bir düğmeye aşağıdaki kodu ekleyip deneyiniz.

For i = 0 To ListBox1.ListCount - 1
    ListBox1.List(i, 0) = Format(ListBox1.List(i, 0), "00.00")
    Next

İlk satır seçili ise, tümünü seçmek için, kod "change" olayına yazılmalıdır, aşağıdaki kodu deneyiniz. (Rapor formundaki listbox1 için örnektir)

Private Sub ListBox1_Change()
If rapor.ListBox1.Selected(0) = True Then
rapor.ListBox1.Selected(0) = False
For i = 1 To ListBox1.ListCount - 1
    ListBox1.Selected(i) = True
    Next
rapor.ListBox1.Selected(0) = True 'Bu satırı devre dışı bırakıp da deneyebilirsiniz.
End If
End Sub

 

[halilsoft]

teşekkür ederim işimi gördü. bu kadar geç teşekkür ettiğim içinde ayrıca özür dilerim ancak int. dönebildim