السلام عليكم..
هل من الممكن اجراء تغيير في كود الشريط التقدم هذا لجعل شريط التقدم يتحرك من الاسفل الى الاعلى
Public Function PCTMETER(VARAMT As Variant, VARTOTAL As Variant)
Dim SNGPCT As Single
On Error Resume Next
SNGPCT = VARAMT / VARTOTAL
If SNGPCT <= 1 Then
Me!BASELBL.Caption = "" & Int(SNGPCT * 60)
Me!LBLMETER.Width = CLng(Me!BASELBL.Width * SNGPCT)
Else
Me!BASELBL.Caption = "%60"
Me!LBLMETER.Width = CLng(Me!BASELBL.Width * 1)
End If
Select Case SNGPCT
Case Is < 0.15
Me!LBLMETER.BackColor = 255
Case Is < 0.5
Me!LBLMETER.BackColor = 255
Case Else
Me!LBLMETER.BackColor = 255
End Select
End Function
شكرا....
