9924.txt

关于编程技术技巧的文章

hDLL,DWORD dwReason,LPVOID Reserved)
{
switch(dwReason)
{
case DLL_PROCESS_ATTACH:
{
break;
}
case DLL_PROCESS_DETACH:
{
break;
}
}
return TRUE;
}
int ShowMe(void)
{
//蜂鸣器响一下
MessageBeep((WORD)-1);
MessageBox("你好!");
return 1;
}

----4.编译DLL文件----从Build菜单中选择BuildSample.DLL,产生Sample.DLL文件,
以后就可以随时调用了。

三.在应用程序中调用DLL文件

----在应用程序中要首先装入DLL后才能调用导出表中的函数,例如用MFC创建基于对
话框的工程Test,并在对话框上放置"Load"按钮,你就必须添加装载代码。

1.首先在TestDlg.cpp的首部添加变量设置代码:
//设置全局变量gLibSample用于存储DLL句柄
HINSTANCE gLibSample=NULL;
//第二个变量ShowMe是指向DLL
库中ShowMe()函数的指针
typedef int(* SHOWME)(void);
SHOWME ShowMe;

2.利用ClassWizard为"Load"按钮添加装载DLL的代码
Void CTestDlg::OnLoadButton()
{
//要添加的代码如下
if(gLibMyDLL!=NULL)
{
MessageBox("The Sample.DLL has already been load.");
return;
}
//装载Sample.dll,未加路径,将在三个默认路径中寻找
gLibSample=LoadLibrary("SAMPLE.DLL"); 
//返回DLL中ShowMe()函数的地址
ShowMe=(SHOWME)
GetProcAddress(gLibSample,"ShowMe");
//代码添加完毕
}

----3. 只要DLL装载成功,在应用程序中就可以直接调用ShowMe()函数,此时已完成了
定制和调用DLL的全部过程。
----本程序在Windows95,VC++5.0中运行通过。
 
****************************************************************
　
                   PB中一个类Word打印对话框的实现
 
                    许昌市电力设计研究所  高灵超

----Powerbuilder数据窗口可用于生成各种复杂的报表，但如何让用户在使用时
控制打印份数、打印范围等信息呢？

----我们在开发我局MIS系统时，经过对我局报表打印需求的分析，提出了如下
的功能要求：

----1.必须能够控制象打印份数、打印（页码）范围等信息，这是基本的要求。

----2.我们系统中装有多台打印机，必须能让用户根据自己需要选择使用哪台打
印机，必要时能对所选打印机进行配置。

----3.在设计时，对每一个报表需要什么样的纸张，要多大的边距合适，都已确
定，所以使用时不需要页面的设置。但由于不同的报表使用不同的纸张，必须在
使用时给出提示，以便用有机会换上合适的纸张（或换用合适的打印机）。

----根据以上要求，我们设计了如下图所示的对话框。下面把设计过程以及用到
的技术介绍一下。

----首先使用窗口画板画出窗口,名字为w_printdlg，窗口类型为respons。“打
印机”组框中的“名称”文本控制的名字为st_printname，“设置”按钮的名字
为cb_printsetup。“页面范围”组框中的无线按钮组名字分别为rb_pagearrangeall、
rb_pagearrangecurrent、rb_pagearrange，单行编辑框名字为sle_pagearrange,
其enable属性为false。“副本”组框中的编辑域名字为em_copies。“打印”旁
边的下拉列表框名字为ddlb_printwhat，列表有三项，分别为所选页面、偶数页、
奇数页。“纸张”组框中的下拉列表框名字为ddlb_paper，列表内容为Poerbuiler
定义的43种纸张类型，分别用0-42的数字来表示。“纵向”无线按钮的名字为
rb_portrait，“横向”无线按钮的名字为rb_landscape。表示纵向和横向的图片
框分别为p_portrait和p_landscape。命令按钮“确定”和“取消”的名字分别为
cb_ok和cb_cancel。

----以上工作完成之后，就要着手编写程序。

----首先为窗口定义实例变量idw_toprint，类型为datawindow，用于保存要打印
的数据窗口。再定义一个窗口事件ue_initcontrols（也可以定义为窗口函数），
其程序内容如下：

