' Set the value of a progressbar
' Parameter ProgressBar as node
' Parameter Value between 0 and 1 to set as double
' Example: setProgressBarValue(progressbarMain, 0.90)
Sub setProgressBarValue(pb As Node, value As Double)
If (value < 0) OR (value > 1) Then Return
Dim P As JavaObject = pb
Dim progress As Double = value
P.RunMethod("setProgress",Array As Object(progress))
End Sub
' Get the value of a progressbar
' Parameter ProgressBar as node
' Returns Value between 0 and 1 as double
' Example: "Progressbar: " & (getProgressBarValue(progressbarMain) * 100) & "%"
Sub getProgressBarValue(pb As Node) As Double
Dim P As JavaObject = pb
Return P.RunMethod("getProgress",Null)
End Sub