UC知道十万火急,高分求解:VB列表前加入图标的简单问题
来源：百度知道 编辑：UC知道 时间：2024/06/03 23:24:27
请VB高手给我写一段VB代码,实现下述功能:
for i=1 t0 10
'这里显示图标i(c:\i.gif),这里显示文字i
next
点击列表中图标或文字打开一个新的窗体.
非常感谢.
用Listview控件或Listbox控件或其它列表类的控件实现.
for i=1 t0 10
'这里显示图标i(c:\i.gif),这里显示文字i
next
点击列表中图标或文字打开一个新的窗体.
非常感谢.
用Listview控件或Listbox控件或其它列表类的控件实现.
工程中创建两个窗体:form1,form2
form1中加一treeview(先从部件中添加"ms windows common controls 6.0 或5.0",在工具箱中就可以找到treeview控件了),imagelist,imagebox,均为默认名称
form1中贴入以下代码:
Private Sub Form_Load()
'For i = 1 To 10
'Image1.Picture = LoadPicture("c:\" & CStr(i) & ".gif")
'ImageList1.ListImages.Add i, , Image1.Picture
'Next i
'TreeView1.ImageList = ImageList1
'如果你手工向imaglist添加图,并在treeview1中设置了图像列表为imagelist1,可使用image1及以上代码
For i = 1 To 10
TreeView1.Nodes.Add , tvwChild, "openfrm" & i, CStr(i), 1
TreeView1.Nodes(i).Tag = "0"
Next i
'TreeView1.Nodes.Add [relative], [relationship], [Key], [Text], [Image], [SelectedImage]
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Tag = "1" Then
MsgBox "窗口已打开"
Exit Sub
Else
Dim newfrm As Form2
Set newfrm = New For