| | | 重新启动计算机的实现 | | 2001-11-24·
· ··yesky
| 上一页 1 2 3 下一页 三、调用版本信息框
在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”并选择“属性”时，弹出的标准“属性”窗口。
上一页 1 2 3 下一页 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
