28 lines
644 B
VB.net
28 lines
644 B
VB.net
Public Class LoadingDots
|
|
|
|
Private Shared PointsDelay As Single = 0.0F
|
|
|
|
Public Shared Sub Update()
|
|
PointsDelay += 0.1F
|
|
If PointsDelay >= 4.0F Then
|
|
PointsDelay = 0.0F
|
|
End If
|
|
End Sub
|
|
|
|
Public Shared ReadOnly Property Dots As String
|
|
Get
|
|
Dim p As String = ""
|
|
If PointsDelay >= 1.0F Then
|
|
p &= "."
|
|
End If
|
|
If PointsDelay >= 2.0F Then
|
|
p &= "."
|
|
End If
|
|
If PointsDelay >= 3.0F Then
|
|
p &= "."
|
|
End If
|
|
Return p
|
|
End Get
|
|
End Property
|
|
|
|
End Class |