本文介绍如何利用VBScript编程语言通过键盘事件实现对图形控件位置的调整，具体包括左移、右移、上移、下移等操作。
Option Explicit
Dim i As Integer
Private Sub form_keydown(keycode As Integer, shift As Integer)
If keycode = 37 Then 如果按下键值为37的键
Shape1.Left = Shape1.Left - 100 图形控件想左移动
ElseIf keycode = 38 Then
Shape1.Top = Shape1.Top - 100 同理
ElseIf keycode = 39 Then
Shape1.Left = Shape1.Left + 100
ElseIf keycode = 40 Then
Shape1.Top = Shape1.Top + 100
End If
End Sub
扫一扫
2013
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
