至顶网›软件频道 ›用VB建立字符界面的控制台程序

用VB建立字符界面的控制台程序

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

即使是初学VB的人，对于如何用它来建立一个GUI界面的标准Windows应用程序，肯定也是胸有成竹 .

作者：alpha 来源：VB学习网 2007年10月14日

关键字：

程序清单

　　示例程序将创建一个控制台窗口，并输出提示信息，要用户输入自己的名字。用户输入名字后，程序输出问候信息，并等待用户按键返回。本文的示例程序在VB6.0中文版下调试通过。

Option Explicit
'' API函数声明
Private Declare Function AllocConsole Lib "kernel32" () As Long
Private Declare Function FreeConsole Lib "kernel32" () As Long
Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Private Declare Function ReadConsole Lib "kernel32" Alias "ReadConsoleA" _
(ByVal hConsoleInput As Long, ByVal lpBuffer As String, ByVal nNumberOfCharsToRead _
As Long, lpNumherOfCharsRead As Long, lpReserved As Any) As Long
Private Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _
(ByVal hConsoleOutput As Long, ByVal lpBuffer As Any, ByVal nNumberOfCharsToWrite _
As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long
Private Declare Function SetConsoleMode Lib "kernel32" (ByVal hConsoleOutput As Long, _
dwMode As Long) As Long
Private Declare Function SetConsoleTitle Lib "kernel32" Alias "SetConsoleTitleA" _
(ByVal lpConsoleTitle As String) As Long
Private Declare Function SetConsoleTextAttribute Lib "kernel32" _
(ByVal hConsoleOutput As Long, ByVal wAttributes As Long) As Long
''定义API函数中用到的所有常量
''GetStdHandle函数的 nStdHandle参数的取值
Private Const STD_INPUT_HANDLE = -10&
Private Const STD_OUTPUT_HANDLE = -11&
Private Const STD_ERROR_HANDLE = -12&
''SetConsoleTextAttribute函数的wAttributes参数的取值（按RGB方式组合）
Private Const FOREGROUND_bLUE = &H1
Private Const FOREGROUND_GREEN = &H2
Private Const FOREGROUND_RED = &H4
Private Const FOREGROUND_INTENSITY = &H8
Private Const BACKGROUND_BLUE = &H10
Private Const BACKGROUND_GREEN = &H20
Private Const BACKGROUND_RED = &H40
Private Const BACKGROUND_INTENSITY = &H80
''SetConsoleMode的输入模式
Private Const ENABLE_LINE_INPUT = &H2
Private Const ENABLE_ECHO_INPUT = &H4
Private Const ENABLE_MOUSE_INPUT = &H10
Private Const ENABLE_PROCESSED_INPUT = &H1
Private Const ENABLE_WINDOW_INPUT = &H8
''SetConsoleMode的输出模式
Private Const ENABLE_PROCESSED_OUTPUT = &H1
Private Const ENABLE_WRAP_AT_EOL_OUTPUT = &H2
Private hConsoleIn As Long ''控制台窗口的 input handle
Private hConsoleOut As Long ''控制台窗口的output handle
Private hConsoleErr As Long ''控制台窗口的error handle
''主程序
Private Sub Main()
　Dim szUserInput As String
　AllocConsole ''创建 console window
　SetConsoleTitle "VB控制台应用程序"
　''设置console window的标题
　''取得console window的三个句柄
　hConsoleIn = GetStdHandle(STD_INPUT_HANDLE)
　hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
　hConsoleErr = GetStdHandle(STD_ERROR_HANDLE)
　SetConsoleTextAttribute hConsoleOut, FOREGROUND_GREEN Or FOREGROUND_INTENSITY
　　　　''前景：亮绿；背景：黑
　ConsolePrint "What''s your name?"
　szUserInput = ConsoleRead()
　If Not szUserInput = vbNullString Then
　　ConsolePrint "Hello, " & szUserInput & "!" & vbCrLf
　Else
　　ConsolePrint "You don''t have a name?" & vbCrLf
　End If
　ConsolePrint vbCrLf & "Press enter to exit!"
　Call ConsoleRead
　FreeConsole ''销毁 console window
End Sub

''程序中用到的子函数
Private Sub ConsolePrint(szOut As String)
　WriteConsole hConsoleOut, szOut, Len(szOut), vbNull, vbNull
End Sub

Private Function ConsoleRead() As String
　Dim sUserInput As String * 256
　Call ReadConsole(hConsoleIn, sUserInput, Len(sUserInput), vbNull, vbNull)
　　　　　''截掉字符串结尾的&H00和回车、换行符
　ConsoleRead = Left$(sUserInput, InStr(sUserInput, Chr$(0)) - 3)
End Function

查看本文来源

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

用VB建立字符界面的控制台程序

业界热点: