TreeView不能显示图标

美福种田伯 2005-02-24 10:24:56
我在Iml(图像列表)里面加入了若干图标,启动时在Form_Load事件里加入如下代码
TreeView1.ImageList=Iml
TreeView1.Nodes.Add("操作系统").ImageIndex = 0
TreeView1.Nodes(0).SelectedImageIndex = 0
为什么我的TreeView不能显示图标,却显示一个小空白
...全文
356 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
3tzjq 2005-02-25
  • 打赏
  • 举报
回复
资源文件的问题或是图标文件象素过高不法显示。
3tzjq 2005-02-25
  • 打赏
  • 举报
回复
资源文件的问题可是图标文件象素过高不法显示。
yizhixiaozhu 2005-02-25
  • 打赏
  • 举报
回复
up
点点星灯 2005-02-25
  • 打赏
  • 举报
回复
路径问题!!
tl_pear 2005-02-25
  • 打赏
  • 举报
回复
你这段代码,在我机子上是可以达到你的目的。
有图象出现,而不是一个空白。
你看看是不是Iml的问题!
TreeView1.ImageList=Iml
TreeView1.Nodes.Add("操作系统").ImageIndex = 0
TreeView1.Nodes(0).SelectedImageIndex = 0
tl_pear 2005-02-25
  • 打赏
  • 举报
回复

TreeView1.Nodes.Add("root")
TreeView1.Nodes.Add("node")
TreeView1.ImageList = ImageList1
TreeView1.ImageIndex = 0
TreeView1.SelectedImageIndex = 1
yufenfeila 2005-02-24
  • 打赏
  • 举报
回复
MSDN的例子:

Private Sub FillTreeView()
' Load the images in an ImageList.
Dim myImageList As New ImageList()
myImageList.Images.Add(Image.FromFile("Default.gif"))
myImageList.Images.Add(Image.FromFile("SelectedDefault.gif"))
myImageList.Images.Add(Image.FromFile("Root.gif"))
myImageList.Images.Add(Image.FromFile("UnselectedCustomer.gif"))
myImageList.Images.Add(Image.FromFile("SelectedCustomer.gif"))
myImageList.Images.Add(Image.FromFile("UnselectedOrder.gif"))
myImageList.Images.Add(Image.FromFile("SelectedOrder.gif"))

' Assign the ImageList to the TreeView.
myTreeView.ImageList = myImageList

' Set the TreeView control's default image and selected image indexes.
myTreeView.ImageIndex = 0
myTreeView.SelectedImageIndex = 1

' Set the index of image from the
' ImageList for selected and unselected tree nodes.
Me.rootImageIndex = 2
Me.selectedCustomerImageIndex = 3
Me.unselectedCustomerImageIndex = 4
Me.selectedOrderImageIndex = 5
Me.unselectedOrderImageIndex = 6

' Create the root tree node.
Dim rootNode As New TreeNode("CustomerList")
rootNode.ImageIndex = rootImageIndex
rootNode.SelectedImageIndex = rootImageIndex

' Add a main root tree node.
myTreeView.Nodes.Add(rootNode)

' Add a root tree node for each Customer object in the ArrayList.
Dim myCustomer As Customer
For Each myCustomer In customerArray
' Add a child tree node for each Order object.
Dim countIndex As Integer = 0
Dim myTreeNodeArray(myCustomer.CustomerOrders.Count) As TreeNode
Dim myOrder As Order
For Each myOrder In myCustomer.CustomerOrders
' Add the Order tree node to the array.
myTreeNodeArray(countIndex) = New TreeNode(myOrder.OrderID, _
unselectedOrderImageIndex, selectedOrderImageIndex)
countIndex += 1
Next myOrder
' Add the Customer tree node.
Dim customerNode As New TreeNode(myCustomer.CustomerName, _
unselectedCustomerImageIndex, selectedCustomerImageIndex, myTreeNodeArray)
myTreeView.Nodes(0).Nodes.Add(customerNode)
Next myCustomer
End Sub

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