LockScreen U VB60

LockScreen U VB60 06.03.2002. u 22:40 · pre 300 meseci #1

Hoću da zaključam ekran dok mi program menja vrednosti kontrola.
Na sporijim računarima to se vidi. Ako imam na strani dece preko 50 slogova
i dok mi se grid popunjava to izleda ružno non stop treperi. Takođe kada uradim
memorisanje u tabele forma mi bljesne.
Kako se to rešava u VB60 u VFP se to rešavalo jednostavno. Evo ovako:
Ako je aktivna forma na screenu - zaključaj nju.
_screen.ActiveForm.LockScreen = .T.
Kada završiš posao ti je otkjlučaj
_screen.ActiveForm.LockScreen = .F.
Ili zakljućaj ceo screen.
_screen.LockScreen = .T.
Pozdrav

Re: LockScreen U VB60 11.03.2002. u 02:59 · pre 300 meseci #2

Citat:

'Takode kada uradim memorisanje u tabele forma mi bljesne.

Dosta neprecizan opis problema, inace.

Ako koristis msflexgrid, da ne bi imao treperenje dok se popunjava, napisi :
MSFlexGrid.redraw=false, pre popunjavanja,
pa kad se zavrsi popunjavanje, onda true da bi 'osvezio' sadrzaj grida.
A za bljeskanje forme nije mi jasno sta se desava, opisi bolje problem.

Potpis

fire, walk with me

Re: LockScreen U VB60 07.08.2002. u 12:20 · pre 295 meseci #3

Ako forma vec treperi zasto ne pokusas da je sakrijes dok se podaci ne prikazu pa je onda ponovo prikazes:
Kad pocne da popunjava podacima:
Form1.Hide
Kada zavrsi:
Form1.Show

Potpis

http://www.paidresponse.com/cgi-bin/a.pl?pr&7513

Re: LockScreen U VB60 12.05.2005. u 13:31 · pre 261 mesec #4

Meni ova funkcija radi perfektno cak i na Pentium I - nema nikakvog trepereja a cepa ko zmaj

Code:

Public Sub NapuniGridSQL(ByRef nekimsf As MSFlexGrid, ByRef SQLUpit As String)
Dim rstNeki As DAO.Recordset
Dim errADO As Error
Dim BrojKolona As Integer
Dim ii As Integer
Dim REDIC As Long
Dim sacuvaniformat As String
REDIC = 1

On Error Resume Next

Set rstNeki = baza.OpenRecordset(SQLUpit)
BrojKolona = rstNeki.Fields.Count
sacuvaniformat = nekimsf.FormatString
nekimsf.Clear
nekimsf.FormatString = sacuvaniformat
nekimsf.Rows = 1

REDIC = rstNeki.RecordCount
If Not rstNeki.BOF Then rstNeki.MoveFirst

nekimsf.Rows = REDIC + 1
REDIC = 1

With rstNeki
    If Not .BOF Then .MoveFirst
        While Not .EOF
              'nekimsf.AddItem ""
            For ii = 0 To BrojKolona - 1
                nekimsf.TextMatrix(REDIC, ii) = Prebaci(.Fields(ii))
            Next ii
            .MoveNext
            REDIC = REDIC + 1
        Wend
rstNeki.Close
Set rstNeki = Nothing
End With
If Err.Number <> 0 Then GoTo ERR_ENUM:
Exit Sub

ERR_ENUM:
SnimiLogGreska "Start Bas", "ADONapuniGridSQL", Err.Description, Err.Number, Err.Source

End Sub

Re: LockScreen U VB60 12.05.2005. u 14:40 · pre 261 mesec #5

Koristi ovaj API

Code:

Declare Function LockWindowUpdate Lib "user32" _
(ByVal hWnd As Long) As Long

Zaključavanje refresh kontrole, forme ....

Code:

LockWindowUpdate me.hWnd ' može i hWnd neke kontrole

a za osvežavanje sadržaja

Code:
LockWindowUpdate 0

Potpis

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Forum kao aplikacija na telefonu

Srodne teme