43 lines
1.6 KiB
VB.net
43 lines
1.6 KiB
VB.net
|
Public Class HistoryScreen
|
|||
|
|
|
|||
|
|
Public Class HistoryHandler
|
|||
|
|
|
|||
|
|
Public Shared Sub AddHistoryItem(ByVal Name As String, ByVal Data As String, ByVal IsScriptOrigin As Boolean, ByVal ShowOnTimeline As Boolean)
|
|||
|
|
If Core.Player.HistoryData <> "" Then
|
|||
|
|
Core.Player.HistoryData &= Environment.NewLine
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Dim dateString As String = ""
|
|||
|
|
With My.Computer.Clock.LocalTime
|
|||
|
|
Dim hour As String = .Hour.ToString()
|
|||
|
|
If hour.Length = 1 Then
|
|||
|
|
hour = "0" & hour
|
|||
|
|
End If
|
|||
|
|
Dim minute As String = .Minute.ToString()
|
|||
|
|
If minute.Length = 1 Then
|
|||
|
|
minute = "0" & minute
|
|||
|
|
End If
|
|||
|
|
Dim second As String = .Second.ToString()
|
|||
|
|
If second.Length = 1 Then
|
|||
|
|
second = "0" & second
|
|||
|
|
End If
|
|||
|
|
Dim day As String = .Day.ToString()
|
|||
|
|
If day.Length = 1 Then
|
|||
|
|
day = "0" & day
|
|||
|
|
End If
|
|||
|
|
Dim month As String = .Month.ToString()
|
|||
|
|
If month.Length = 1 Then
|
|||
|
|
month = "0" & month
|
|||
|
|
End If
|
|||
|
|
Dim year As String = .Year.ToString()
|
|||
|
|
|
|||
|
|
dateString = day & "-" & month & "-" & year & "_" & hour & "." & minute & "." & second
|
|||
|
|
End With
|
|||
|
|
|
|||
|
' Date|IsScriptOrigin|Name|Data|ShowOnTimeline
|
|||
|
|
Core.Player.HistoryData &= dateString & "|" & IsScriptOrigin.ToNumberString() & "|" & Name & "|" & Data & "|" & ShowOnTimeline.ToNumberString()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
End Class
|
|||
|
|
|
|||
|
|
End Class
|