程序的编写

　　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的属性。

相关搜索：