如何建立一個資源管理器

1. 怎樣建立「資源管理器」的快捷方式拜託各位大神

在開始菜單里找到資源管理器，在菜單欄上點右鍵，選發送到桌面快捷方式即可

2. 如何建立資源管理器的桌面圖標

在桌面空白處
右鍵
單擊/新建/
快捷方式
，彈出新建快捷方式
向導
，在第一步輸入SystemRoot%\explorer.exe，在第二步輸入快捷方式的名字，如
資源管理器
。完成。在屬性里可以更改
圖標
。

3. 在桌面上建立一個資源管理器的快捷方式，以便能從桌面上快速啟動windows7資源管理器具體步驟怎麼

Windows 10

點擊開始菜單 找到 Windows 系統 然後點開 找到 文件資源管理器 然後滑鼠點擊不松並拖到桌面就行

4. 如何使用VB建立一組資源管理器

'一、新建一個模塊，復制下面代碼到模塊中
Option Explicit
Private Declare Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "User32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetParent Lib "User32" (ByVal hWnd As Long) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Function GetPath() As String
Dim lu_POINT As POINTAPI, Curwindow As Long, parentWnd As Long
Dim S As String, Hwd As Long, i As Integer
Dim oShellApp, oShellAppWindows, oWin

Call GetCursorPos(lu_POINT)
Curwindow = WindowFromPoint(lu_POINT.X, lu_POINT.Y)
parentWnd = GetParent(Curwindow)
Do While parentWnd <> 0
Curwindow = GetParent(parentWnd)
If Curwindow = 0 Then Exit Do
parentWnd = Curwindow
Loop
Hwd = parentWnd

