创作
vb6mini

VB6创建真正的控制台EXE

邓伟VB6创建真正的控制台EXE有 1 条评论

快速入门:

引用 cls 类文件, 实例化之后, 就可以很轻松实现真正的控制台输入和输出了,

支持色彩显示, 具体看下面的文档

CConsole.zip下载

更好用的vb6安装包在底下第一个评论

1、创建：

新建工程，选择“控制台 EXE”类型

工程默认已添加两个文件，Program 为程序主模块，CConsole 为控制台类

常用属性和方法



更多属性和方法参见第3条
Console.Title
Console.BufferWidth
Console.FullScreen

Console.Clear()
Console.Write()
Console.WriteText()
Console.WriteLine()
Console.ReadLine()
Console.ReadKey()
Console.ReadPassword()

2、调试：

a、由于VB6 IDE固有原因，调试控制台程序时IDE无响应属正常现象，请勿手动关
闭控制台窗口！否则将直接退出IDE，请随时保存您的代码。

b、在[工程属性>生成>条件编译参数]选项中设置 VB_DEBUG=1 可帮助调试程序，
防止运行结束后直接退出控制台而看不到运行结果，正式编译时，可设为0。

3、编译：

a、启用 PowerVB Console Application Add-In 插件，在[外接程序]菜单中，选
择 Complie As Windows Console Application，可编译为 真正 的控制台程序。

b、控制台程序一般不使用对话框，推荐勾选[工程属性>通用>无用户界面]选项。

3、CConsole API 说明

属性：

■ BackColor
简介：背景色
原型：Public Property Get BackColor() As Byte
备注：值范围：0 - 15

■ BufferHeight
简介：缓冲区高度
原型：Public Property Get BufferHeight() As Integer

■ BufferWidth
简介：缓冲区宽度
原型：Public Property Get BufferWidth() As Integer

■ ConsoleWindow
简介：与控制台相关的窗口句柄
原型：Public Property Get ConsoleWindow() As Long

■ CursorCol
简介：光标所在列
原型：Public Property Get () As Integer

■ CursorRow
简介：光标所在行
原型：Public Property Get CursorRow() As Integer

■ CursorSize
简介：光标大小
原型：Public Property Get CursorSize() As Long
参数：值范围：1 - 100

■ CursorVisable
简介：光标是否可见
原型：Public Property Get CursorVisable() As Boolean

■ ForeColor
简介：前景色
原型：Public Property Get ForeColor() As Byte
备注：值范围：0 - 15

■ FullScreen
简介：是否全屏
原型：Public Property Get FullScreen() As Boolean

■ InputCodePage
简介：输入代码页
原型：Public Property Get InputCodePage() As Long

■ InputModeEcho
简介：输入模式 ENABLE_ECHO_INPUT
原型：Public Property Get InputModeEcho() As Boolean

■ InputModeInsert
简介：输入模式 ENABLE_INSERT_MODE
原型：Public Property Get InputModeInsert() As Boolean

■ InputModeLine
简介：输入模式 ENABLE_LINE_INPUT
原型：Public Property Get InputModeLine() As Boolean

■ InputModeMouse
简介：输入模式 ENABLE_MOUSE_INPUT
原型：Public Property Get InputModeMouse() As Boolean

■ InputModeProcessed
简介：输入模式 ENABLE_PROCESSED_INPUT
原型：Public Property Get InputModeProcessed() As Boolean

■ InputModeQuickEdit
简介：输入模式 ENABLE_QUICK_EDIT_MODE
原型：Public Property Get InputModeQuickEdit() As Boolean

■ InputModeWindow
简介：输入模式 ENABLE_WINDOW_INPUT
原型：Public Property Get InputModeWindow() As Boolean

■ OutputCodePage
简介：输出代码页
原型：Public Property Get OutputCodePage() As Long

■ OutputModeProcessed
简介：输出模式 ENABLE_PROCESSED_OUTPUT
原型：Public Property Get OutputModeProcessed() As Boolean

■ OutputModeWrapAtEol
简介：输出模式 ENABLE_WRAP_AT_EOL_OUTPUT
原型：Public Property Get OutputModeWrapAtEol() As Boolean

