有勞，請給幾個TreeView、ListView、IShellFoder 相關的代碼段！

[chinaworker]

有勞，請給幾個TreeView、ListView、IShellFoder 相關的代碼段！

最好是ActiveX Uploader相關，謝謝

類似于 http://test.chenhui.net/im/1.gif

[tztz520]

'ListView1控件代码

Private Sub Command1_Click()
Dim ItemX As ListItem

ListView1.ColumnHeaders.Clear '清除列标题
ListView1.ListItems.Clear

ListView1.View = lvwReport
ListView1.FlatScrollBar = False '滚动条
ListView1.GridLines = True '是否有网格线
ListView1.FullRowSelect = True '整行选择

'添加列
ListView1.ColumnHeaders.Add , , "第一列项目", 3000, , 2
ListView1.ColumnHeaders.Add , , "第二列项目", 2000, , 5
ListView1.ColumnHeaders.Add , , "第三列项目", 1000, , 4
'添加数据
Set ItemX = ListView1.ListItems.Add
ItemX.Text = "第一列第一行的数据"
ItemX.SubItems(1) = "第二列第一行的数据"
ItemX.SubItems(2) = "第三列第一行的数据"

Set ItemX = ListView1.ListItems.Add
ItemX.Text = "第一列第二行的数据"
ItemX.SubItems(1) = "第二列第二行的数据"
ItemX.SubItems(2) = "第三列第二行的数据"

Set ItemX = ListView1.ListItems.Add
ItemX.Text = "第一列第三行的数据"
ItemX.SubItems(1) = "第二列第三行的数据"
ItemX.SubItems(2) = "第三列第三行的数据"

End Sub

[tztz520]

'TreeView1控件代码


Private Sub Command1_Click()
TreeView1.Nodes.Clear
Dim nodx As Node
Set nodx = TreeView1.Nodes.Add(, , "A1", "第一层")
Set nodx = TreeView1.Nodes.Add(, , "A2", "第二层")
Set nodx = TreeView1.Nodes.Add(, , "A3", "第三层")

Set nodx = TreeView1.Nodes.Add("A1", 4, , "192.168.1.227")
Set nodx = TreeView1.Nodes.Add("A1", 4, , "192.168.1.224")
Set nodx = TreeView1.Nodes.Add("A1", 4, , "192.168.1.228")
nodx.EnsureVisible

Set nodx = TreeView1.Nodes.Add("A2", 4, , "192.168.1.163")
Set nodx = TreeView1.Nodes.Add("A2", 4, , "192.168.1.47")
nodx.EnsureVisible

Set nodx = TreeView1.Nodes.Add("A3", 4, , "192.168.1.121")
Set nodx = TreeView1.Nodes.Add("A3", 4, , "192.168.1.192")
Set nodx = TreeView1.Nodes.Add("A3", 4, , "192.168.1.133")
Set nodx = TreeView1.Nodes.Add("A3", 4, , "192.168.1.131")
Set nodx = TreeView1.Nodes.Add("A3", 4, "A33", "123456789")
nodx.EnsureVisible

Set nodex = TreeView1.Nodes.Add("A33", 4, , "这是123456789下面的一个节点")
End Sub

[aohan]

Private Sub Form_Load()
Dim nodF As Node
Dim intI As Integer
Set nodF = TreeView1.Nodes.Add(, , "L0", "¼ÒÍ¥")
Set nodF = TreeView1.Nodes.Add(1, tvwChild, "L1", "Àî¹ú", 1, 2)
Set nodF = TreeView1.Nodes.Add(1, tvwChild, "L2", "À", 1, 2)
Set nodF = TreeView1.Nodes.Add(1, tvwChild, "L3", "˔̖", 1, 2)
Set nodF = TreeView1.Nodes.Add(1, tvwChild, "L4", "ÀîÇ¿", 1, 2)
nodF.EnsureVisible '×Խڵ㡰ÀîÇ¿¡±ÆðÏòÇ°Õ¹¿ª
Set nodF = TreeView1.Nodes.Add("L1", tvwChild, "LL1", "ÀîÌ«", 1, 2)
Set nodF = TreeView1.Nodes.Add("L1", tvwChild, "LL2", "Àîƽ", 1, 2)
Set nodF = TreeView1.Nodes.Add("L1", tvwChild, "LL3", "ÀîÊ¢", 1, 2)
Set nodF = TreeView1.Nodes.Add("L1", tvwChild, "LL4", "ÀîÊÀ", 1, 2)
Set nodF = TreeView1.Nodes.Add("LL1", tvwChild, "LLL1", "Àî°Ù", 1, 2)
Set nodF = TreeView1.Nodes.Add("LL1", tvwChild, "LLL2", "˔Ȭ", 1, 2)
Set nodF = TreeView1.Nodes.Add("LL1", tvwChild, "LLL3", "ÀîÕù", 1, 2)
Set nodF = TreeView1.Nodes.Add("LL1", tvwChild, "LLL4", "ÀîÑÞ", 1, 2)
Set nodF = TreeView1.Nodes.Add("LLL1", tvwChild, "LLLL1", "Àî½Ô", 1, 2)
Set nodF = TreeView1.Nodes.Add("LLL1", tvwChild, "LLLL2", "Àî´ó", 1, 2)
Set nodF = TreeView1.Nodes.Add("LLL1", tvwChild, "LLLL3", "˔Ȧ", 1, 2)
Set nodF = TreeView1.Nodes.Add("LLL1", tvwChild, "LLLL4", "Àîϲ", 1, 2)
'Ϊ½Úµã¼¯ºÏÅäÕ¹¿ªºóµÄͼÐÎ
For intI = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(intI).ExpandedImage = 3
Next
End Sub

