在窗體的load事件里面寫代碼;
“只有客戶發(fā)展了,才有我們的生存與發(fā)展!”這是創(chuàng)新互聯(lián)的服務宗旨!把網(wǎng)站當作互聯(lián)網(wǎng)產(chǎn)品,產(chǎn)品思維更注重全局思維、需求分析和迭代思維,在網(wǎng)站建設中就是為了建設一個不僅審美在線,而且實用性極高的網(wǎng)站。創(chuàng)新互聯(lián)對成都做網(wǎng)站、網(wǎng)站制作、成都外貿網(wǎng)站建設、網(wǎng)站制作、網(wǎng)站開發(fā)、網(wǎng)頁設計、網(wǎng)站優(yōu)化、網(wǎng)絡推廣、探索永無止境。
代碼大致是這樣的:
p.top=p.top-x
這里p是你放圖片的那個容器名字,x是你每次的移動量;
如果你想讓它持續(xù)移動,就添加一個timer,在load事件里面打開timer,在timer事件里面寫上面的代碼;
不是語言讓圖片動起來的,而是圖片本身就能動,例如gif格式圖片本身就是動畫。如果你講的是圖片在網(wǎng)頁上移動,而不是圖片本身內容的動作,那么不是vb.net的功能必須用java腳本來實現(xiàn)。
Private?Sub?Form_KeyDown(KeyCode?As?Integer,?Shift?As?Integer)
If?KeyCode??Image1.Tag?Then?'第二次按下某鍵可以不執(zhí)行語句
Select?Case?KeyCode
Case?37?'左
Image1.Picture?=?LoadPicture("C:\圖片A.jpg")
Image1.Left?=?Image1.Left?-?50
Case?38?'上
Image1.Picture?=?LoadPicture("C:\圖片C.jpg")
Image1.Top?=?Image1.Top?-?50
Case?39?'右
Image1.Picture?=?LoadPicture("C:\圖片B.jpg")
Image1.Left?=?Image1.Left?+?50
Case?40?'下
Image1.Picture?=?LoadPicture("C:\圖片D.jpg")
Image1.Top?=?Image1.Top?+?50
End?Select
Image1.Tag?=?KeyCode
End?If
End?Sub
Private?Sub?Form_Load()
Image1.Tag?=?1
End?Sub
Private Sub Command1_Click()
Image1.Top = Image1.Top - 50 '圖片向上移動50
Image1.Left = Image1.Left - 50 '圖片向左移動50
End Sub