// event ue_initcontrols( )
//设置窗口中各控件的初始值
st_printername.text = idw_toprint.object.
datawindow.printer //当前打印机名字
em_copies.text = "1" //默认打印份数为1
rb_pagearrangeall.checked = true //默认范围为全部页
sle_pagearrange.enabled = false //页面范围编辑框无效
ddlb_printwhat.SelectItem( 1 ) //默认为“所选页面”
//打印方向
integer li_temp 
li_temp = integer( idw_toprint.object.
datawindow.print.orientation ) //取出设计时的方向
if li_temp = 1 then //横向
rb_landscape.checked = true //选中
p_landscape.visible = true //图片显示
p_portrait.visible = false
elseif li_temp = 2 then //纵向
rb_portrait.checked = true 
p_portrait.visible = true
p_landscape.visible = false
end if

//纸张类型
li_temp = integer( idw_toprint.object.
datawindow.print.Paper.Size ) //设计时的纸张类型
ddlb_paper.SelectItem( li_temp + 1 ) //列表框中选中

然后，在窗口的open事件中编写如下脚本：
// open event
//要使用OpenWithParm( )打开，参数中包含要打印的数据窗口。

idw_toprint = message.powerobjectparm
//从参数中取出要打印的数据窗口

this.event ue_initcontrols( ) //初始化窗口各控件

在无线按钮rb_pagearrangall的clicked事件中编写脚本如下：
sle_pagearrange.enabled = false
在无线按钮rb_pagearrangcurrent的clicked事件中编写脚本如下：
sle_pagearrange.enabled = false
在无线按钮rb_pagearrang的clicked事件中编写脚本如下：
sle_pagearrange.enabled = true //当此无线按钮选中时才可用

在命令按钮cb_printersetup中编写如下脚本：
// cb_printersetup 
PrintSetup( ) //设置打印机
parent.event ue_initcontrols( )

在无线按钮rb_portrait的clicked事件中编写如下脚本：
//纵向
p_landscape.visible = false
p_portrait.visible = true //显示纵向图片框
在无线按钮rb_landscape的clicked事件中编写如下脚本：
//横向
p_portrait.visible = false
p_landscape.visible = true

在命令按钮cb_cancel的clicked事件中编写如下脚本
// cb_cancel执行程序
CloseWithReturn( parent, 2 ) //如果选择取消，返回2
在命令按钮cb_ok的clicked事件中编写如下脚本
// cb_ok执行程序
string str_temp
integer li_temp
long ll_row 

//打印什么
li_temp = ddlb_printwhat.FindItem
( ddlb_printwhat.text, 0 ) - 1
idw_toprint.object.datawindow.
print.page.rangeinclude = li_temp

