在VB里怎么实现用左右键控制image1的左右移动还有....

在VB里怎么实现用左右键控制image1的左右移动,还有怎样使单击按钮1时image1隐藏,image2显现,过一秒再变回去?大哥大姐们帮个忙呀....http://zh... 在VB里怎么实现用左右键控制image1的左右移动,还有怎样使单击按钮1时image1隐藏,image2显现,过一秒再变回去?大哥大姐们帮个忙呀....
http://zhidao.baidu.com/question/61400269.html?fr=im
为什么Text1(这个不能省略!),呀帮下吧。

谁能解释一下这个步骤呀,我有点不明白。
展开
 我来答
ARTERIOSCLEROS
2008-07-23 · TA获得超过4183个赞
知道大有可为答主
回答量:1672
采纳率:0%
帮助的人:2413万
展开全部
补充:这个说来话长,我简单描述。就是,因为在窗体上有一个Command1,他会自动获得焦点,从而,你如果只按左右键的话会不起作用,必须按Ctrl/Shift/Alt+左右键才可以实现移动Image的效果。加一个TExt的目的就是,你在按左右键的时候,Text就会获得焦点,并且不会随便转移出去,这样的话,按左右键的时候,就能直接实现这种功能了。我只能叙述到这种程度了,不知你是否明白。反正这样可以实现你的效果,我想达到目的才是最终的目标。谢谢。
====================
建一个Command1,Timer1,Image1,Image2,Text1(这个不能省略!),可以实现你说的效果。
代码如下。
==================
Private Sub Command1_Click()
Timer1.Enabled = True
Image1.Visible = False
Image2.Visible = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then Image1.Move Image1.Left - 10
If KeyCode = vbKeyRight Then Image1.Move Image1.Left + 10
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Text1.Move -200, -200, 0, 0
KeyPreview = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Image1.Visible = True
Image2.Visible = False
End Sub
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式