重新启动计算机的实现---2（转帖）

tbs005

三、调用版本信息框

　　在Windows程序中，点击“帮助”菜单中的“关于XXX”选项后，就会弹出该程序的版本信息框。其实，在VB中，调用shellAbout函数不但可以实现标准的软件版本信息框，还可以随意更改其中的内容呢！
程序的编写

　　1．与前面类似，首先运行VB并新建一个标准工程，然后双击Form1窗口，在代码输入框中输入ShellAbout过程代码：

Private Declare Function ShellAbout Lib "shell32.dlI" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long


　　其中ShellAbout声明如下：

　　HWnd设置窗口句柄，szApp设置窗口的“Caption”，szOtherStuff在“版权所有”和“使用权”之间的空白处增加额外说明。

　　2．然后利用“工具箱”在Form1窗体中加入一个命令按钮对象，将该命令按钮属性中的Caption值定义为“版本信息框”。完成之后双击该按钮，在代码输入框输入以下代码：

　　Private Sub Command1_Click()

　　Call ShellAbeut（hWnd, "何发武天使工作室！"，"版本信息框" & VbCrLf & "上帝与你同在！阿弥陀佛！"，0)
End Sub

　　程序的执行

　　程序输入完成后，点击VB“运行”菜单中的“启动”或“全面编译”命令，点击“版本信息框”按钮，即可查看当前软件的版本信息。
查看“属性”

　　在Windows 9X中，增加了一个全新的概念--“属性”，每个对象都拥有自己的“属性”，在“属性”窗口里是关于对象的详细描述，并且不同的对象“属性”窗口的说明是不同的。我们可以用ShellExecuteEX函数直接调用“属性”标准窗口。下面的程序功能相当于用鼠标右键单击根目录下的“Autoexec.bat”并选择“属性”时，弹出的标准“属性”窗口。
[em17] [em17] [em21] [em21] [em21]