ست کردن Maximum برای ProgressBar

[Salar82 896]

سلام به همه

همونطور که میدونید، ماکسیمم مقدار برای ProgressBar صد هست.

با کد زیر، میتونید این مقدار رو تغییر بدید. مثلا بذارید رو 1000:

Sub SetMaximumProgressbar(Pb As ProgressBar,Value As Int)
    Dim CB1 As JavaObject = Pb
    CB1.RunMethod("setMax",Array(Value))
End Sub

 

مثال:

SetMaximumProgressbar(ProgressBar1, 1000)

 

موفق باشید