9912.txt

关于编程技术技巧的文章

=====================================================

                   《编 程 技 术》

         一份属于广大编程爱好者的电子杂志

       这是一份完全关于探讨编程的免费电子杂志
       您可以任意传播本刊，但必须保持它的完整
      本刊承诺绝不向订户发送任何形式的垃圾邮件！
=====================================================     
       第12期 99/06/13          本期发送数:  1352
=====================================================

<本期栏目>
 *刊首语*
 *技术文档*
    用BASIC语言设计Windows风格的用户接口
    Delphi的竖排标签
    基于JPEG格式的图像数据库实现
    如何制作帮助文件
    Visual Basic窗体背景花纹的实现
 *疑难杂症*
 *本周主页更新*

*****************************************************

<刊首语>
    
    自从本刊开设疑难杂症这个栏目以来，我已经收到不少提
问信了。但也有几位朋友建议把回答也能放在杂志上和大家一
起分享。所以从本期开始，我改变了该栏目的样式（类似《索
易电脑信箱》的问答方式）希望大家在回答提问人的同时，也
能抄送一封发到我的信箱里，以便让大家“资源共享”。

*****************************************************
*****************************************************

<技术文档>

              用BASIC语言设计Windows风格的用户接口 

                浙江电视台发射部 (310013) 成晖 

    BASIC语言历史悠久,近年来发展迅速。BASIC语言的结构化程度高,易
于理解,很适合广大的编程人员使用。而第三代BASIC语言的功能更是日臻
完善、强大,使用人员更多。 

    本文意在向编程经验不十分丰富的读者介绍用BASIC语言设计Windows
风格的图形用户接口,起一点抛砖引玉的作用,不妥之处望不吝赐教。程序
在VGA(用Screen 12语句设置)方式下运行,可在Quick BASIC、MS BASIC或
Visual BASIC for MS-DOS下编译。另外需要说明的是程序中设置颜色使
用的都是调色板位置号,一个调色板位置号并不固定代表某种特定颜色,而
是可以由编程者通过PALETTE语句或PALETTE USING语句自行指定的。当然,
一般情况下我们使用系统缺省的调色板颜色。 

1.读点阵字模交叉显示汉字及ASCII字符。 

这里要用到UCDOS 3.1的HZK16和ASC16两个字模文件,该功能模块的代码如下: 

SUB DispHz (HzCol%, HzRow%, Color%, HzStr$) 

DIM i1, i2, i3, i, c1, c2, f, g, HzChar, AscChar AS INTEGER 

DIM HzBy AS STRING * 32 

DIM AscBy AS STRING * 16 

DIM l, HzRec AS LONG 

OPEN "HZK16" FOR BINARY AS #1 '打开汉字库文件 

OPEN "ASC16" FOR BINARY AS #2 '打开ASCII码字库文件 

HzLen% = LEN(HzStr$) '计算字符串长度 

HzPos% = 1 '置字符串的首字节为当前字节 

WHILE HzPos% ＜= HzLen% '字符串显示完前一直循环 

i = ASC(MID$(HzStr$, HzPos%, 1)) '获取当前字符的ASCII值 

IF i ＞ &HA0 THEN '判断是否为汉字内码 

IF f = 0 THEN 'f为零则该字节为汉字区码 

c1 = i - &HA1 '计算区码 

f = -1 '置f为非零 

ELSE 'f不为零则该字节为汉字位码 

c2 = i - &HA1 '计算位码 

f = 0 '置f为零 

HzRec = c1 * 94 + c2 '计算汉字在字库中的记录号 

l = HzRec * 32 + 1 '计算汉字在字库中的起始字节位置 

GET #1, l, HzBy '从l开始读取32字节 

FOR i1 = 0 TO 15 '字模垂直方向16行点 

FOR i2 = 0 TO 1 '每行16个点对应的两个字节 

HzChar = ASC(MID$(HzBy, i1 * 2 + i2 + 1, 1)) '每个字节的ASCII值 

