Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Aktualizacja kontrolek na formie?? Problem z formą...
JoFerrari




Typ: neutral
Postów: 75
Zarejestrowany: Apr 2003
Aktualizacja kontrolek na formie?? Problem z formą...

Nie bardzo wiedzialem jaki wpisać temat do tego posta. Problem jest taki...

1. Stworzylem sobie formę na ktorej jest tylko Label(label1) i progressbar(pb2). Ma mi ona służyc jako progress wywolywany z roznych miejsc aplikacji

W wielu miejscach dziala dobrze ale...

Mam taki kod:
---------
FrmProgress.Pb1.Min = 1
FrmProgress.Pb1.Max = Recordset.RecordCount
FrmProgress.Caption = "Wyliczanie..."
FrmProgress.Show
Do Until Recordset.EOF
  Counter = Counter + 1
  FrmProgress.Pb1.Value = Counter
  FrmProgress.Label1 = Recordset!NrEwid
  Call Obliczenia.ObliczListe(Recordset!NrEwid)
  Recordset.MoveNext
Loop
Recordset.Close
FrmProgress.Hide
----------
Kod dziala dobrze gdy procedura wewnątrz pętli jest dość krótka. W tym wypadku akurat jest bardzo duża i "zasobożerna" ;-). Przez pare sekund forma wyświetla się prawidłowo a później Forma FrmProgress robi się przezroczysta , jej progressbar biały i label1 też biały. Nic nie widać a przecierz wyraźnie każe wyświetlić na niej dane. Wygląda to tak jakby program zjadal za duzo zasobów i nie starczalo mu juz na obsluge tego.

Ktoś miał podobny problem albo wie jak go rozwiązać???

28-05-2004 16:15
Pokaż profil JoFerrari  Wyślij email do JoFerrari   
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Wpisz w pętli polecnie Doevents


_____________________________________________
www.mob.abc.pl - moja strona o VB

28-05-2004 19:34
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
JoFerrari




Typ: neutral
Postów: 75
Zarejestrowany: Apr 2003

Heh... Dzieki ;-)  To działa...
Dlugie pytaniei krotka odpowiedz... niezla luka w mojej pamieci(kiedys tego uzywalem)

29-05-2004 00:11
Pokaż profil JoFerrari  Wyślij email do JoFerrari   
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1