Set oShellApp = CreateObject("Shell.Application")
Set oShellAppWindows = oShellApp.Windows
For Each oWin In oShellAppWindows
Debug.Print TypeName(oWin.Document)
If TypeName(oWin.Document) = "IShellFolderViewDual2" Then
If oWin.hWnd = Hwd Then
S = oWin.LocationURL
S = Replace(S, "file:///", "", , , vbTextCompare)
S = Replace(S, "/", "\")
S = Replace(S, "%20", " ")
GetPath = S
Exit Function
End If
End If
Next
Set oWin = Nothing
Set oShellApp = Nothing
Set oShellAppWindows = Nothing
End Function

'二、當一個對象拖動到資源管理器後 ，調用下面函數即可完成復制文件工作：

Private Sub List1_OLECompleteDrag(Effect As Long)
Dim i As Integer, S As String
Dim Path As String
Path = GetPath
With List1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
S = .List(i)
FileCopy S, Path & Path & Mid(S, InStrRev(S, "\"))
End If
DoEvents
Next
End With
MsgBox "文件復制完畢！"
End Sub

5. 如何用VB6.0製作Windows資源管理器

用1個lisview 1個TREEVIEW 1個IMAGELIST 就可以了，TREEVIEW是顯示樹形結構的，IMAGELIST是存圖標的，LISTVIEW可以有4種圖標顯示方法，可以做出資源管理器的效果，
listview用法:

通過此控制項，可將項目組成帶有或不帶有列標頭的列，並顯示伴隨的圖標和文本。ListView控制項是由ColumnHeader和ListItem對象所組成的，其中ColumnHeader對象的個數決定了控制項的列數，而ListItem對象的個數則決定了控制項的行數。(圖7)
ColumnHeader對象是ListView控制項中包含標頭文字的項目。利用ColumnHeader對象，用戶可以：
▲單擊對象觸發ColumnClick事件並根據數據項目將項目排序。
▲拖動對象的右邊框來調整列寬度。
▲在報表視圖中隱藏ColumnHeader對象。
ColumnHeader對象的數目決定每個ListItem對象可包含的子項目數目。刪除ColumnHeader對象後所有與列關聯的子項目也將被刪除，並且每個ListItem對象的子項目數組將平移以更新ColumnHeader的索引，而這將導致剩餘的列標頭SubItemIndex屬性的改變。

ColumnHeader對象的SubItemIndex屬性
該屬性返回與ListView控制項中ColumnHeader對象關聯的子項目的索引。子項目是字元串數組，代表顯示在報表視圖中的ListItem對象的數據。第一列的列標頭SubItemIndex屬性設置為0，這是因為小圖標和ListItem對象的文字總出現在第一列中，而且它們被當作ListItem對象而不是子項目。列標頭數目取決於子項目數目。列標頭數目總是比子項目數目多1。
在設計時可以利用屬性頁的「列首」選項卡將ColumnHeader對象添加到ListView控制項中，在運行時則用Add方法添加。

ColumnHeader對象的Add方法
該方法的使用與前面那些控制項基本相似，就不再介紹了。
ListView1.ColumnHeader.Add(index,key,text,width,alignment)
ListItem對象是指控制項中的一行（不包含標頭行）的所有內容。它也可包含文本和圖片，但是要使用圖片則必須通過Icons和SmallIcons屬性引用ImageList控制項。

ListItem對象的SubItems屬性
返回或設置一個字元串（子項目）數組，它代表ListView控制項中ListItem對象的數據。
ListItem對象可包含任意多個的關聯項目數據字元串（子項目），但每個ListItem對象子項目數目必須相同。每個子項目都對應於相關的列標頭，無法直接向子項目數組添加元素，只有通過ColumnHeaders的Add方法添加列標頭的方法來添加子項目。

ListItem對象的Add方法
該方法添加ListItem對象到ListView控制項的ListItems集合中並返回對新創建對象的引用。
它的語法如下：

ListItem1.Add(index,key,text,icon,smallIcon)

ListView控制項的View屬性
ListView控制項可使用四種不同視圖顯示項目，這可以用View屬性來確定。該屬性返回或設置ListView控制項中ListItem對象的外觀。
ListView控制項的SortOrder，SortKey和Sorted屬性
控制項中的ListItem對象可以按要求進行排序，與排序有關的屬性是SortOrder，Sorted和SortKey屬性。
SortOrder屬性返回或設置一個值，此值決定ListView控制項中的ListItem對象以升序或降序排序。
SortKey屬性返回或設置一個值，此值決定ListView控制項中的ListItem對象如何排序。
Sorted屬性返回或設置確定ListView控制項中的ListItem對象是否排序的值。
下面的代碼說明了如何創建ColumnHeaders和ListItem對象，SubItemIndex和SubItem屬性的使用方法以及如何排序。

Private Sub Form_load()
'確保ListView控制項的view屬性為報表視圖。
ListView1.View=lvwReport
'添加三列。
ListView1.ColumnHeaders.Add,"Name","姓名"
ListView1.ColumnHeaders.Add,"Sex","性別"
ListView1.ColumnHeaders.Add,"Age","年齡"
'向控制項添加ListItem對象。
Dim itmX As ListItem
'添加column1的名稱。
Set itmX=ListView1.ListItems.Add(1,"ZL","張力")
'使用SubItemIndex將SubItem與正確的ColumnHeader關聯。使用關鍵字("Sex")指定正確的ColumnHeader。
itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="男"
'使用ColumnHeader關鍵字將SubItems字元串與
'正確的ColumnHeader關聯。
itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex)="19"
Set itmX=ListView1.ListItems.Add(1,"LF","李芳")
itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="男"
itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex)="22"
Set itmX=ListView1.ListItems.Add(1,"WW","王偉")
itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="男"
itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex)="24"
End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
Select Case ColumnHeader.Key
Case "Sex":ListView1.SortKey=1
ListView1.SortOrder=lvwAscending
ListView1.Sorted=True
Case "Age":ListView1.SortKey=2
ListView1.SortOrder=lvwAscending
ListView1.Sorted=True
End Select
End Sub

七、帶刻度滑塊---Slider

