form1.frm

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· FRM 代码 · 共 60 行

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "整理收藏夹"
   ClientHeight    =   1035
   ClientLeft      =   2940
   ClientTop       =   1845
   ClientWidth     =   2460
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1035
   ScaleWidth      =   2460
   Begin VB.CommandButton cmdOrgFavorite 
      Caption         =   "整理收藏夹"
      Default         =   -1  'True
      Height          =   555
      Left            =   383
      TabIndex        =   0
      Top             =   240
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function DoOrganizeFavDlg Lib "shdocvw.dll" _
    (ByVal hWnd As Long, _
    ByVal lpszRootFolder As String) As Long
Private Declare Function SHGetFolderPath Lib "shfolder.dll" _
    Alias "SHGetFolderPathA" _
    (ByVal hwndOwner As Long, _
    ByVal nFolder As Long, _
    ByVal hToken As Long, _
    ByVal dwReserved As Long, _
    ByVal lpszPath As String) As Long
    
Private Const CSIDL_FAVORITES = &H6
    
'  整理收藏夹
Private Sub cmdOrgFavorite_Click()
    Dim lpszRootFolder As String
    Dim lpszPath As String
    Dim dwReturn As Long
    
    lpszPath = Space$(256)
    '  取得收藏夹的路径
    dwReturn = SHGetFolderPath(Me.hWnd, CSIDL_FAVORITES, 0&, &H0, lpszPath)
    If dwReturn = 0 Then
        lpszRootFolder = Left$(lpszPath, InStr(lpszPath, vbNullChar) - 1)
    End If
    
    '  打开“整理收藏夹”对话框
    DoOrganizeFavDlg hWnd, lpszRootFolder
End Sub