第1个回答 2012-11-06
Private Sub CommandButton1_Click()
Me.Top = TextTop.Text
Me.Left = TextLeft.Text
Me.Width = TextWidth.Text
Me.Height = TextHeight.Text
End Sub
或
Private Sub CommandButton2_Click()
Me.Move TextLeft.Text, TextTop.Text, TextWidth.Text, TextHeight.Text
End Sub本回答被网友采纳
第2个回答 2012-11-06
你好:
横坐标:TEXT1.TEXT
纵坐标:TEXT2.TEXT
Private Sub Command1_Click()
form1.Move Val(Text1.text), Val(Text2.text)
form1.width=Val(Text1.text)
form1.height=Val(Text2.text)
End Sub
第3个回答 2012-11-06
Private Sub Command1_Click()
Text1.Move Val(Text1), Val(Text2), Val(Text3), Val(Text4)
End Sub