Slider控制項是一個包含滑塊和可選擇性刻度標記的窗口，可以通過拖動滑塊，用滑鼠單擊滑塊的任意一側或者使用鍵盤移動滑塊來選擇一個值。
在選擇離散數值或某個范圍內的一組連續數值時，Slider控制項十分有用。例如，無需鍵入數字，通過將滑塊移動到刻度標記處，可以用Slider控制項來輸入數值。
Silder控制項的大多數基本屬性比較簡單，我們這里重點介紹一些較有用而又常易忽略的屬性。
TickStyle屬性
該屬性返回或設置Slider控制項上顯示的刻度標記的樣式。
SelectRange，SelStart和SelLength屬性
Slider控制項可以選擇某個范圍內的數值，這就要用到SelectRange，SelStart和SelLength屬性。
SelectRange屬性決定Slider控制項是否可以選擇一個范圍。如果SelectRange屬性為True，SelStart為選定范圍的起始值，SelLength為選定范圍的長度。
如果SelectRange屬性為False，則SelStart屬性的設置值與＆#118alue屬性的設置值相同，SelLength屬性無效。
下列代碼允許在按住SHIFT鍵時，用滑鼠拖動或單擊Slider控制項以選擇一個范圍。
Private Sub Form_Load()
'設置slider控制項的設置值
Slider1.Max=20
End Sub

Private Sub Slider1_MouseDown(Button As Integer,Shift As Integer,x As Single,y As Single)
If Shift=1 Then '如果按住Shift鍵，則Slider1.SelectRange=True '打開SelectRange。
Slider1.SelStart=Slider1.＆#118alue'設置SelStart數值
Slider1.SelLength=0'設置先前的SelLength（如存在）為0。
End If
End Sub

