Changeset 627 for trunk/ab5.0/ablib/src/basic
- Timestamp:
- Sep 18, 2008, 4:01:32 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/basic/dos_console.sbp
r606 r627 6 6 #define _INC_DOS_CONSOLE 7 7 8 9 Dim _System_hConsoleErr = GetStdHandle(STD_ERROR_HANDLE) 10 Dim _System_hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE) 11 Dim _System_hConsoleIn = GetStdHandle(STD_INPUT_HANDLE) 12 System.Console.SetError( 13 System.IO.TextWriter.Synchronized(New System.IO.StreamWriter( 14 New System.IO.FileStream(_System_hConsoleErr, System.IO.FileAccess.Write, False)))) 15 16 System.Console.SetOut( 17 System.IO.TextWriter.Synchronized(New System.IO.StreamWriter( 18 New System.IO.FileStream(_System_hConsoleOut, System.IO.FileAccess.Write, False)))) 19 System.Console.SetIn( 20 System.IO.TextReader.Synchronized(New System.IO.StreamReader( 21 New System.IO.FileStream(_System_hConsoleIn, System.IO.FileAccess.Read, False)))) 8 System.Console.OpenStandardError() 9 System.Console.OpenStandardInput() 10 System.Console.OpenStandardOutput() 22 11 23 12 '---------- command.sbp内で定義済み ---------- … … 55 44 End Sub 56 45 46 /* 47 @brief コンソール出力の内容を削除 48 @date 2008/9/18 49 @auther NoWest 50 */ 51 Macro CLS()(num As Long) 52 Select Case num 53 Case 2 54 Exit Macro 55 Case Else 56 System.Console.Clear() 57 End Select 58 End Macro 59 60 /* 61 @brief コンソール出力の前景色・背景色を変更 62 @date 2008/9/18 63 @auther NoWest 64 */ 65 Macro COLOR(TextColorCode As Long)(BackColorCode=-1 As Long) 66 Select Case TextColorCode 67 Case 1 68 System.Console.ForegroundColor = System.ConsoleColor.Blue 69 Case 2 70 System.Console.ForegroundColor = System.ConsoleColor.Red 71 Case 3 72 System.Console.ForegroundColor = System.ConsoleColor.Magenta 73 Case 4 74 System.Console.ForegroundColor = System.ConsoleColor.Green 75 Case 5 76 System.Console.ForegroundColor = System.ConsoleColor.Cyan 77 Case 6 78 System.Console.ForegroundColor = System.ConsoleColor.Yellow 79 Case 7 80 System.Console.ForegroundColor = System.ConsoleColor.Gray 81 Case Else 82 System.Console.ForegroundColor = System.ConsoleColor.Black 83 End Select 84 85 Select Case BackColorCode 86 Case -1 87 Exit Macro 88 Case 1 89 System.Console.BackgroundColor = System.ConsoleColor.Blue 90 Case 2 91 System.Console.BackgroundColor = System.ConsoleColor.Red 92 Case 3 93 System.Console.BackgroundColor = System.ConsoleColor.Magenta 94 Case 4 95 System.Console.BackgroundColor = System.ConsoleColor.Green 96 Case 5 97 System.Console.BackgroundColor = System.ConsoleColor.Cyan 98 Case 6 99 System.Console.BackgroundColor = System.ConsoleColor.Yellow 100 Case 7 101 System.Console.BackgroundColor = System.ConsoleColor.Gray 102 Case Else 103 System.Console.BackgroundColor = System.ConsoleColor.Black 104 End Select 105 End Macro 106 107 /* 108 @brief コンソール出力のカーソル位置を変更 109 @date 2008/9/18 110 @auther NoWest 111 */ 57 112 Macro LOCATE(x As Long, y As Long) 58 S etConsoleCursorPosition(_System_hConsoleOut, MAKELONG(x, y))113 System.Console.SetCursorPosition(x,y) 59 114 End Macro 60 115
Note:
See TracChangeset
for help on using the changeset viewer.