■ StdErr
简介：标准错误句柄
原型：Public Property Get StdErr() As Long

■ StdIn
简介：标准输入句柄
原型：Public Property Get StdIn() As Long

■ StdOut
简介：标准输出句柄
原型：Public Property Get StdOut() As Long

■ Title
简介：控制台标题
原型：Public Property Get Title() As String

■ ViewHeight
简介：视口高度
原型：Public Property Get ViewHeight() As Integer

■ ViewHeightMax
简介：最大视口高度
原型：Public Property Get ViewHeightMax() As Integer

■ ViewWidth
简介：视口宽度
原型：Public Property Get ViewWidth() As Integer

■ ViewWidthMax
简介：最大视口宽度
原型：Public Property Get ViewWidthMax() As Integer

方法：

● Clear
简介：清屏
原型：Public Sub Clear(Optional ByVal pToDefault As Boolean = False)
参数：是否恢复属性

● FillRectText
简介：填充矩形文本
原型：Public Function FillRectText( _
        ByVal pRow As Integer, _
        ByVal pCol As Integer, _
        ByVal pWidth As Integer, _
        ByVal pHeight As Integer, _
        ByVal pChar As Byte _
    ) As Long
参数：行
参数：列
参数：宽度
参数：高度
参数：字符
返回：实际填充数量

● FillRectAttribute
简介：填充矩形属性
原型：Public Function FillRectAttribute( _
        ByVal pRow As Integer, _
        ByVal pCol As Integer, _
        ByVal pWidth As Integer, _
        ByVal pHeight As Integer, _
        ByVal pForeColor As Byte, _
        ByVal pBackColor As Byte, _
        ByVal pReverseColor As Boolean _
    ) As Long
参数：行
参数：列
参数：宽度
参数：高度
参数：前景色
参数：背景色
参数：反转色
返回：实际填充数量

● FillRectEx
简介：填充矩形文本，扩展
原型：Public Function FillRectEx( _
        ByVal pRow As Integer, _
        ByVal pCol As Integer, _
        ByVal pWidth As Integer, _
        ByVal pHeight As Integer, _
        ByVal pChar As Byte, _
        ByVal pForeColor As Byte, _
        ByVal pBackColor As Byte, _
        ByVal pReverseColor As Boolean _
    ) As Long
参数：行
参数：列
参数：宽度
参数：高度
参数：字符
参数：前景色
参数：背景色
参数：反转色
返回：实际填充数量

● FillText
简介：填充文本
原型：Public Function FillText( _
        ByVal pRow As Integer, _
        ByVal pCol As Integer, _
        ByVal pCount As Long, _
        ByVal pChar As Byte _
    ) As Long
参数：行
参数：列
参数：字符
参数：数量
返回：实际填充数量

● FillTextAttribute
简介：填充属性
原型：Public Function FillTextAttribute( _
        ByVal pRow As Integer, _
        ByVal pCol As Integer, _
        ByVal pCount As Long, _
        ByVal pForeColor As Byte, _
        ByVal pBackColor As Byte, _
        ByVal pReverseColor As Boolean _
    ) As Long
参数：行
参数：列
参数：数量
参数：前景色
参数：背景色
参数：反转色
返回：实际填充数量

● FillTextEx
简介：填充文本，扩展
原型：Public Function FillTextEx( _
        ByVal pRow As Integer, _
        ByVal pCol As Integer, _
        ByVal pCount As Long, _
        ByVal pChar As Byte, _
        ByVal pForeColor As Byte, _
        ByVal pBackColor As Byte, _
        ByVal pReverseColor As Boolean _
    ) As Long
参数：行
参数：列
参数：数量
参数：字符
参数：前景色
参数：背景色
参数：反转色
返回：实际填充数量

● MakeAttribute
简介：合成字符属性
原型：Public Function MakeAttribute( _
        ByVal pForeColor As Byte, _
        ByVal pBackColor As Byte, _
        ByVal pReverseColor As Boolean _
    ) As Integer
参数：前景色
参数：背景色
参数：反转色
返回：合成的属性

● MoveCursor
简介：移动光标
原型：Public Sub MoveCursor(ByVal pRow As Integer, ByVal pCol As Integer)
参数：行
参数：列

