Skip to main content

AccessTr.neT


Son Değerden Ve Kutu Genişliğinden Bağımsız Progressbar

Son Değerden Ve Kutu Genişliğinden Bağımsız Progressbar

#1
        Dim say As Long
        Dim w As Long
        Dim deger As Double
        Dim yuzde As Double
        Dim lastInt As Integer
        Dim son As Integer
        lastInt = 0
        w = Me.pb_cerceve.Width
       
        For say = 1 To 10000
       
            deger = say * w / son
            yuzde = say * 100 / son
           
            If (Int(yuzde) <> lastInt) Then
                lastInt = Int(yuzde)
                Call RunProgressBar(Me.pb_item, deger)
                Me.pb_lbl.Caption = "Veriler Güncelleniyor... % " & Int(yuzde)
            End If
       
        Next
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Son Değerden Ve Kutu Genişliğinden Bağımsız Progressbar - Yazar: accessman - 21/03/2020, 19:22
Task