Private Sub Slider1_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)
if Shift=1 Then
'如果在一點決定返回上一步，將發生錯誤。
On Error Resume Next
'否則使用SelStart和當前數值設置SelLength。
Slider1.SelLength=Slider1.＆#118alue-Slider1.SelStart
Else
Slider1.SelectRange=False'如果松開SHIFT鍵。
End If
End Sub
在程序中，常用Slider控制項來代替鍵盤輸入數字，如下面的例子。
該例通過Slider控制項來顯示不同的長度。
Private Sub Form_Load()
Slider1.Min=0
Slider1.Max=50
Slider1.SmallChange=1
Slider1.LargeChange=10
Slider1.TickFrequency=5
End Sub
Private Sub Slider1_Change()
Label1.Caption="長度是"&Format(Slider1.＆#118alue/5,"#.00")&"厘米"
End Sub
==================

一、ListView使用簡介
ListView控制項是VB開發者非常喜愛的控制項之一。作 為Windows95公共控制項組(COMCTL32.OCX)的成員,它經常與經常與TreeView、ImageList等控 件聯合使用。即用TreeView顯示一個的樹型結構，而用ListView顯示選中的節點(Node)對 象的記錄集。
這是筆者在開發財務軟體項目中的<<憑證管理>> 模塊的一個用戶界面。屏幕左邊是一個TreeView控制項，用來顯示會計憑證的類別；右邊是一 個ListView，用來顯示對應類別的憑證目錄；上方是一個菜單條控制項(MenuBar)和一個工具 條控制項(ToolBar)；下方是一個狀態欄控制項(StatusBar)，用來顯示憑證數個當前日期。

大家可以看到圖中所示的界面非常類似於Window95/98 的資源瀏覽器,Windows的界面風格做為一種標准已為廣大用戶所接受。而Windows操作系 統的主要的優點就是為所有的應用程序提供了公用的界面。知道如何使用基於Windows的 應用程序的用戶，很容易學會使用其他應用程序。

這種使用Windows95公共控制項組合的方法能夠達 到與Windows界面的一致性，所以在目前VB5.0應用程序的開發中經常使用。

二、填充大量結果集所遇到的問題
在實際應用開發中，經常用ListView填充一個資料庫 結果集(Record set)的內容。即先寫一段SQL查詢語句，產生一個結果集，然後將結果集的每一 條記錄用DO...LOOP循環語句中填到ListView中。
但是當結果集很大時(例如有5000條以上的記錄) ，填充所需要的時間會很長。用戶不得不等很長時間完成一個查詢。所以在查詢的過程中 必須允許用戶按Escape鍵退出。具體做法是在DO...LOOP循環體中加一條DoEvents函數，並 寫一段中斷退出程序代碼。

DoEvents函數的功能是：轉讓控制權，以便讓操 作系統處理其它的事件。這樣在長時間的查詢過程中，如果用戶按了Escape鍵，將退出循環 體，結束查詢過程。

但是這樣又會引發另外一個問題：由於DoEvents 可以讓操作系統響應別的事件，循環體中填充每一條ListView項目(ListItem)的過程也會 顯示出來，所以在填充的過程中屏幕會不停的閃動，這種現象當然不能被用戶所接受。如何 解決這個問題呢？

三、解決方案
用WindowsAPI函數可以解決這個問題。首先對幾個 用到的API函數做一解釋和說明。
1.GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

此函數的功能是獲得一個指定對象窗口(Window) 的矩型框區域(rectangle)。

Hwnd為指定對象或窗體的句柄。LpRect為返回矩 型框的結構(必須定義為結構類型的變數)。

2.ValidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

此函數的功能是使指定的矩型區域生效。這樣會 通知Windows不必對指定的區域進行重畫(Redraw)。

3.InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long

此函數的功能是使指定的矩型區域無效。這樣會 通知Windows要對指定的區域進行重畫。

具體實現的步驟如下：

1.在填充結果集之前先用GetClientRect函數獲 得ListView的顯示區域。

2.在增加完一個顯示項目(ListItem)後用ValidateRect 函數置這一區域為有效。這樣Windows就不會顯示每一條ListItem，屏幕閃動的現象就會消 失。

3.在填充結果集之後,用InvalidateRect函數置 這一區域為無效。這樣Windows就會重畫ListView的內容，結果集被完整的顯示出來。

下面是筆者在項目開發中的一個程序實例。程序 名為FillListView。該程序將填寫一個Access資料庫(FISCAL.MDB)的憑證表(Table)的內 容到ListView中。

首先進入VB5.0，新建一個窗體(Form)，名為Form1。

然後在Form中增加下列控制項。

控 件 名 Name

ListView Lvw

Imagelist imlList

Command Button。 Command1

將ImageList控制項中充填一個名為「item」的圖象後 與ListView控制項關聯。

在<<工程>>菜單命令條中進入「引用」對話框,選 擇「MicrosoftDAOObjectLibrary」

在Form的通用模塊(Modle)中定義以下變數。

Private Type RECT ' 用 來 定 義 一 個 區 域 的 坐 標。

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

' - -

' Windows API 函 數 的 聲 明。

Private Declare Function InvalidateRect Lib "user32"

(ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long

Private Declare Function ValidateRect Lib "user32"

(ByVal hwnd As Long, lpRect As RECT) As Long

Private Declare Function GetClientRect Lib "user32"

(ByVal hwnd As Long, lpRect As RECT) As Long

Dim mbSearchCancel As Boolean

' 用 來 定 義 查 詢 中 斷 的 標 志。

' True 表 示 中 止 查 詢；False 表 示 正 在 查 詢。

將 該Form 的KeyPreview 屬 性 設 為True， 以 控 制 窗 體 接 收 鍵 盤 事 件。

然 後 在Form 的KeyPress 事 件 中 寫 下 列 代 碼：

If KeyAscii = vbKeyEscape Then

mbSearchCancel = True

' 當 用 戶 按Escape 鍵 時， 置mbSearchCancel 變 量 為True。

End If

' 表 示 結 束 查 詢。

在Command Button 的 Click 事 件 中 調 用 填 充 子 程 序：Call FillListView。

子 程 序 的 代 碼 為：

Private Sub FillListView()

'

Dim itmX As ListItem ' 定 義 一 個ListView 的 顯 示 項 目。

Dim sSQL As String ' 查 詢 字 串 變 量 。

'

Dim rc As RECT ' ListView 的 顯 示 區 域。

Dim wrkJet As Workspace ' 數 據 庫 工 作 空 間。

Dim dbFISCAL As Database ' 數 據 庫 對 象。

Dim RS As Recordset ' 數 據 結 果 集。

On Error GoTo ErrFillListView

Screen.MousePointer = vbHourglass

lvw.ListItems.Clear: ' 清 除ListView 的 內 容。

'

' 定 義ListView 的 列 頭 的 名 稱。

With lvw.ColumnHeaders

.Add , , " 憑 證 編 號", 800

.Add , , " 憑 證 日 期", 1000

.Add , , " 憑 證 字 號", 1000

.Add , , " 憑 證 類 別", 800

.Add , , " 首 行 摘 要", 1440

.Add , , " 借 方 金 額 合 計", 1000, lvwColumnRight

End With

' - - -

' 產 生 查 詢 語 句。

sSQL = "select voucher_id,voucher_number,voucher_date,voucher_type_shortname,"

sSQL=sSQL&"voucher_type_name,voucher_memo,voucher_amount from VOUCHER"

sSQL = sSQL & "order by voucher_number"

' ' - - -

' 打 開 一 個 數 據 庫 結 果 集。

Set wrkJet = CreateWorkspace("NewJetWorkspace", "admin", "", dbUseJet)

Set dbFISCAL = wrkJet.OpenDatabase("FISCAL.mdb")

Set RS=. dbFISCAL .Open sSQL,dbOpenForwardOnly

'

' 獲 得listview 的 顯 示 區 域。

Call GetClientRect(lvw.hwnd, rc)

Do While Not RS.EOF()

DoEvents

If mbSearchCancel Then

' 中 斷 退 出

RS.Close: Set RS = Nothing ' 關 閉、 清 除 結 果 集。

mbSearchCancel = False

Screen.MousePointer = vbDefault

' - -

' 刷 新ListView 的 內 容， 顯 示 已 經 查 出 的 記 錄 數。

Call InvalidateRect(lvw.hwnd, rc, True)

Exit Sub

End If

' - - -

' 增 加 一 個 顯 示 項 目ListItem。

With lvw.ListItems

Set itmX = .Add(, , "" & RS!voucher_number, "item", "item")

' 憑 證 編 號

itmX.SubItems(1) = Format$("" & RS!voucher_date, "yyyy/mm/dd")

' 憑 證 日 期

itmX.SubItems(2) = "" & RS!voucher_type_shortname & "-" —

' 憑 證 字 號

& "" & RS!voucher_number

itmX.SubItems(3)="" & RS!voucher_type_name

' 憑 證 類 別

itmX.SubItems(4)=""&RS!voucher_memo

' 首 行 摘 要

itmX.SubItems(5)= Format$("" & RS!voucher_amount, "#,###.00")

' 借 方 合 計 金 額

itmX.Tag = "" & RS!voucher_id

End With

' - -

' 避 免 顯 示 區 域 的 閃 動 現 象。

Call ValidateRect(lvw.hwnd, rc)

RS.MoveNext

Loop

'

'- 刷 新ListView 的 內 容。 顯 示 所 有 查 出 的 記 錄 數。

Call InvalidateRect(lvw.hwnd, rc, True)

' -

' 關 閉、 清 除 結 果 集。

RS.Close: Set RS = Nothing

creen.MousePointer = vbDefault

Exit Sub

ErrFillListView:

Screen.MousePointer = vbDefault

MsgBox Err & ":" & Error, vbInformation, Me.Caption

Exit Sub

End Sub

listview 是VB中經常用到的控制項。下面說一下其使用。代碼如下：

ListView1.ColumnHeaders.Add , "name", "Name", 2000 '定義列頭
ListView1.ColumnHeaders.Add , "age", "Age", 1000
ListView1.ColumnHeaders.Add , "position", "Position", 3000
ListView1.ColumnHeaders.Add , "addr", "Home addr", 5000
ListView1.ColumnHeaders.Add , "other", "Other", 3000

Set itmX = ListView1.ListItems.Add(, "a", "abcd") '添加一列並設置對象itmX為listitem.
itmX.SubItems(1) = "32" '在單元格里添加內容.
itmX.SubItems(2) = "32"

雙擊事件

Private Sub ListView1_DblClick()
If Me.ListView1.SelectedItem Is Nothing Then
Exit Sub
End If
Dim Item As ListItem
Set Item = Me.ListView1.SelectedItem
MsgBox Item.Text '顯示被雙擊的條目的text
End Sub

treeview用法:

Treeview 控制項：名稱 Treeview1；

Imagelist 控制項：名稱 Imagelist1，並在該控制項中放置三張個性圖片（32×32），建立索引1、2、3；（方法：在Imagelist 控制項上單擊滑鼠右鍵選擇屬性）

Label 控制項：名稱分別為Lab（0）、Lab（1），Caption分別為「父節點：」、「子節點：」；

Textbox 控制項：名稱分別為Txt（0）、Txt（1），text都為「」；

commandbutton 控制項：名稱為系統默認，Caption分別為「添加」、「展開」、「收起」、「排序」、「刪除」、「退出」；

將下列代碼加入到代碼框：

Option Explicit

Dim I As Integer
Dim J As Integer
Dim nodx As Node
Dim CunZai As Boolean '定義變數

Private Sub Command1_Click()
If Txt(0).Text <> "" And Txt(1).Text <> "" Then '不允許建立零位元組的父節點和子節點
CunZai = False
J = TreeView1.Nodes.Count
For I = 1 To TreeView1.Nodes.Count '檢查新輸入的父節點名稱是否存在
If TreeView1.SelectedItem.Children > 0 Then
If Txt(0).Text = TreeView1.Nodes(I).Text Then CunZai = True
End If
Next I
If CunZai = True Then '若存在, 則在父節點下建立子節點
Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild, "child" & J,
Txt(1).Text, 3)
Else ,若不存在,則建立父節點和子節點
Set nodx = TreeView1.Nodes.Add(, , Txt(0).Text, Txt(0).Text, 1)
Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild, "child" & J,_
Txt(1).Text, 3)
End If
TreeView1.Refresh
ElseIf Txt(0).Text = "" Then MsgBox "請輸入父節點名稱!", vbInformation, "警告！"
'系統提示
ElseIf Txt(1).Text = "" Then MsgBox "請輸入子節點名稱!", vbInformation, "警告！"
End If
End Sub

