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
#2
örnek mi soru mu?
Cevapla
#3
örnek
Cevapla
#4
32 bitte zaten progresbar var ne gereği var labelle mabelle  yada başka şeylerle Img-grin

Gerçi son office 64 bit versiyonlarındada progresbar var.Bence macera bu işler Img-grin
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da