listboxarın aynı anda textboxlara atanması

[nkumas]

ekteki dosyadaki programda listboxların birine tıkladıgında diger listboxlarda aynı sıradaki degere gelecek ve bu degerler alttaki textboxlara atanacak..

ilk seferinde bazı textboxlara atama yapmıyor ... tek tek o listboxlara da tıklamak gerekiyor. bir sefer hepsine tıklayarak hepsini birlikte doldurduktan sonra tekrar aynı sorun olusmuyor ama ilk seferinde neden olmuyor?

 

[Orion1]

Merhaba.
Ben listbox1 için yaptım.Diğer listboxlar için siz yapın.Yapamazsanız iletin ben yaparım.Ekli dosyayı inceleyiniz.

Private Sub ListBox1_Click()
ListBox2.ListIndex = ListBox1.ListIndex
ListBox3.ListIndex = ListBox1.ListIndex
ListBox4.ListIndex = ListBox1.ListIndex
ListBox5.ListIndex = ListBox1.ListIndex
ListBox6.ListIndex = ListBox1.ListIndex
ListBox7.ListIndex = ListBox1.ListIndex
ListBox9.ListIndex = ListBox1.ListIndex
ListBox10.ListIndex = ListBox1.ListIndex
TextBox2.Value = ListBox1.Column(0, ListBox1.ListIndex)
TextBox3.Value = ListBox2.Column(0, ListBox1.ListIndex)
TextBox4.Value = ListBox3.Column(0, ListBox1.ListIndex)
TextBox5.Value = ListBox4.Column(0, ListBox1.ListIndex)
TextBox6.Value = ListBox5.Column(0, ListBox1.ListIndex)
TextBox7.Value = ListBox6.Column(0, ListBox1.ListIndex)
TextBox8.Value = ListBox7.Column(0, ListBox1.ListIndex)
TextBox21.Value = ListBox9.Column(0, ListBox1.ListIndex)
TextBox22.Value = ListBox10.Column(0, ListBox1.ListIndex)
End Sub

 

[nkumas]

oldu .. cok tesekkur ederim..

dosyayı incelediyseniz gormussunuzdur kar butonuna %10 atamak icin 0.1 yazmam gerekiyor baska bir konu biliyorum ama arastırdım bunu 10 yazınca %10 olacak gibi bir turlu ayarlayamadım bu konuda da yardımcı olabilir misiniz?

 

[Orion1]

oldu .. cok tesekkur ederim..

dosyayı incelediyseniz gormussunuzdur kar butonuna %10 atamak icin 0.1 yazmam gerekiyor baska bir konu biliyorum ama arastırdım bunu 10 yazınca %10 olacak gibi bir turlu ayarlayamadım bu konuda da yardımcı olabilir misiniz?

Ekli dosyayı inceleyiniz.

 

[nkumas]

super.. cok tesekkur ederim...

 

[nkumas]

..........