永发信息网

VB 代码!!

答案:3  悬赏:20  手机版
解决时间 2021-04-14 19:58
怎么做一个移动按钮 当按小键盘8,6,2,4时可以朝上、右、下、左运动
最佳答案
Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = 50 Then
Command1.Top = Command1.Top + 50
ElseIf KeyAscii = 52 Then
Command1.Left = Command1.Left - 50
ElseIf KeyAscii = 54 Then
Command1.Left = Command1.Left + 50
ElseIf KeyAscii = 56 Then
Command1.Top = Command1.Top - 50
End If
End Sub
全部回答

首先把窗体的“KeyPreview”属性设置为“True” 然后把编写下面代码

Private Sub Form_KeyPress(KeyAscii As Integer) '当按 2 时向“上”

If KeyAscii = 50 Then Command1.Top = Command1.Top - 20

'当按 4 时向“下” ElseIf KeyAscii = 52 Then Command1.Top = Command1.Top + 20

'当按 6 时向“左” ElseIf KeyAscii = 54 Then Command1.Left = Command1.Left - 20

当按 8 时向“右” ElseIf KeyAscii = 56 Then Command1.Left = Command1.Left + 20 End If End Sub 不知道这个可不可以帮到楼主

是按一次跑一下,还是按一次就一直跑
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
怎样学习高中数学?
java面向对象程序设计问题
已知不等式ax^2+bx+c>0的解集为{x丨α<x<β}
想买天猫魔盒,请问普通机顶盒,跟电信安装的
车子更换人名字需要什么手续
qq游戏人生是什么???
抗浮锚杆施工前基础垫层是否要施工完
有些Q友为何隐身在线?
单选题已知等差数列共有10项,其中奇数项和为
面面巨稻在什么地方啊,我要过去处理事情
炉前工月薪是多少
电脑第一次启动时CPU温度过高,重启之后正常
吃善存片是整颗吞下还是咀嚼啊
羊奶和啥不能一起吃
巨蟹座今年的人际交往和桃花运有多高?
推荐资讯
六年级上册词语手册(人教版)1-4课四字词语?
福特锐界熄火驾驶室小灯常亮
游戏人生是怎么升级的,是靠荣誉值升级的么
用打火机点燃酒精灯,可不慎将打火机掉到地上
有光电器城这个地址在什么地方,我要处理点事
上海嘉定哪里能买到ipod 要具体地址
N72可以下栽那个电影播放器,播放时可以快进
买什么样的手提电脑好?
二次函数y=ax2+bx+c的图象如图所示,已知图象
QQ音信怎么开啊,谁送个种子呀。
后舍男生第六集的音乐叫什么?
单选题Hespends________onEnglish.Nowheis
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?