UC知道高手vb中mouse up的问题
来源：百度知道 编辑：UC知道 时间：2024/07/02 02:11:47
这个程序怎么用起没反应呢？请教
Private Sub Form_Load()
Label1.Caption = "学习visual basic" & Chr(13) & "visual basic"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Height = Height * 1.5
Width = Width * 1.5
ElseIf Button = vbRightButton Then
Height = Height / 1.5
Width = Width / 1.5
End If
End Sub
Private Sub Form_Load()
Label1.Caption = "学习visual basic" & Chr(13) & "visual basic"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Height = Height * 1.5
Width = Width * 1.5
ElseIf Button = vbRightButton Then
Height = Height / 1.5
Width = Width / 1.5
End If
End Sub
哪里没反应？
form_mouseup事件中的height是什么？变量？
'你的原语句是改Form的大小，你想改变谁的大小啊？
Private Sub Form_Load()
Label1.Caption = "学习visual basic" & Chr(13) & "visual basic"
Label1.BackColor = vbRed
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Label1
If Button = vbLeftButton Then
.Height = .Height * 1.5
.Width = .Width * 1.5
ElseIf Button = vbRightButton Then
.Height = .Height / 1.5
.Width = .Width / 1.5
End If
End With
End Sub