大家好~我想请教两个问题:
1)在vb里如何写控制台程序,能给我个例子吗?简单的就好~
2)能把一个写好的win32程序,用工具转变问控制台程序嘛?该如何做呢?
谢谢!
~
1)在vb里如何写控制台程序,能给我个例子吗?简单的就好~
2)能把一个写好的win32程序,用工具转变问控制台程序嘛?该如何做呢?
谢谢!
~
解决方案 »
- 用vb调用存储过程时的数据类型转换问题(variant 与numeric)
- 如何在简体系统下查看在繁体系统环境下开发的软件源码,而不会出现乱码
- 打印问题
- 请问怎么能程序点完右上角的X后不是退出而是做别的?
- 数据更改问题,在线急!!!!!!!
- 关于treeview控件的nodes.add方法使用的问题????请求解答
- 关于打印程序,chrw()
- 请教!
- 短期招聘,要求成都在校大学生vb+sql server 或delphi+sql server
- VB6中如何将RichTextBox控件中加载的RTF格式内容以图像的形式输出?
- 怎样将文件夹的属性改为“受保护的操作系统文件”
- 求完整的财务软件源代码
五湖肥人 2004年3月29日 第12期 本期看点:了解控制台,并用API函数在VB中轻松实现控制台命令功能。 本期实例效果
虽然程序开发早已步入可视化时代,但在某些特殊的场合中仍需要编制一些传统的基于字符界面的控制台窗口。如果通过一些“陈年”的工具去开发,效果可能会非常差且不一定能使程序和Windows系统完全兼容。API函数中就有专用于开发控制台程序的函数,完全可满足开发此类程序的需求。 本期实例运行后,将弹出一个控制台窗口,该窗口首先会提示用户输入用户名,当输入正确时,将显示提示文字,随后提示用户按任意键来关闭窗口(如图)。 用户输入的用户名如不正确,程序会显示输入的错误提示。本实例实现了基于字符界面的交互式程序。 设计思路
(1)分配控制台程序的内存资源。 (2)设置控制台的相关属性。 (3)通过控制台输出文本内容。 (4)接收交互信息并继续输出。 (5)释放控制台程序的内存并关闭程序。 实现步骤
(1)启动VB,新建一个工程,删除默认的“From1”窗体,然后添加一个模块,在该模块中输入常量和全局变量的定义代码。 注:API函数的声明可参照“本期API函数声明”: '定义标准输入、输出和错误的句柄常量 Private Const STD_INPUT_HANDLE = -10& Private Const STD_OUTPUT_HANDLE = -11& Private Const STD_ERROR_HANDLE = -12& '定义控制台程序文字属性常量 Private Const FOREGROUND_BLUE = &H1 Private Const FOREGROUND_GREEN = &H2 Private Const FOREGROUND_RED = &H4 Private Const FOREGROUND_INTEN SITY = &H8 Private Const BACKGROUND_BLUE = &H10 Private Const BACKGROUND_GREEN = &H20 Private Const BACKGROUND_RED = &H40 Private Const BACKGROUND_INTEN SITY = &H80 '定义控制台输入模式常量 Private Const ENABLE_LINE_INPUT = &H2 Private Const ENABLE_ECHO_INPUT = &H4 Private Const ENABLE_MOUSE_INPUT = &H10 Private Const ENABLE_PROCESSED_I NPUT = &H1 Private Const ENABLE_WINDOW_INP UT = &H8 '定义控制台输出模式常量 Private Const ENABLE_PROCESSED_OUTPUT = &H1 Private Const ENABLE_WRAP_AT_EOL_OUTPUT = &H2 '定义控制台输入句柄变量 Private hConsoleIn As Long '定义控制台输出句柄变量 Private hConsoleOut As Long '定义控制台错误句柄变量 Private hConsoleErr As Long (2)在模块中输入主程序和其他功能子程序、函数的代码: '主程序 Private Sub Main() '定义接收输入的字符型变量 Dim szUserName As String '分配控制台程序的内存,完成设计思路(1),参考API函数声明① AllocConsole '设置窗体标题,参考API函数声明② SetConsoleTitle "VB 控制台窗口" '获得控制窗口的一系列句柄,参考API函数声明③,并到此完成设计思路(2) hConsoleIn = GetStdHandle(STD_INPUT_HANDLE) hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE) hConsoleErr = GetStdHandle(STD_ERROR_HANDLE) '设置控制台输出的文字属性,参考API函数声明④ SetConsoleTextAttribute hConsoleOut, FOREGROUND_RED Or FOREGROUND_GREEN Or FOREGROUND_BLUE Or FOREGROUND_INTENSITY Or BACKGROUND_GREEN '输出文字,进行设计思路(3) PrintConsole "VB Console Demo" & vbCrLf SetConsoleTextAttribute hConsoleOut, FOR EGROUND_RED Or FOREGROUND_GREEN Or FOREGROUND_BLUE '输出提示用户输入的文字 PrintConsole "Please Enter User Name:" '读取控制台的输入,即获取用户名 szUserName = ConsoleRead() '按输入的情况输出不同的内容,进行设计思路(4) If Not szUserName = vbNullString Then '如输入的用户名正确(假设为“user”) If szUserName = "user" Then '输出输入正确的提示 PrintConsole "Welcome, " & szUserName & "!" & vbCrLf Else '输出用户名输入错误的警告 PrintConsole "Error!" & vbCrLf End If Else '提示用户输入用户名 PrintConsole "Press Enter User Name!" & vbCrLf End If '提示用户按任意键关闭窗体 PrintConsole "Press Enter To Close The Demo" Call ConsoleRead '释放内存并关闭控制台程序,参考API函数声明⑤,进行设计思路(5) FreeConsole End Sub '向控制台输出内容的子程序 Private Sub PrintConsole(szOut As String) WriteConsole hConsoleOut, szOut, Len(szOut), vbNull, vbNull '参考API函数声明⑥ End Sub '读取控制台输入内容的函数 Private Function ConsoleRead() As String Dim szUserInput As String * 256 Call ReadConsole(hConsoleIn, szUserInput, Len(szUserInput), vbNull, vbNull) '参考API函数声明⑦ '去除空字符和回车符 ConsoleRead = Left$(szUserInput, InStr(szUserInput, Chr$(0)) - 3) End Function 注:本期例子在Windows2000和VB6环境中试验通过。 相关API函数声明
①AllocConsole
说明:分配控制台窗口所需的内存。 返回值:Long型。 VB声明:Private Declare Function AllocConsole Lib "kernel32" () As Long ②SetConsoleTitle
说明:设置控制台窗体的标题。 返回值:Long型。 参数: lpConsoleTitle:String型,代表待设置的控制台窗体标题内容。 VB声明:Private Declare Function SetConsoleTitle Lib "kernel32" Alias "SetConsoleTitleA" (ByVal lpConsoleTitle As String) As Long ③GetStdHandle
说明:获取控制台程序的句柄。 返回值:Long型。 参数: nStdHandle:Long型,代表需要获取句柄的窗口。 VB声明:Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long ④SetConsoleTextAttribute
说明:设置控制台文字的属性。 返回值:Long型。 参数: hConsoleOutput:Long型,代表待输出内容的控制台窗口句柄。 wAttributes:Long型,代表输出的文字属性。 VB声明:Private Declare Function SetConsoleTextAttribute Lib "kernel32" (ByVal hConsoleOutput As Long, ByVal wAttributes As Long) As Long ⑤FreeConsole
说明:释放控制台窗口占用的内存。 返回值:Long型。 VB声明:Private Declare Function FreeConsole Lib "kernel32" () As Long ⑥WriteConsole
说明:向控制台输出内容。 返回值:Long型。 参数: hConsoleOutput:Long型,代表待输出内容的控制台窗口句柄。 lpBuffer:Any型,代表存放输出内容的缓冲区域。 nNumberOfCharsToWrite:Long型,代表输出内容的长度。 lpNumberOfCharsWritten:Long型,代表实际输出的内容长度。 lpReserved:Any型,该参数保留,暂不使用。 VB声明:Private Declare Function WriteConsole Lib "kernel32" Alias "Write ConsoleA" (ByVal hConsoleOutput As Long, ByVal lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long ⑦ReadConsole
说明:读取控制台输入的内容。 返回值:Long型。 参数: hConsoleInput:Long型,代表待接收输入内容的控制台窗口句柄。 lpBuffer:String型,代表接收输入内容的缓冲区域。 nNumberOfCharsToRead:Long型,代表接收的输入内容长度。 lpNumberOfCharsRead:Long型,代表实际接收的输入内容长度。 lpReserved:Any型,该参数保留,暂不使用。 VB声明:Private Declare Function ReadConsole Lib "kernel32" Alias "ReadConsoleA" (ByVal hConsoleInput As Long, ByVal lpBuffer As String, ByVal nNumberOfCharsToRead As Long, lpNumberOfCharsRead As Long, lpReserved As Any) As Long
这里AllocConsole '设置窗体标题,参考API函数声明② SetConsoleTitle "VB 控制台窗口"谢谢~