FOR i3 = 0 TO 7 '每个字节的8位 

IF (HzChar \ (2 ^ (7 - i3))) AND &H1 THEN '若该位是1 

PSET (HzCol% + i2 * 8 + i3, HzRow% + i1), Color% '画点 

END IF 

NEXT i3 

NEXT i2 

NEXT i1 

HzCol% = HzCol% + 16 '将光标置于下一个字符的左上角 

END IF 

ELSE '不是汉字内码则为ASCII码 

l = i * 16 + 1 '计算ASCII字符在字库中的起始字节位置 

GET #2, l, AscBy '从l开始读取16字节 

FOR i1 = 0 TO 15 

'字模垂直方向16行点,每行对应1个字节 

AscChar = ASC(MID$(AscBy, i1 + 1, 1)) '每个字节的ASCII值 

FOR i3 = 0 TO 7 '每个字节的8位 

IF (AscChar \ (2 ^ (7 - i3))) AND &H1 THEN '若该位是1 

PSET (HzCol% + i3, HzRow% + i1), Color% '画点 

END IF 

NEXT i3 

NEXT i1 

HzCul% = HzCul% + 8 '光标置于下一个字符的左上角 

END IF 

HzPos% = HzPos% + 1 '置字符串的下一个字节为当前字节 

WEND 

CLOSE 

END SUB 

参数HzCol%、HzRow%是所要显示字符串的左上角坐标,Color%是字符串的
颜色,HzStr$ 是要显示的字符串,其中可包含汉字、图形符号和ASCII字符。 

2.Windows风格图形界面。 

Windows界面简洁、美观、标准,用BASIC语言的图形函数可以很方便地生成
一个Windo ws风格界面。 

先用VIEW (0, 0)-(639, 479), 3设置背景色,再调用下面的过程生成窗口,
调用一次生成一个窗口。参数Le%、Top%、Ri%、Bo%指定窗口左上角和右下
角的坐标,FrmCol%、TitCo l%是工作区和标题栏背景色,Title$、Menu$是标
题和菜单的文字内容。例如,以下调用将生成一个主窗口和一个子窗口: 

MyForm 30, 30, 609, 440, 7, 4, "程序主窗口", "文件[F] 选项[O] 窗口[W] 帮助[H]" 

MyForm 70, 90, 569, 400, 15, 1, "程序子窗口", "文件[F] 编辑[E] 搜索[S] 运行[R] 帮助[H]" 

过程代码如下: 

SUB MyForm (Le%, Top%, Ri%, Bo%, FrmCol%, TitCol%, Title$, Menu$) 

x% = Ri% - Le%: y% = Bo% - Top% 

VIEW (Le%, Top%)-(Ri%, Bo%), 

LINE (0, 0)-(x%, y%), 0, B ' 画窗体 

LINE (3, 3)-(x% - 3, y% - 3), 0, 

LINE (0, 22)-(x%, 22), 

LINE (4, 41)-(x% - 4, 41), 

PAINT (30, 30), 15, 0 ' 填充颜色 

PAINT (30, 10), TitCol%, 

PAINT (10, 50), FrmCol%, 

VIEW (Le% + 3, Top% + 3)-(Le% + 22, Top% + 22), 

LINE (0, 0)-(19, 19), 0, B '画控制钮 

LINE (4, 9)-(16, 11), 8, 

LINE (3, 8)-(15, 10), 0, 

LINE (4, 9)-(14, 9), 15 

VIEW (Le%, Top%)-(Ri%, Bo%) 

DispHz (x% - LEN(Title$) * 8) / 2 - 9, 5, 15, Ti-tle$ '标题 

DispHz 12, 23, 0, Menu$ '主菜单 

END SUB 

用类似方法还可以生成其它Windows风格部件,包括三维风格部件。 

3.下拉菜单 


下拉菜单是通过用GET语句保存菜单弹出前的屏幕内容,用PUT语句恢复先前
保存的屏幕内容实现的,有关内容许多书上都有介绍,这里不再赘述。 