[aohan]

Option Explicit
Private Sub Combo1_Click()
'Ñ¡ÔñÁбíä¯ÀÀÆ÷ÀàÐÍ
ListView1.View = Combo1.ListIndex
Label2.Caption = "ËùÑ¡ÔñµÄÀàÐÍÊÇ£º" & Combo1.Text
End Sub

Private Sub Form_Load()
Dim intI As Integer
'ÉèÖÃÁбíä¯ÀÀÆ÷ÀàÐÍ
With Combo1
.AddItem "ͼ±êÀàÐÍ" 'ListIndex=0
.AddItem "Сͼ±êÀàÐÍ" 'ListIndex=1
.AddItem "ÁбíÀàÐÍ" 'ListIndex=2
.AddItem "±¨±íÀàÐÍ" 'ListIndex=3
End With
'×î³õµÄÀàÐÍ
ListView1.View = lvwIcon
Combo1.Text = "ͼ±êÀàÐÍ"
Label2.Caption = "ËùÑ¡ÔñµÄÀàÐÍÊÇ£ºÍ¼±êÀàÐÍ"
'ÉèÖÃÁбíä¯ÀÀÆ÷ͼ±ê
Set ListView1.Icons = ImageList1
Set ListView1.SmallIcons = ImageList2
Set ListView1.ColumnHeaderIcons = ImageList2
'Ϊ"±¨±í"ÐÍÁбíä¯ÀÀÆ÷ÉèÖÃ"ÁÐÊ×"
Dim colH As ColumnHeader
Set colH = ListView1.ColumnHeaders.Add(, , "ӰƬ", ListView1.Width / 5)
Set colH = ListView1.ColumnHeaders.Add(, , "ÖÆƬÈË", ListView1.Width / 5)
Set colH = ListView1.ColumnHeaders.Add(, , "µ¼ÑÝ", ListView1.Width / 5)
Set colH = ListView1.ColumnHeaders.Add(, , "Å®Ö÷½Ç", ListView1.Width / 5)
Set colH = ListView1.ColumnHeaders.Add(, , "ÄÐÖ÷½Ç", ListView1.Width / 5)
'ΪÁбíä¯ÀÀÆ÷Ìí¼ÓÁбíÏî
Dim Item1 As ListItem
Set Item1 = ListView1.ListItems.Add(, , "ӰƬ1", 1, 2)
Dim Item2 As ListItem
Set Item2 = ListView1.ListItems.Add(, , "ӰƬ2", 1, 2)
Dim Item3 As ListItem
Set Item3 = ListView1.ListItems.Add(, , "ӰƬ3", 1, 2)
Dim Item4 As ListItem
Set Item4 = ListView1.ListItems.Add(, , "ӰƬ4", 1, 2)
'Ϊ"±¨±í"ÐÍÁбíä¯ÀÀÆ÷ÉèÖÃ"Áбí×ÓÏî"
ListView1.ListItems(1).ListSubItems.Add , , "Ǯ׳"
ListView1.ListItems(1).ListSubItems.Add , , "ÃÀÁë"
ListView1.ListItems(1).ListSubItems.Add , , "ºìµÆ"
ListView1.ListItems(1).ListSubItems.Add , , "¸ß¹Ò"
ListView1.ListItems(2).ListSubItems.Add , , "ÁõÖ¾"
ListView1.ListItems(2).ListSubItems.Add , , "ÌÒÔ°"
ListView1.ListItems(2).ListSubItems.Add , , "´º·ç"
ListView1.ListItems(2).ListSubItems.Add , , "¼¤µ´"
ListView1.ListItems(3).ListSubItems.Add , , "¹ËÀÖ"
ListView1.ListItems(3).ListSubItems.Add , , "³Â³É"
ListView1.ListItems(3).ListSubItems.Add , , "°ÙÄê"
ListView1.ListItems(3).ListSubItems.Add , , "ºèТ"
ListView1.ListItems(4).ListSubItems.Add , , "ÕÔÇ¿"
ListView1.ListItems(4).ListSubItems.Add , , "ÇØ»Ê"
ListView1.ListItems(4).ListSubItems.Add , , "ÍõÔÃ"
ListView1.ListItems(4).ListSubItems.Add , , "À"
End Sub

[TechnoFantasy]

IShellFolder:
http://www.mvps.org/btmtz/ishellex/

[chinaworker]

谢谢各位，如还有，请继续！感谢/。

[wangguo1981]

学习中