程序的执行
程序输入完成后，点击VB“运行”菜单中的“启动”或“全面编译”命令，点击“软盘格式化”按钮后选择要格式化的容量，即可对3.5英寸盘进行格式化操作。
调用版本信息框
在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．首先运行VB，然后新建一个标准工程，然后利用“工具箱”在Form1窗体中加入一个命令按钮对象，将该命令按钮属性中的Caption值定义为“属性按钮”。完成之后双击该按钮，在代码输入框中输入以下代码：
Private Sub Command1_Click()
Dim r As Long
Dim FileName As String
FileName = "c:/autoexec.bat"
r=ShowProperties(FileName，Me.hwnd)
If r<=32 Then MsgBox "Error！ NO c:/autoexec.bat File"
End SuB
2．然后用鼠标右击窗体，选择右键菜单中的“添加/添加模块”选项，然后在出现的选择框中选择“模块”类型，接着在出现的模块代码输入框中加入以下代码：
'通用声明
Option Explicit
Type SHELLEXECUTEINFO
cbSize As long
Fmask As Long
hwnd As Long
lpVerb As String
lpFile As String
lpParameters As String
lpDirectory As String
nShow As Long
hInstApp As Long
lpIDList As Long
lpClass As String
hkeyClass As Long
dwHotKey As Long
hIcon As Long
hProcess As Long
End Type
Public Const SEE_MASK_INVOKEIDLIST = &HC
Public Const SESE_MASK_NOCLOSEPROCESS=&H40
Public Const SEE_MASK_FLAG_NO_UI = &H400
Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long
'ShowProperties过程
Public Function ShowProperties(FileName As String, OwnerhWnd As Long) As Long
Dim SEI AS SHELLEXECUTEINFO
Dim r As Long
With SEI
.cbSize = Len(SEI)
.fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
.hwnd = OwnerhWnd
.lpVerb = "properties"
.lpFile = FileName
.lpParameters = vbNullChar
.lpDirectory = vbNullChar
.nShow = 0
.hInstApp = 0
.lpIDList = 0
End With
r = ShellExecuteEX(SEI)
ShowProperties = SEI.hInstApp
End Function
程序的执行
程序输入完成后，点击VB“运行”菜单中的“启动”或“全面编译”命令，点击“属性按钮”按钮，即可查看C:/AUTOEXEC.BAT的属性。
2/2 首页 上一页 1 2 |
