+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Son Değerden Ve Kutu Genişliğinden Bağımsız Progressbar (/konu-son-degerden-ve-kutu-genisliginden-bagimsiz-progressbar.html)
Son Değerden Ve Kutu Genişliğinden Bağımsız Progressbar - accessman - 21/03/2020
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
NextCvp: Son Değerden Ve Kutu Genişliğinden Bağımsız Progressbar - berduş - 21/03/2020
örnek mi soru mu?
Cvp: Son Değerden Ve Kutu Genişliğinden Bağımsız Progressbar - accessman - 21/03/2020
örnek
Cvp: Son Değerden Ve Kutu Genişliğinden Bağımsız Progressbar - feraz - 21/03/2020
32 bitte zaten progresbar var ne gereği var labelle mabelle yada başka şeylerle
Gerçi son office 64 bit versiyonlarındada progresbar var.Bence macera bu işler