● ReadBufferAttribute
简介：读取缓冲属性
原型：Public Function ReadBufferAttribute( _
        ByVal pRow As Integer, _
        ByVal pCol As Integer, _
        ByVal pCount As Long _
    ) As Integer()
参数：行
参数：列
参数：读取多少个属性
返回：属性数组，每个值1-4位为前景色，5-8位为背景色，15位为反转色

● ReadBufferText
简介：读取缓冲文本
原型：Public Function ReadBufferText( _
        ByVal pRow As Integer, _
        ByVal pCol As Integer, _
        ByVal pCount As Long _
    ) As String
参数：行
参数：列
参数：读取多少个
返回：读取的文本

● ReadKey
简介：读取键盘按键
原型：Public Function ReadKey() As Integer
返回：按键的虚拟键码，参考KeyCodeConstants枚局常量

● ReadLine
简介：读取整行输入
原型：Public Function ReadLine(Optional pPrompt As String = "") As String
参数：提示
返回：输入文本，不包括回车换行

● ReadPassword
简介：读取密码
原型：Public Function ReadPassword(Optional pPrompt As String = "") As String
参数：提示
返回：输入文本，不包括回车换行

● ReverseTextColor
简介：反转前景色和背景色
原型：Public Function ReverseTextColor( _
        ByVal pRow As Integer, _
        ByVal pCol As Integer, _
        ByVal pCount As Long, _
        ByVal pReverse As Boolean _
    ) As Long
参数：行
参数：列
参数：数量
参数：是否反转
返回：实际反转数量

● ReverseRectColor
简介：反转矩形前景色和背景色
原型：Public Function ReverseRectColor( _
        ByVal pRow As Integer, _
        ByVal pCol As Integer, _
        ByVal pWidth As Integer, _
        ByVal pHeight As Integer, _
        ByVal pReverse As Boolean _
    ) As Long
参数：行
参数：列
参数：宽度
参数：高度
参数：是否反转
返回：实际反转数量

● SetViewSize
简介：设置视口尺寸
原型：Public Sub SetViewSize(ByVal pWidth As Integer, ByVal pHeight As Integer)
参数：宽
参数：高

● SplitAttribute
简介：分解字符属性
原型：Public Function SplitAttribute( _
        ByVal pAttribute As Integer, _
        ByRef pForeColor As Byte, _
        ByRef pBackColor As Byte, _
        ByRef pReverseColor As Boolean _
    )
参数：属性
参数：前景色
参数：背景色
参数：反转色

● StrLen
简介：测试文本长度，单字节算1，双字节算2
原型：Public Function StrLen(pStr As String) As Long
参数：内容

● WriteBufferAttribute
简介：写入缓冲属性
原型：Public Function WriteBufferAttribute( _
        ByVal pRow As Integer, _
        ByVal pCol As Integer, _
        ByRef pAttributes() As Integer, _
        ByVal pCount As Long _
    ) As Long
参数：行
参数：列
参数：属性数组，每个属性值1-4位为前景色，5-8位为背景色，15位为反转色
参数：写入多少个字符
返回：实际写入多少个字符

● WriteLine
简介：写入整行文本
原型：Public Function WriteLine(Optional ByVal pBuf As String = "") As Long
参数：内容
返回：实际写入字符个数

● WriteLineEx
简介：写入整行文本,扩展
原型：Public Function WriteLineEx( _
        ByVal pBuf As String, _
        Optional ByVal pForeColor As Integer = -1, _
        Optional ByVal pBackColor As Integer = -1 _
    ) As Long
参数：内容
参数：前景色
参数：背景色
返回：实际写入字符个数

● WriteText
简介：写入文本
原型：Public Function WriteText(pBuf As String) As Long
参数：内容
返回：实际写入字符个数

● WriteTextEx
简介：写入文本,扩展
原型：Public Function WriteTextEx( _
        ByVal pBuf As String, _
        Optional ByVal pForeColor As Integer = -1, _
        Optional ByVal pBackColor As Integer = -1 _
    ) As Long
参数：内容
参数：前景色
参数：背景色
返回：实际写入字符个数

Views: 80

Hi, I’m 邓伟

本来无一物，何处惹尘埃

近期文章

One Comment

发表回复