AccessTr.neT

Arkadaşlar;

1 textbox bir listbox ve bir kayıt ettikten sonra görünmemesini istiyorum ve yeniden ekle butonuna bastığımda yeniden progressbarın dolup görünmemesini istiyorum. bunu nasıl yapabilirim. kendim yapmış olduğum kodlama aşağıdaki gibidir. ancak sadece progresbar doluyor ama kendini sıfırlayıp yok olmuyor

button1
Dim veri As String
veri = TextBox1.Text
ListBox1.Items.Add(veri)
ProgressBar1.Value = 100

---

bir timer1 ekleyip progressbar1.value = 100 deyip button1 özelliğine timer1.start() dediğimdede aynı sonuçları elde ediyorum umarım demek istediğimi anlatabilmişimdir.

Private Sub Komut0_Click()



Dim A, B

      ProgressBar1.Visible = True

For A = 1 To 100

 ProgressBar1.Value = A

       For B = 1 To 200000

    Next B

Next A

  ProgressBar1.Visible = False

End Sub

Kendinize uyarlayın.

deneme dosyamı şimdi ekledim

---

dolumu biraz ağır yapıyor hızlanması için ne yapabilirim

Konu ile ilgili Access dosyası hazırladım. kodları vb.net'e göre uyarlarsınız.

çok teşekkür ederim yalınız dediğim gibi progressbarı nasıl hızlandırabilirim çok yavaş dolum yapıyor

kodda iki yerde "10000" var, bu değerleri düşürün.