Private Sub Command2_Click()
For I = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(I).Expanded = True '展開所有節點
Next I
End Sub

Private Sub Command3_Click()
For I = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(I).Expanded = False '收起所有節點
Next I
End Sub

Private Sub Command4_Click()
TreeView1.Sorted = True '排列順序
End Sub

Private Sub Command5_Click()
If TreeView1.SelectedItem.Index <> 1 Then
TreeView1.Nodes.Remove TreeView1.SelectedItem.Index '刪除選定的節點
End If
End Sub

Private Sub Command6_Click()
End '退出程序
End Sub

Private Sub Form_Load()
TreeView1.LineStyle =TvwTreeLines '在兄弟節點和父節點之間顯示線
TreeView1.ImageList = ImageList1 '鏈接圖像列
TreeView1.Style =
'樹狀外觀包含全部元素
Set nodx = TreeView1.Nodes.Add(, , "蒲子明", "蒲子明", 1)
'建立名稱為"蒲子明"的父節點,選擇索引為1的圖像
Set nodx = TreeView1.Nodes.Add("蒲子明", tvwChild, "child01", "收件箱", 3)
'在"蒲子明"父節點下建立"收件箱"子節點,選擇索引為3的圖像
Set nodx = TreeView1.Nodes.Add("蒲子明", tvwChild, "child02", "發件箱", 3)
'在"蒲子明"父節點下建立"發件箱"子節點,選擇索引為3的圖像
CunZai = False
End Sub

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
Node.ExpandedImage = 2 '節點被展開時,選擇索引為2的圖像
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If TreeView1.SelectedItem.Children = 0 Then '檢查是否有子節點,0為無
For I = 1 To TreeView1.Nodes.Count
If TreeView1.Nodes(I).Selected Then
MsgBox "您選擇的是：「" & TreeView1.Nodes(I).FullPath & "」子節點！"
'系統提示
End If
Next I
End If

