VB语言

本类阅读TOP10

·Visual Basic 安装程序的制作!!
·VB中使用EXCEL输出
·一个简单的MP3播放器
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单(六)
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件
·VB打造超酷个性化菜单(一)

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
IE相关的API

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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




相关文章

相关软件