重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在窗体的load事件里面写代码;
“只有客户发展了,才有我们的生存与发展!”这是创新互联的服务宗旨!把网站当作互联网产品,产品思维更注重全局思维、需求分析和迭代思维,在网站建设中就是为了建设一个不仅审美在线,而且实用性极高的网站。创新互联对成都做网站、网站制作、成都外贸网站建设、网站制作、网站开发、网页设计、网站优化、网络推广、探索永无止境。
代码大致是这样的:
p.top=p.top-x
这里p是你放图片的那个容器名字,x是你每次的移动量;
如果你想让它持续移动,就添加一个timer,在load事件里面打开timer,在timer事件里面写上面的代码;
不是语言让图片动起来的,而是图片本身就能动,例如gif格式图片本身就是动画。如果你讲的是图片在网页上移动,而不是图片本身内容的动作,那么不是vb.net的功能必须用java脚本来实现。
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode Image1.Tag Then '第二次按下某键可以不执行语句
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