4.键盘和鼠标控制 


键盘和鼠标操作通过BIOS中断调用的循环检测来实现。 

INT 16H是键盘中断、INT 33H是 Microsoft 鼠标中断,通过这两个中断的功
能调用就可以分别用键盘和鼠标控制程序。仅仅使用键盘操作的程序在需要
键盘控制时可以用INT 16H的功能00H在键盘缓冲区中无键入码时等待键盘输
入,一旦有键入码就读取并进行相应处理。倘若还要同时使用鼠标进行程序
控制,就不能用这种终止程序运行等待用户操作的方法 ,这是因为程序要不
断查询鼠标驱动程序以实时确定鼠标的状态。为此可以在每次循环内调用
INT 16H的功能00H前,先调用功能01H弄清键盘缓冲区中是否有按键等待处理,
若无则不执行对功能00H的调用,直接执行鼠标功能。限于篇幅这里只简单举
例说明,读者可照此在自己的程序中加入响应特定键盘按键和鼠标输入的代码,
实现对程序的"键盘-鼠标"双重控制。 

先定义键盘和鼠标的中断调用模块: 

STATIC SUB KeyStroke (k0%, k1%, k2%) 

DIM regs AS RegType 

regs.ax = k0% 

INTERRUPT &H16, regs, regs 

k1% = regs.ax 

k2% = regs.flags AND &H40 '得到标志寄存器的零标志位 

END SUB 

STATIC SUB MouDrv (m0%, m1%, m2%, m3%) 

DIM regs AS RegType 

regs.ax = m0% 

regs.bx = m1% 

regs.cx = m2% 

regs.dx = m3% 

INTERRUPT &H33, regs, regs 

m0% = regs.ax 

m1% = regs.bx 

m2% = regs.cx 

m3% = regs.dx 

END SUB 

函数MouPoll用来查询鼠标光标的坐标和左右按键是否被按下: 

STATIC SUB MouPoll (row%, col%, lButton%, rButton%) 

MouDrv 3, button%, col%, row% 

IF Button% AND 1 THEN lButton% = -1 ELSE lButton% = 

IF Button% AND 2 THEN rButton% = -1 ELSE rButton% = 

END SUB 

下面是本例的主程序,其中的循环将实时检测且在屏幕上显示键盘击键的ASCII
键值和扫描码、鼠标按键状况和光标坐标,程序将一直运行直到按了"Alt-X"为止。 

'$INCLUDE: 'QBX.BI' 

MouDrv 0, 0, 0, 0 '初始化鼠标驱动程序 

MouDrv 1, 0, 0, 0 '显示鼠标光标 

LOCATE 16, 1: PRINT "Press 'Alt-X' to end program." 

WHILE (NOT Alt_X%) 

KeyStroke &H100, Code%, ZF% '检查是否有击键码 

IF ZF% = 0 THEN '零标志位是零表示有击键可用 

KeyStroke &H0, Code%, ZF% '取得击键 

KeyCode% = Code% AND &HFF '取出击键的ASCII键值 

ScanCode% = (Code% AND &HFF00) \ 256 '取出击键的扫描码 

IF ScanCode% = 45 THEN Altlt_X% = -1 '按"Alt-X"键则退出循环 

LOCATE 18, 1: PRINT "KeyCode: "; KeyCode% 

LOCATE 19, 1: PRINT "ScanCode: "; ScanCode% 

ELSE '零标志位是1表示无击键可用,进入鼠标例程 

MouPoll row%, col%, lButton%, rButton% '取得鼠标状态 

IF lButton% THEN '左键按下 

Button$ = "Left 

ELSE IF rButton% THEN Button$ = "Right" '右键按下 

ELSE Button$ = "None " '左右键均未按下 

END IF 

LOCATE 21, 1: PRINT "Button: "; Button$ 

LOCATE 22, 1: PRINT "Position: "; row%; ", "; col% 

END IF 

WEND