告訴你用法你得自己寫代碼才有編程的樂趣不是嗎？？？

6. win10怎麼給文件資源管理器創建快捷方式

操作方法
第一步、點擊開始菜單，在搜索框中輸入「文件資源管理器(或者希望固定的程序名稱)」。
第二步、使用滑鼠按住搜索結果，將其拖動到任務欄即可，系統會給出相關提示。

7. 怎麼創建「我的電腦」資源管理器的快捷方式

1在"開始→所有程序→附件"中找到"windows資源管理器"，在"資源管理器"上單擊右鍵→發送到桌面快捷方式
2要是你覺得打開不是你習慣的目標，可以更改一下。桌面快捷方式（資源管理器快捷方式）右鍵－屬性目標文本框內容是"%SystemRoot%\explorer.exe只要略作一下修改，就可滿足要求了。例如我經常打開的是d盤中的ydach文件夾，將目標文本框內容修改為"%SystemRoot%\explorer.exe /e,d:\ydach"，在"exe"與"/e"之間一定要加上一個空格。好!大功告成了，現在你再打開"資源管理器"，就直接進入了ydach文件夾了。

8. 請問如何創建「資源管理器」的快捷方式

右鍵我的電腦，選擇資源管理器就行了，或者右鍵開始按鈕，也有資源管理器可選，或者按win鍵+e組合鍵也能打開資源管理器。

