gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2026-06-26 08:23:56 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix WriteCenteredLines

Browse Source
This commit is contained in:
Zev Spitz
2022-01-23 00:26:12 +02:00
parent 41fdd87047
commit 4f032310ad
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
03_Animal/vbnet/Animal/Shared/ConsoleAdapter.vb
+4 -2
View File
@@ -12,8 +12,10 @@
Public Overrides Sub WriteCenteredLines(value As Object)
If Console.CursorLeft <> 0 Then WriteLine()
Dim toWrite = If(value?.ToString, "")
Write($"{Space((Console.WindowWidth - toWrite.Length) \ 2)}{toWrite}")
WriteLine()
For Each line In toWrite.Split(Environment.NewLine)
Write($"{Space((Console.WindowWidth - line.Length) \ 2)}{line}")
WriteLine()
Next
End Sub
Public Overrides Function ReadLine() As String