在VB里怎么实现用左右键控制image1的左右移动还有....
在VB里怎么实现用左右键控制image1的左右移动,还有怎样使单击按钮1时image1隐藏,image2显现,过一秒再变回去?大哥大姐们帮个忙呀....http://zh...
在VB里怎么实现用左右键控制image1的左右移动,还有怎样使单击按钮1时image1隐藏,image2显现,过一秒再变回去?大哥大姐们帮个忙呀....
http://zhidao.baidu.com/question/61400269.html?fr=im
为什么Text1(这个不能省略!),呀帮下吧。
谁能解释一下这个步骤呀,我有点不明白。 展开
http://zhidao.baidu.com/question/61400269.html?fr=im
为什么Text1(这个不能省略!),呀帮下吧。
谁能解释一下这个步骤呀,我有点不明白。 展开
1个回答
展开全部
补充:这个说来话长,我简单描述。就是,因为在窗体上有一个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
====================
建一个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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询