VB触碰事件

答案:2 悬赏:0 手机版

解决时间 2021-02-01 09:10

提问者网友：暮烟疏雨之际
2021-02-01 00:20

我做了一个游戏但是有个问题就是不会搞，用Label做例子。就是我按W,A,S,D去碰到一个Label然后就弹出一个信息框，这种怎么搞，用不用时钟？分我还没有等我有了我会加上

最佳答案

五星知识达人网友：胯下狙击手
2021-02-01 00:34

不明白啊 = =！

全部回答

1楼网友：北方的南先生
2021-02-01 01:46

'不需要时钟,在窗口添加Label1和Label2控件,将下面程序复制过去就可以了。 Private Sub Form_Load() 'Label边框样子设置 Label1.Appearance = 0 Label1.BorderStyle = 1 Label2.Appearance = 0 Label2.BorderStyle = 1 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) With Label1 Select Case KeyCode Case 87 '按下W键往上移动 .Top = .Top - 40 ’40为移动速度，可根据需要进行修改 Case 65 '按下A键往左移动 .Left = .Left - 40 Case 68 '按下S键往右移动 .Left = .Left + 40 Case 83 '按下S键往下移动 .Top = .Top + 40 End Select '发生碰撞 If .Left + .Width >= Label2.Left And .Left <= Label2.Left + Label2.Width _ And .Top <= Label2.Top + Label2.Height And .Top + .Height >= Label2.Top Then '可以在这里重新定位Label1 位置 MsgBox "撞到了！" End If End With End Sub '打字很辛苦，请采纳！谢谢！

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息