|
Public Const MAX_PATH = 260
Public Const CSIDL_FAVORITES = &H6
Public Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
Public Declare Function LaunchConnectionDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
Public Declare Function LaunchSecurityDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
Public Declare Function LaunchSiteCertDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
Public Declare Function OpenFontsDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
Public Declare Function DoOrganizeFavDlg Lib "shdocvw.dll" (ByVal hwndParent As Long, ByVal lpszPath As String) As Long
Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long
''''--------------------------------------------------
Private Sub Command1_Click()
Dim rc As Long
rc = LaunchInternetControlPanel(Me.hWnd)
Debug.Print GetLastError
If rc = 0 Then
MsgBox "LaunchInternetControlPanel failed!", vbExclamation
End If
End Sub
Private Sub Command2_Click()
Dim rc As Long
rc = LaunchConnectionDialog(Me.hWnd)
Debug.Print GetLastError
If rc = 0 Then
MsgBox "LaunchConnectionDialog failed!", vbExclamation
End If
End Sub
Private Sub Command3_Click()
Dim rc As Long
Dim strFavPath As String * MAX_PATH
SHGetSpecialFolderPath Me.hWnd, strFavPath, CSIDL_FAVORITES, False
rc = DoOrganizeFavDlg(Me.hWnd, strFavPath)
Debug.Print GetLastError
If rc = 0 Then
MsgBox "DoOrganizeFavDlg failed!", vbExclamation
End If
End Sub
Private Sub Command4_Click()
Dim rc As Long
rc = LaunchSiteCertDialog(Me.hWnd)
Debug.Print GetLastError
If rc = 0 Then
MsgBox "LaunchSiteCertDialog failed!", vbExclamation
End If
End Sub
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
