荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Peter (小飞侠), 信区: Program
标 题: VB调用API函数技巧--借用Windows系统的标准ABOUT窗口
发信站: BBS 荔园晨风站 (Fri Jan 22 13:48:28 1999), 转信
转自《中国计算机报》[一九九七年十月六日 总第678期] 第128版
VB调用API函数技巧--借用Windows系统的标准ABOUT窗口
ABOUT窗口是应用程序向用户传达自身一些基本信息
的最佳方式。Windows系统的许多软件,如程序管理器、文
件管理器、书写器等,都带有一个风格一致的ABOUT窗口
。在这些软件中,只要选择“帮助”菜单命令“关于XXX.
..”,就会弹出这个标准ABOUT窗口,其中显示有关Win
dows及相应软件的版本、工作方式和版权等信息。在VB应
用程序中,可以通过调用API函数ShellAbout,方便地借
用这个标准ABOUT窗口,并将自己的基本信息加入其中。
首先,在module文件中加入下列声明语句:
Declare FunctionExtractIcon% Lib "shell.dll" _
(ByVal hinst%,ByVal lpszExeName$,ByVal iIcon%)
Declare Function GetWindowWord Lib "User"( _
ByVal hWnd As Integer,ByVal nIndex As Integer)As Integer
Declare Function ShellAbout Lib "shell.dll"(ByVal _
hWnd As Integer,ByVal szApp As String,ByVal szOtherStuff As String,_
ByVal hIcon As Integer)As Integer
Public Const GWL_EXSTYLE=(-20)
Public Const GWL_STYLE=(-16)
Public Const GWL_WNDPROC=(-4)
Public Const GWW_HINSTANCE=(-6)
然后,在调用ABOUT窗口的菜单项的Click事件中加入下列代码:
Dim Ret As Integer
Dim Icon As Integer
Dim Inst As Integer
Inst=GetWindowWord(Me.hWnd,GWW_HINSTANCE)
'从可执行文件中抽取图标
Icon=ExtractIcon(Inst,"DEMO.EXE",0)
'调用Windows系统标准ABOUT窗口
Ret=ShellAbout (Me.hWnd,"演示程序",_
"版权所有[c]1996-1997吴斌" & Chr$(13) & Chr$(10) & "序列号:123456",Icon)
……
--
※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.3]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店