form1.frm

电子书“Visual Basic 6 网络编程实例教程.rar”

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00808000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "查找SHELL文件夹"
   ClientHeight    =   1485
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8805
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1485
   ScaleWidth      =   8805
   StartUpPosition =   2  '屏幕中心
   Begin VB.ComboBox Combo1 
      BackColor       =   &H00FF8080&
      Height          =   300
      Left            =   360
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   840
      Width           =   8175
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00C0FFFF&
      Height          =   300
      Left            =   360
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   240
      Width           =   8175
   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 Sub Combo1_Click()
    Dim index As Long
   index = Combo1.ItemData(Combo1.ListIndex)
   If index > -1 Then
      Text1.Text = GetFolderPath(Me.hWnd, index)
   End If
End Sub

Private Sub Form_Load()
    With Combo1
      .Font.Name = "Courier New"
      .Font.Size = 9
      .AddItem "CSIDL_DESKTOP                 {桌面}"
      .ItemData(.NewIndex) = &H0
      .AddItem "CSIDL_INTERNET                IE(桌面上的图标)"
      .ItemData(.NewIndex) = &H1
      .AddItem "CSIDL_PROGRAMS                开始菜单\程序"
      .ItemData(.NewIndex) = &H2
      .AddItem "CSIDL_CONTROLS                我的电脑\控制面板"""
      .ItemData(.NewIndex) = &H3
      .AddItem "CSIDL_PRINTERS                我的电脑\打印机"
      .ItemData(.NewIndex) = &H4
      .AddItem "CSIDL_PERSONAL                我的文档"
      .ItemData(.NewIndex) = &H5
      .AddItem "CSIDL_FAVORITES               个性化设置(当前用户)"
      .ItemData(.NewIndex) = &H6
      .AddItem "CSIDL_STARTUP                 开始菜单\程序\启动"
      .ItemData(.NewIndex) = &H7
      .AddItem "CSIDL_RECENT                  最近文档(当前用户)"
      .ItemData(.NewIndex) = &H8
      .AddItem "CSIDL_SENDTO                  发送到...(当前用户)"
      .ItemData(.NewIndex) = &H9
      .AddItem "CSIDL_BITBUCKET               {桌面}\回收站"
      .ItemData(.NewIndex) = &HA
      .AddItem "CSIDL_STARTMENU               开始菜单(当前用户)"
      .ItemData(.NewIndex) = &HB
      .AddItem "CSIDL_DESKTOPDIRECTORY        桌面目录(当前用户)"
      .ItemData(.NewIndex) = &H10
      .AddItem "CSIDL_DRIVES                  我的电脑"
      .ItemData(.NewIndex) = &H11
      .AddItem "CSIDL_NETWORK                 网上邻居"
      .ItemData(.NewIndex) = &H12
      .AddItem "CSIDL_NETHOOD                 网上邻居元素(当前用户)"
      .ItemData(.NewIndex) = &H13
      .AddItem "CSIDL_FONTS                   windows\字体"
      .ItemData(.NewIndex) = &H14
      .AddItem "CSIDL_TEMPLATES"
      .ItemData(.NewIndex) = &H15
      .AddItem "CSIDL_COMMON_STARTMENU         开始菜单(所有用户)"
      .ItemData(.NewIndex) = &H16
      .AddItem "CSIDL_COMMON_PROGRAMS          程序(所有用户)"
      .ItemData(.NewIndex) = &H17
      .AddItem "CSIDL_COMMON_STARTUP           启动(所有用户)"
      .ItemData(.NewIndex) = &H18
      .AddItem "CSIDL_COMMON_DESKTOPDIRECTORY  桌面目录(所有用户)"
      .ItemData(.NewIndex) = &H19
      .AddItem "CSIDL_APPDATA                  应用程序数据(当前用户)"
      .ItemData(.NewIndex) = &H1A
      .AddItem "CSIDL_PRINTHOOD                打印机连接(当前用户)"
      .ItemData(.NewIndex) = &H1B
      .AddItem "CSIDL_LOCAL_APPDATA            （用户）\本地设置\应用程序数据"
      .ItemData(.NewIndex) = &H1C
      .AddItem "CSIDL_ALTSTARTUP               非本地化的启动"
      .ItemData(.NewIndex) = &H1D
      .AddItem "CSIDL_COMMON_ALTSTARTUP        非本地化的通用的启动"
      .ItemData(.NewIndex) = &H1E
      .AddItem "CSIDL_COMMON_FAVORITES"
      .ItemData(.NewIndex) = &H1F
      .AddItem "CSIDL_INTERNET_CACHE"
      .ItemData(.NewIndex) = &H20
      .AddItem "CSIDL_COOKIES"
      .ItemData(.NewIndex) = &H21
      .AddItem "CSIDL_HISTORY"
      .ItemData(.NewIndex) = &H22
      .AddItem "CSIDL_COMMON_APPDATA           应用程序数据(所有用户)"
      .ItemData(.NewIndex) = &H23
      .AddItem "CSIDL_WINDOWS                  GetWindowsDirectory()"
      .ItemData(.NewIndex) = &H24
      .AddItem "CSIDL_SYSTEM                   GetSystemDirectory()"
      .ItemData(.NewIndex) = &H25
      .AddItem "CSIDL_PROGRAM_FILES            C:\Program Files"
      .ItemData(.NewIndex) = &H26
      .AddItem "CSIDL_MYPICTURES               C:\Program Files\My Pictures"
      .ItemData(.NewIndex) = &H27
      .AddItem "CSIDL_PROFILE                  USERPROFILE"
      .ItemData(.NewIndex) = &H28
      .AddItem "CSIDL_SYSTEMX86                RISC上x86的system目录"
      .ItemData(.NewIndex) = &H29
      .AddItem "CSIDL_PROGRAM_FILESX86         RISC上x86的C:\Program Files"
      .ItemData(.NewIndex) = &H2A
      .AddItem "CSIDL_PROGRAM_FILES_COMMON     C:\Program Files\Common"
      .ItemData(.NewIndex) = &H2B
      .AddItem "CSIDL_PROGRAM_FILES_COMMONX86  RISC上x86的Program Files\Common"
      .ItemData(.NewIndex) = &H2C
      .AddItem "CSIDL_COMMON_TEMPLATES         所有用户\Templates"
      .ItemData(.NewIndex) = &H2D
      .AddItem "CSIDL_COMMON_DOCUMENTS         所有用户\文档"
      .ItemData(.NewIndex) = &H2E
      .AddItem "CSIDL_COMMON_ADMINTOOLS        所有用户\开始菜单\程序\系统管理工具"
      .ItemData(.NewIndex) = &H2F
      .AddItem "CSIDL_ADMINTOOLS               {用户}\开始菜单\程序\系统管理工具"
      .ItemData(.NewIndex) = &H30
   End With
End Sub