250分,请将下面代码改成支持GIF动画,谢谢.

来源：百度知道 编辑：UC知道 时间：2024/06/17 17:37:30
现在用的是VB.NET,如何将下面可以正常显示GIF图像,但无法显示GIF动画,如何改成可显示GIF动画?

Rs.Open "select * from texts", cn, 1, 1
If Not Rs.EOF Then
i = 1
Rs.MoveFirst
Do While Not Rs.EOF
zxbz = Rs("zxbz")
If zxbz = 0 Then
g = "2(1).gif"
Else
g = "2(2).gif"
End If
ids = CStr(Rs("id"))
huiyuan = "s" & ids
users = Rs("addrs")
Image1.Picture = LoadPicture("D:\Program Files\Microsoft Visual Studio\VB98\dzb\" & g & "")
ImageList1.ListImages.Add i, , Image1.Picture TreeView1.ImageList = ImageList1
TreeView1.Nodes.Add , tvwChild, CStr(huiyuan), CStr(users), i
TreeView1.Nodes(i).Tag = "0" & CStr(ids)
i = i + 1
Rs.MoveNext
Loop
我需要的是在treeview中显示GIF动画的效果.

你原来不是试过将gif拆成单帧,用timer来轮翻更新么?

我这里有一个GIF动画控件,要的话加QQ,我传给你
162057326

VB只支持静态图片..对于GIF..要写很多代码~

Rs.Open "select * from texts", cn, 1, 1
If Not Rs.EOF Then
i = 1
Rs.MoveFirst
Do While Not Rs.EOF
zxbz = Rs("zxbz")
If zxbz = 0 Then
g = "2(1).gif"
Else
g = "2(2).gif"
End If
ids = CStr(Rs("id"))
huiyuan = "s" & ids
users = Rs("addrs")
Image1.Picture = LoadPicture("D:\Program Files\Microsoft Visual Studio\VB98\dzb\" & g & "")
ImageList1.ListImages.Add i, , Image1.Picture TreeView1.ImageList = ImageList1
TreeView1.Nodes.Add , tvwChild, CStr(huiyuan), CStr(users), i
TreeView1.Nodes(i).Tag = "0" & CStr(ids)
i = i + 1
Rs.MoveNext
Loop

你可以去网上寻找及下载专用的控件，比如Gif89.dll
使用非常方便，无需写任何代码.