vb用键盘移动image图片(在工程生成后)

vb怎么用键盘移动image图片(在工程生成后)。想做一个坦克大战。。。。。。。。。。。。。。。。。本人小白不要笑话我。。。在线坐等!!!!... vb怎么用键盘移动image图片(在工程生成后)。
想做一个坦克大战。。。。。。。。。。。。。。。。。
本人小白 不要笑话我。。。
在线坐等!!!!
展开
 我来答
百度网友8a59221
推荐于2016-02-18 · TA获得超过5338个赞
知道小有建树答主
回答量:1253
采纳率:66%
帮助的人:199万
展开全部
你的图片在哪里.在一个控件里吗?如果图片在一个控件里,直接移动控件就行啦.移动控件会吧,如果我要移动一个Image1到窗体的左上角.那就这样:
Image1.Move 0,0
0,0是Image1的Left和Top.至于用键盘的方向键来控制,可以这样:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then Image1.Move Image1.Left - 10, Image1.Top '左由于只向左移,TOP不变,所以也可以这样(Image1.Left=Image1.Left - 10)直接减小LEFT就行了.下面也一样.
If KeyCode = 38 Then Image1.Move Image1.Left, Image1.Top - 10 '上
If KeyCode = 39 Then Image1.Move Image1.Left + 10, Image1.Top '右
If KeyCode = 40 Then Image1.Move Image1.Left, Image1.Top + 10 '下
End Sub

Private Sub Form_Load()
Form1.KeyPreview = True '激活Form1上的控件的键盘事件之前,优先激活Form1键盘事件。
End Sub

是ASCII吧.我也不知它叫什么码.我就叫它KEYCODE.当你按下键盘任意一个键,KEYCODE就等于一个整数.
反正按下键盘方向键的左键,KEYCODE就等于37;上就是38.....
你可以这样得到每个键的KEYCODE:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text1 = KeyCode
End Sub
追问
谢谢。不过还想问一下,
vb怎么添加透明图片,即可以看到背景的图片

http://zhidao.baidu.com/question/1574929693410048260.html

而且这么不让图片溢出窗口
追答
你自己看看  那个是的  我现在也不知道了
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式