UC知道VB TreeView1如何实现这样的功能？
来源：百度知道 编辑：UC知道 时间：2024/05/26 08:07:49
TreeView1，实现前面一个动画图标后面一行文字，共四行这样的图标和文字。
我知道是用timer控制，轮番更换图片可以实现VB的TreeView1动画，但我要实现的是：
当变量A=1时，TreeView1上面两个图版轮换，而当变量A=2时，四个图片都不轮换。有点像QQ信息来时图象跳动的效果。
请教VB高手，应该如何实现这样的效果呢？请写出代码。
（注意为节省资源和防止闪烁，不能用全部四个图标均进行轮换的办法，而只能轮换TreeView1上面两个）
谢谢。
要求象QQ好友列表那样的效果。
请勿复制。这样的程序我早找了好久了。
我知道是用timer控制，轮番更换图片可以实现VB的TreeView1动画，但我要实现的是：
当变量A=1时，TreeView1上面两个图版轮换，而当变量A=2时，四个图片都不轮换。有点像QQ信息来时图象跳动的效果。
请教VB高手，应该如何实现这样的效果呢？请写出代码。
（注意为节省资源和防止闪烁，不能用全部四个图标均进行轮换的办法，而只能轮换TreeView1上面两个）
谢谢。
要求象QQ好友列表那样的效果。
请勿复制。这样的程序我早找了好久了。
'这是一个完整的例子,需要一个treeview控件,一个imagelist控件,一个timer,一个按钮
Dim A As Integer
Private Sub Form_Load()
Dim I As Integer
A = 1
Timer1.Interval = 500
ImageList1.ListImages.Add 1, "M1", LoadPicture("你的第1行图标文件路径")
ImageList1.ListImages.Add 2, "M2", LoadPicture("你的第2行图标文件路径")
ImageList1.ListImages.Add 3, "M3", LoadPicture("你的第3行图标文件路径")
ImageList1.ListImages.Add 4, "M4", LoadPicture("你的第4行图标文件路径")
ImageList1.ListImages.Add 5, "MM1", LoadPicture("你的第1行所更换图标文件路径")
ImageList1.ListImages.Add 6, "MM2", LoadPicture("你的第2行所更换图标文件路径")
Set TreeView1.ImageList = ImageList1
For I = 1 To 4
TreeView1.Nodes.Add , , "T" & I, "Text" & I, "M" & I
Next
End Sub
Private Sub Command1_Click()
If A =