这是精品代码,方便好用,燕尾夹经常使用,强列推荐

‘================ 此行开始加入BAS模块中==========
Option Explicit ‘此行开始加入BAS模块中
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End TypePublic Declare Function SHBrowseForFolder Lib “shell32.dll” Alias “SHBrowseForFolderA” (lpBrowseInfo As BROWSEINFO) As Long

Read the rest of this entry

将以下代码 插入主窗口的代码中: Private Sub Form_Load() Call CheckExist(Me) End Sub Public Sub CheckExist(fm As Form) Dim title As String If App.PrevInstance Then title = App.title Call MsgBox(“这程式已执行”, vbCritical) App.ti Read the rest of this entry