VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 显示Windows系统的标准ABOUT窗口
发表评论(0)作者:, 平台:, 阅读:9869, 日期:2000-03-12
显示Windows系统的标准ABOUT窗口

吴斌

 ABOUT窗口是应用程序向用户传达自身一些基本信息的最佳方式。Windows系统的

许多软件,如程序管理器、文件管理器、书写器等,都带有一个风格一致的ABOUT

窗口。在这些软件中,只要选择“帮助”菜单命令“关于XXX...”,就会弹出

这个标准ABOUT窗口,其中显示有关Windows及相应软件的版本、工作方式和版权等

信息。在VB应用程序中,可以通过调用API函数ShellAbout,方便地借用这个标准

ABOUT窗口,并将自己的基本信息加入其中。

  首先,在module文件中加入下列声明语句:

  Declare Function ExtractIcon% 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,"1234","123" & Chr$(13) & Chr$(10) & "

123456",Icon)