QBWIN 图形视窗开发环境

简介：

　　这个程序是一套QB的图形视窗开发软件，是QB程序员可以在编程过程中使用视窗界面。作者制作了一个快速库使用时只要一加载就可以了。这个程序支持的东西有：消息框MsgBox、输入框InputBox、鼠标指针、窗口、菜单、标签Lable、框架Frame、文本框TextBox、单选控件、复选控件、按钮控件、列表控件、下拉列表等。有了这些东西基本上可以当VB使用了。许明华用这个图形环境开发出了, <CD播放器> <英语单词的学习>, <文件管理系统>, <图形鼠标编辑器>, <俄罗斯方块>等程序。

说明：

　　QBWIN可以在本站的“代码下载”和“软件下载”频道下载。下载后解压缩后可以得到Example和Winsrc两个文件夹，Example中是程序作者用开发QBWIN开发的软件，Winsrc是QBWIN的快速库、引用的声明、开发时固定使用的代码、实例程序、热键查询和使用说明。

　　QBWIN需要UCDOS 5以上版本的TX程序支持，所以在运行UCDOS后请执行TX命令。

　　软件作者说没有在QB 4/4.5及其它的版本测试过，我在QB 4.5、QB 6和QB 7中的集成环境测试通过，但没有尝试用BC编译。

　　编写程序前执行QB 7的用户执行 QBX /L WINSRC.QLB，QB 4.5的用户执行QB /L WINSRC.QLB。

　　我在开发了几个程序以后，准备将程序编译成EXE文件，结果系统出现以下提示

Libraries [.LIB]: C:\MYDOCU~1\E_MAIL\QBWIN\WINSRC\winsrc.LIB;
LINK : warning L4051: C:\MYDOCU~1\E_MAIL\QBWIN\WINSRC\winsrc.LIB : cannot find library
Enter new file spec:
原因是作者没有在下载的压缩包中提供WINSRC.LIB的链接库，如果需要请向作者要，我会尽快和作者联系希望他同意将链接库放到网上。下面是作者的联系方法：
<<<<<<<<<<<<<<<<<<<< 联络 >>>>>>>>>>>>>>>>>>>
姓名: 徐明华
地址: 广东省中山市南朗镇新填地街联兴巷3号
邮编: 528451
Q Q: 86382197
E-Mail: andy_cui@china.com

使用方法：

//******以下是作者的说明文档******

<输入框> InputBox (可输入的字符数 , 标题$ , 预设$)
<消息框> MsgBox (按钮组合$/返回$ , 标题$ , 信息$)
按钮组合$及返回$代号说明: 
"O"-确定 "Y"-是[Y] "N"-否[N] "C"-取消
"A"-中断[A] "R"-重试[R] "I"-忽略[I]
<设置鼠标指示器> SetMouseCursor (指示器序号)
0:为默认 1:沙漏 2:文本输入 3后的为用户自定义鼠标图形
<显示菜单> DisplayMenu (菜单序号)

全程变量: 
CutBoard: 文本框编辑缓冲$

--------------------------- 控件说明 -----------------------------

控件 控件名
窗口控件 Windows > WIN.属性
属性说明: 
X: X坐标 -1: 向中间对齐
Y: Y坐标 同上
W: 宽度
H: 高度
BC: 背景色 
变量: Wins: 调用窗口序号
ExitWin: 退出当前窗口
=0: 执行过程循环(窗口运行时)
=1: 退出当前窗口, 若调用其它窗口时重画背景
=2: 退出当前窗口, 若调用其它窗口时保留原来背景

菜单控件 MenuBox > Menu(菜单,项目).属性
属性说明: 
Enabled: 是否激活
Value: 是否选择,对于主菜单项目该值无意义,
而它的值决定的是该项主菜单项目的光带颜色(0-15).
变量: SumMMenu: 菜单总数
SumMenu(菜单): 菜单项目总数
MenuCap(菜单, 项目): 标题$
MenuHotkey(菜单): 热键值 -1=无

标签控件 LabelBox > Label(序号).属性
属性说明: 
X: X坐标
Y: Y坐标
BW: 显示区字符数 0:自动
FC: 字体颜色
BC: 背景色
FW: 字宽
FH: 字高
FM: 字型模式 0:正常 1:凹陷 2:突出 3:粗体
Style: 显示风格 0:左对齐 1:右对齐
变量: LabelCap(序号): 标签标题$
SumLabel: 序号总数

框架控件 FrameBox > Frame(序号).属性
属性说明: 
X: X坐标
Y: Y坐标
W: 宽度
H: 高度
变量: SumFrame: 序号总数

文本控件 TextBox > Text(序号).属性
属性说明: 
X: X坐标
Y: Y坐标
BW: 字符数
MaxLen: 最多输入字符数
FC: 字体颜色
Enabled: 当前激活状态
REnabled: 上次激活状态
Hotkey: 热键值
G3D: 是否立体效果
Start: 显示的区域
Locate: 当前光标位置
变量: TextTxt(序号): 输入的文本$
SumText: 序号总数
编辑键说明: Ctrl+Del: 剪切 403
Ctrl+Ins: 粘贴 402
Ctrl+C : 复制 3

单选控件 OptionBox > OptB(组号,项目号).属性
属性说明: 
X: X坐标
Y: Y坐标
Enabled: 当前激活状态
REnabled: 上次激活状态
Hotkey: 热键值
变量: OptBValue(组号): 选择项目值
OptBRValue(组号): 上一次选择项目值
OptBCap(组号,项目号): 标题$
SumOptG: 总组数
SumOptI(组号): 总项目数

复选控件 CheckBox > Check(序号).属性
属性说明: 
X: X坐标
Y: Y坐标
Enabled: 当前激活状态
REnabled: 上次激活状态
Value: 当前选择状态
RValue: 上次选择状态
Hotkey: 热键值
变量: CheckCap(序号): 标题$
SumCheck: 序号总数

按钮控件 ButtonBox > Button(序号).属性
属性说明: 
X: X坐标
Y: Y坐标
W: 宽度
H: 高度
FC: 字体颜色
FW: 字宽
FH: 字高
Enabled: 当前激活状态
REnabled: 上次激活状态
Hotkey: 热键值
变量: ButtonCap(序号): 标题$
SumButton: 序号总数

列表控件 ListBox > ListB(序号).属性
属性说明: 
X: X坐标
Y: Y坐标
BW: 字符数
BH: 行数
Index: 索引值
RIndex:
ScInx:
RScInx:
Count: 项目总数
RCount:
Hotkey: 热键值
G3D: 是否立体效果
变量: ListI(序号,项目号): 项目标题$
SumList: 序号总数
配合子程序: ListAdd (序号,插入位置,项目$) 如果插入位置为-1时,即追加
ListRemove (序号,删除位置) 
如果删除位置为-1时,即从最后删除
-2时,即全部删除

下拉式列表控件 ComboBox > Combo(序号).属性
属性说明: 
X: X坐标
Y: Y坐标
BW: 字符数
Enabled: 当前激活状态
REnabled: 上次激活状态
G3D: 是否立体效果
变量: ComboTxt(序号): 标题$
SumCombo: 序号总数
配合子程序: SetCombo (序号,索引值)

//****结束*****

程序员可以将SAMPLE.bas备份，然后根据自己的需要修改参数和相应的子程序就可以很容易的开发出一套视窗环境的程序。