//打印范围
if rb_pagearrangeall.checked then //全部页
str_temp = ""
elseif rb_pagearrangecurrent.checked then //当前页
ll_row = idw_toprint.GetRow( )
idw_toprint.object.datawindow.print.preview = "Yes" 
//设成预览模式
str_temp = idw_toprint.Describe( "evaluate
( 'Page( )', " + String( ll_row ) +" ) " ) //计算页码
idw_toprint.object.datawindow.print.preview = "No"
elseif rb_pagearrange.checked then //输入范围
str_temp = sle_pagearrange.text
end if
idw_toprint.object.datawindow.print.page.range = str_temp 

//副本份数
if len( em_copies.text ) > 0 then 
idw_toprint.object.datawindow.print.copies 
= Integer( em_copies.text )
end if

//纸的方向
li_temp = 0
if rb_landscape.checked then
li_temp = 1
elseif rb_portrait.checked then
li_temp = 2
end if
idw_toprint.object.datawindow.print.orientation = li_temp

//纸的尺寸
li_temp = ddlb_paper.FindItem( ddlb_paper.Text, 0 )
//第li_temp项
idw_toprint.object.datawindow.print.paper.size = li_temp

closewithreturn( parent,1 )

----几点说明：

----1.原点访问语法：程序中多次用到了象
datawindowcontrol.object.datawindow.print.attribute语法，用语控制数据
窗口的打印属性。原点访问语法用语代替原来的Discribe和Modify函数，更符合
面向对象的语言习惯。关于print属性的详细信息，请参见Powerbuilder帮助。

----2.当前打印页的计算：先用GetRow得到当前行数，再用Describe和Evaluate
函数来计算数据窗口表达式，得出当前页号。注意在计算只前，先把要打印的数
据窗口置成预览模式，否则计算出来的是显示页号，和打印页号不一致。

----3.窗口内外信息的传递：虽然你可以用全局变量传递信息，但那决不是一个
好的注意。使用OpenWithParm函数打开窗口可以向窗口传递一个参数，使用
CloseWithReturn函数关闭窗口可以返回一个参数，根据参数的类型，其结果被
放在系统全局变量message的相应成员中。如果要传递多个参数，可以把要他们
定义为一个结构来传递。

****************************************************************
　
                          在VB应用程序中巧用DLL

                          中国航空信息中心 吴斌

    在使用VB开发多媒体应用程序时，如何合理地存放大量的多媒体资源，是一件
十分棘手的事。如果将资源以文件形式存放在磁（光）盘上，使用时再从盘上读取，
势必大大影响资源调用的速度。如果将资源直接编译在应用程序的可执行文件中，
虽然可以获得令人满意的资源存取速度，但会导致最终的可执行文件尺寸大大膨胀。
如何解决这个矛盾呢？笔者从Windows动态链接库的原理中得到启发，找到了一个结
合二者优势的解决方法。

    动态链接库是实现Windows应用程序共享资源、节省内存空间、提高使用效率的
一个重要技术手段。常见的动态库包含外部函数和资源，也有一些动态库只包含资
源，如Windows字体资源文件，我们将这类动态库称之为资源动态链接库。制作资源
动态库的方法很多，笔者在此提供了一种无需编程、简单有效的方法。该方法利用
了Borland C++的资源管理器Resource Workshop的反编译能力，借用现成的动态库，
将其改制为自己的资源动态库。具体方法是，拷贝一个现成的资源动态库文件（如
windows\system目录下的字体资源文件arial.fot）到应用程序工作目录，更改文件
名，如改为DEMO.DLL。然后在Resource Workshop中打开该文件，选择其中原有的资
源将其删除，再加入自己的资源，即可制成自己的资源动态库。由于篇幅所限，具
体操作过程请读者参阅有关资料。不过有两个关键问题需要提请读者注意，其一，
对于声音这类非Windows传统资源，在加入动态库之前，需要用户自定义一个资源类
型以存放这类资源，如笔者在DEMO.DLL中为Windows音频文件定义了WAVE资源类型；
其二，动态库中每一个资源的资源名十分重要，它是调用资源的关键，建议用户最
好在加入资源后为其定义一个有意义的资源名。

    通过上面介绍的资源动态库的简单制作方法，即使不熟悉C语言的读者也可以轻
松地制作自己的资源动态库了。现在，让我们来看看如何在VB多媒体应用程序中调
用资源动态库中的资源。VB本身并没有调用动态库的函数和语句，因此必须借助于
Windows API函数。下面笔者将结合一个实例，具体介绍调用方法。实例中使用的是
笔者通过上述方法制作的资源动态库DEMO.DLL，其中包含两个BITMAP（.bmp）类型
资源B1和B2，两个WAVE（.wav）类型资源S1和S2。

    首先，新建一个VB工程，其中包含一个窗体Form1和一个模块Module1。在窗体
Form1中加入了一个图片框控件Picture1和四个命令按钮控件，Picture1用于显示动
态库中的位图资源，四个命令按钮的属性设置和功能含义如下表：

属性
 功能
 
Name
 Index
 Caption
 　 
cmdBitmap 0
 BitmapA 在Picture1中显示DEMO.DLL中资源名为B1的位图资源 
cmdBitmap 1
 BitmapB 在Picture1中显示DEMO.DLL中资源名为B2的位图资源 
cmdSound 0
 SoundA 播放DEMO.DLL中资源名为S1的声音资源 
cmdSound 1
 SoundB 播放DEMO.DLL中资源名为S2的声音资源 

接着在Module1和Form1中加入下列代码，便可完成实例程序：

※Moudle1.bas清单

'声明API函数

Declare Function LoadLibrary% Lib "Kernel" (ByVal lpLibFileName$)

Declare Sub FreeLibrary Lib "Kernel" (ByVal hLibModule%)

Declare Function LoadBitmap% Lib "User" (ByVal hInstance%, 
ByVal lpBitmapName As Any)

Declare Function GetObj% Lib "GDI" Alias "GetObject" (ByVal hObject%, 
ByVal nCount%, lpObject As Any)

Declare Function CreateCompatibleDC% Lib "GDI" (ByVal hDC%)

Declare Function SelectObject% Lib "GDI" (ByVal hDC%, ByVal hObject%)