只是picturebox支持而已...
我們提供的服務(wù)有:成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、黃巖ssl等。為上千余家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的黃巖網(wǎng)站制作公司
把gif每幀都單獨(dú)存成一張圖片,加個(gè)timer不斷更換treeview節(jié)點(diǎn)顯示的圖片,用來實(shí)現(xiàn)簡(jiǎn)單的動(dòng)畫是夠了。
可以了,你在窗體上把WebBrowser控件放上,按鈕上放上以下內(nèi)容即可,大小自己設(shè)置。
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.open
WebBrowser1.Document.write "img src='實(shí)際GIF位置\xxx.gif'/img"
WebBrowser1.Document.Close
img里,你按HTML格式可以設(shè)置GIF的大小,高度之類的。
用Button控件就可以了 修改BackgroundImage 屬性 類似這樣
Button1.BackgroundImage = Image.FromFile("C:\Users\hp\Desktop\EMOTICONS\EMOTICON SMILE.png")
如果要實(shí)現(xiàn)動(dòng)態(tài)效果的話需要2個(gè)圖片當(dāng)Button1_MouseHover事件時(shí)也就是鼠標(biāo)停留在button上的時(shí)候顯示一個(gè)圖片,當(dāng)Button1_MouseLeave事件時(shí),也就是鼠標(biāo)離開button時(shí)顯示原來的圖片,這樣就是動(dòng)態(tài)的了.
布局方面,建議你用FlowLayoutPanel,不用手工控制控件位置了。假設(shè)有一個(gè)FlowLayoutPanel1。
先在窗體類中建一個(gè)控件的集合:
Dim
TextBoxes
As
New
List(Of
TextBox)
在button1的
Click事件
中寫:
For
i
=
1
To
5
'5是每次加入的數(shù)量
Dim
newTextBox
As
New
TextBox()
'newTextBox.Size
=
New
Size(100,20)
'
TextBoxes.Add(newTextBox)
'加入我們的集合中
FlowLayoutPanel1.Controls.Add(newTextBox)
'加到窗體的FlowLayoutPanel中去
Next
i
然后button2的Click事件中:
For
Each
itemTextBox
As
TextBox
In
TextBoxes
'這里的itemTextBox.Text就代表每個(gè)TextBox里的文本
'如果你需要清空,調(diào)用TextBoxes.Clear()和FlowLayoutPanel.Controls.Clear()即可
Next