9. 如何創建Windows資源管理器的快捷方式

第一步：打開桌面左下角的」開始菜單「；
第二步：找到「附件」中的「資源管理器」；
第三步：右擊，選擇」發送到「，之後選擇」桌面快捷方式「；

10. 如何在桌面建立資源管理器的快捷方式圖標

一個經典的桌面操作系統在「桌面屏」上總是有圖標的。這些桌面圖標包括文件管理器、回收站和應用圖標。

當在 Windows 中安裝應用時，一些程序會詢問你是否在桌面創建一個快捷方式。但在 Linux 系統中不是這樣。

但是如果你熱衷於這個特點，讓我給你展示如何在 Ubuntu 桌面和其他使用 GNOME 桌面的發行版中創建應用的快捷方式。

如果你想知道我的桌面外觀，我正在使用 Ant 主題和 Tela 圖標集。你可以獲取一些 GTK 主題 和 為 Ubuntu 准備的圖標集並換成你喜歡的。

在 Ubuntu 中添加桌面快捷方式

個人來講，我更喜歡為應用圖標准備的 Ubuntu 啟動器方式。如果我經常使用一個程序，我會添加到啟動器。但是我知道不是每個人都有相同的偏好，可能少數人更喜歡桌面的快捷方式。

讓我們看在桌面中創建應用快捷方式的最簡單方式。

免責聲明這篇指南已經在 Ubuntu 18.04 LTS 的 GNOME 桌面上測試過了。它可能在其他發行版和桌面環境上也能發揮作用，但你必須自己嘗試。一些 GNOME 特定步驟可能會變，所以請在其他桌面環境嘗試時注意。
准備

首先最重要的事是確保你有 GNOME 桌面的圖標許可權。

如果你跟隨 Ubuntu 18.04 自定義提示，你會知道如何安裝 GNOME Tweaks 工具。在這個工具中，確保你設置「Show Icons」選項為啟用。

Allow icons on desktop in GNOME

一旦你確保已經設置，是時候在桌面添加應用快捷方式了。

第一步：定位應用的 .desktop 文件

到 「Files -> Other Location -> Computer」。

Go to Other Locations -> Computer

從這里，到目錄 「usr -> share -> applications」。你會在這里看到幾個你已經安裝的 Ubuntu 應用。即使你沒有看到圖標，你應該看到被命名為「應用名.desktop」形式的文件。

Application Shortcuts

第二步：拷貝 .desktop 文件到桌面

現在你要做的只是查找應用圖標（或者它的 desktop 文件）。當你找到後，拖文件到桌面或者拷貝文件（使用 Ctrl+C 快捷方式）並在桌面粘貼（使用 Ctrl+V 快捷方式）。

Add .desktop file to the desktop

第三步：運行 desktop 文件

當你這么做，你應該在桌面上看到一個圖標的文本文件而不是應用 logo。別擔心，一會就不一樣了。

你要做的就是雙擊桌面的那個文件。它將警告你它是一個「未信任的應用啟動器』，點擊「信任並啟動」。