正文
vb.net图片向上移 vb移动图片框怎么做
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB图片移动问题
'在此程序里，picture1代表绿色区域，picture2代表小球。
'顺便说一句，form的KeyPreview属性要设置成true
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37 '用户按下“←”键
Picture2.Left = Picture2.Left - 3 '让小球向左移动3个单位，移多少可以自己定
If Picture2.Left = Picture1.Left + Picture1.Width And Picture2.Left Picture1.Left - Picture2.Width Then
If Picture2.Top = Picture1.Top + Picture1.Height And Picture2.Top Picture1.Top - Picture2.Height Then
MsgBox "您输了！"
End If
End If
Case 38 '用户按下“↑”键
Picture2.Top = Picture2.Top - 3 '让小球向上移动3个单位，移多少可以自己定
If Picture2.Left = Picture1.Left + Picture1.Width And Picture2.Left Picture1.Left - Picture2.Width Then
If Picture2.Top = Picture1.Top + Picture1.Height And Picture2.Top Picture1.Top - Picture2.Height Then
MsgBox "您输了！"
End If
End If
Case 39 '用户按下“→”键
Picture2.Left = Picture2.Left + 3 '让小球向右移动3个单位，移多少可以自己定
If Picture2.Left = Picture1.Left + Picture1.Width And Picture2.Left Picture1.Left - Picture2.Width Then
If Picture2.Top = Picture1.Top + Picture1.Height And Picture2.Top Picture1.Top - Picture2.Height Then
MsgBox "您输了！"
End If
End If
Case 40 '用户按下“↓”键
Picture2.Top = Picture2.Top + 3 '让小球向下移动3个单位，移多少可以自己定
If Picture2.Left = Picture1.Left + Picture1.Width And Picture2.Left Picture1.Left - Picture2.Width Then
If Picture2.Top = Picture1.Top + Picture1.Height And Picture2.Top Picture1.Top - Picture2.Height Then
MsgBox "您输了！"
End If
End If
End Select
End Sub
望采纳！
相关问答
Q1: vb中，怎么可以把一张图片旋转起来
这个问题不是小问题。如果只是90度转vb.net图片向上移，vb.net的picture控件有RotateFlip方法。
任意角度vb.net图片向上移，可以参考这个
;cs-lang=csharp
图片的变换涉及坐标处理vb.net图片向上移，要自己算。
还有可以用Windows Presentation Foundation (WPF) 编程，里面的image控件好像也能旋转图片。
如果是VB6，恐怕只能用API函数vb.net图片向上移了，百度一下“vb 旋转图片” “VB api函数”vb.net图片向上移了解一下
Q2: 在VS2008中，如何让VB.net中的图片动起来
不是语言让图片动起来的，而是图片本身就能动，例如gif格式图片本身就是动画。如果你讲的是图片在网页上移动，而不是图片本身内容的动作，那么不是vb.net的功能必须用java脚本来实现。
vb.net图片向上移的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb移动图片框怎么做、vb.net图片向上移的信息别忘了在本站进行查找喔。
