谁告诉我做下这VB最简单的设计题。

来源：百度知道 编辑：UC知道 时间：2024/06/15 21:37:19
在窗体上有一个标签，背景为蓝色，当鼠标右键在窗体上按下时，标签放大一倍，松开时还原标签大小。

在窗体上有一个标签，鼠标在窗体上移动时，在鼠标的所在位置显示标签，标签中显示鼠标的坐标。

在窗体上有一个标签，当按下a,s,d,w键时，标签分别向左，下，右，上方移动。。

三个题目，谁告诉我怎么编写哦。自学学不会。。

新建一个窗体，上面放一个标签控件。直接把代码复制到窗体即可。代码如下：

第一个题目放大缩小：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Label1.Height = Label1.Height * 2
Label1.Width = Label1.Width * 2
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Label1.Height = Label1.Height \ 2
Label1.Width = Label1.Width \ 2
End If
End Sub

第二题，移动

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Left = X
Label1.Top = Y
Label1.Caption = "X=" & X & "Y=" & Y
End Sub

第三题w,s,a,d

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 87
Label1.Top = Label1.Top - 10
Case 83
Label1.Top =