VB 编写适当的事件过程，程序运行后，如果单击窗体可使文本框移到左上角，双击窗体文本框宽度减小200缇。

Question

VB菜鸟求大神相助！

Answer 1

Private Sub Form_Click()
Text1.Top = 0
Text1.Left = 0
End Sub

Private Sub Form_DblClick()
Text1.Width = Text1.Width - 200
End Sub

不过当运行双击窗体时，会先运行单击窗体事件。

Answer 2

Dim Theight
Private Sub Form_Click()
Text1.Move 0, 0
End Sub

Private Sub Form_DblClick()
Text1.Height = Theight - 200
End Sub

Private Sub Form_Load()
Theight = Text1.Height
End Sub追问

怎么缺少End Sub呢

追答

你复制少了吧？

本回答被提问者采纳