vbdos.bas

VB6 Consol Window Demo

   Attribute VB_Name = "ModvbDOS"
'CODE Manger By BcodeXRose
'使用 Option Explicit 可以避免隐式创建 Variant 类型的变量
Option Explicit

'+----+----+----+----+----+----+----+----+----+----+----+----+----+
'+----+----+--- 过程名称：DisplayHelp
'+----+----+--- 参数：) 为    '显示帮型
'+----+----+----+----+----+----+----+----+----+----+----+----+----+
Sub DisplayHelp()        '显示帮助
    frmvbdos.Cls
    frmvbdos.Print "当前系统可用的命令:"
    frmvbdos.Print "Cls                清除萤幕"
    frmvbdos.Print "Call               调用一个外部程式"
    frmvbdos.Print "Cacl               表达式计算器"
    frmvbdos.Print "CaclTriangle       求一个三角形的面积"
    frmvbdos.Print "CaclDivisor        求两个数的最大公约数"
    frmvbdos.Print "CaclNatural        将一个数分解自然数"
    frmvbdos.Print "CD                 改变当前目录--ChDir命令的简写"
    frmvbdos.Print "Copy               将一个文件复制到当前目录"
    frmvbdos.Print "Color              设定字符显示色彩"
    frmvbdos.Print "ChDrive            改变当前驱动器"
    frmvbdos.Print "ChDir              改变当前目录--同MSDOS的CD命令"
    frmvbdos.Print "Date               显示当前日期"
    frmvbdos.Print "Day                显示当前日"
    frmvbdos.Print "Dec2Hex            将一个十进制数转为十六进制数"
    frmvbdos.Print "Del                删除一个文件--同Kill命令"
    frmvbdos.Print "Dir                显示当前资料夹内的所有档案"
    frmvbdos.Print "Exit               结束系统返回至Windows"
    frmvbdos.Print "FileLen            显示文件长度"
    frmvbdos.Print "FileDateTime       取得文件创建或最后修改时间"
    frmvbdos.Print "GetAttr            取得文件属性"
    frmvbdos.Print "GetASCII           取得一个字符所对应的十进制ASCII码"
    frmvbdos.Print "GetChr             取得一个十进制ASCII码所对应的字符"
    frmvbdos.Print "?                  显示帮助--Help命令的简写"
    frmvbdos.Print "Help               显示帮助"
    frmvbdos.Print "IsPrime            判定一个数字是否为质数"
    frmvbdos.Print "Kill               删除一个文件--同MSDOS的Del命令"
    frmvbdos.Print "ListDrive          列出当前系统所有驱动器盘符"
    frmvbdos.Print "ListPrime          列出指定范围的质数列表"
    frmvbdos.Print "ListPerfect        列出指定范围的完数列表"
    frmvbdos.Print "ListFlower         列出指定范围的水仙花数列表"
    frmvbdos.Print "LoadBMP            显示一个BMP图片"
    frmvbdos.Print "Max                将VBDOS窗体设为最大化"
    frmvbdos.Print "Month              显示当前的月份"
    frmvbdos.Print "MD                 创建一个目录--MkDir命令的简写"
    frmvbdos.Print "MkDir              创建一个目录--同MSDOS的MD命令"
    frmvbdos.Print "Move               将一个文件移动到当前目录"
    frmvbdos.Print "NU2EN              将一个阿拉伯数字转为英文"
    frmvbdos.Print "RD                 删除除一个目录--RmDir命令的简写"
    frmvbdos.Print "RmDir              删除除一个目录--同MSDOS的RD命令"
    frmvbdos.Print "SetAttrReadOnly    将一个文件设为只读属性"
    frmvbdos.Print "SetAttrHidden      将一个文件设为隐藏属性"
    frmvbdos.Print "SetAttrSystem      将一个文件设为系统属性"
    frmvbdos.Print "Type               显示一个文件的内容"
    frmvbdos.Print "Path               显示当前的路径"
    frmvbdos.Print "Time               显示当前时间"
    frmvbdos.Print "Timer              显示午夜至现在的秒数"
    frmvbdos.Print "Ver                显示当前系统版本"
    frmvbdos.Print "Week               显示当前星期"
    frmvbdos.Print "Year               显示当前年份"
    frmvbdos.Print "99Tab              显示九九乘法表"
    frmvbdos.Print "当前系统可用的功能:"
    frmvbdos.Print "Esc                取消执行一个已输入的命令"
    frmvbdos.Print "Alt+F4             结束系统返回至Windows"
End Sub