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
Visual Basic Code
        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
Son Düzenleme: 21/03/2020, 22:32, Düzenleyen: feraz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da