请教一下，两个关于vb的问题。

Question

第一：
在form里有4个文本框和一个button要求是在文本框中输入x,y坐标后，点击按钮，form就随着输入的x,y值变化，请问代码改怎么写？第二：
在form里有一个文本框和一个按钮，要求是点击按钮（此时按钮的caption为隐藏）后，文本框消失，然后，按钮的caption变成显示， 然后在点击按钮，caption变成隐藏。

Answer 1

public sub command1_click()
 if command1.caption="" then
  command1.caption="@#$!$#@%$#@"
 else
  command1.caption=""
 endif
 text1.visable=not text1.visable
sub sub

Answer 2

第一个问题大概意思就是在在form里面的文本框里面输入数字，然后form就根据这些数字来改变自己的x，y，和长，宽

Answer 3

me.left=text1.text
me.top=
me.width=
me.height=

Answer 4

Private Sub Command1_Click()
Me.Left = Text1.Text
Me.Top = Text2.Text
Me.Width = Text3.Text
Me.Height = Text4.Text
End Sub

Answer 5

Private Sub Command1_Click()
Me.Left = Text1.Text
Me.Top = Text2.Text
Me.Width = Text3.Text
Me.Height = Text4.Text
End Sub

Answer 6

text1.visable=not text1.visable不明白老大？我想要实现的是点击后caption变成显示，在点击后caption变成隐藏，而且文本框要出现，可是没有

Answer 7

to  viena(晓琴) 你能不能告诉你对第二问题的方法？

Answer 8

他写错了，visible是是否可见的属性，布尔型(boolean),not取反，使visible的属性true变 false、false变true。caption显示、隐藏不知是什么意思？

Answer 9

Private Sub Command1_Click()
Me.Left = Text1.Text
Me.Top = Text2.Text
Me.Width = Text3.Text
Me.Height = Text4.Text
End Subpublic sub command1_click()
 if command1.caption="" then
  command1.caption="someword
 else
  command1.caption=""
 endif
 text1.visable=false
sub sub

Answer 10

是这个意思，当按钮的caption是隐藏的时候，点击他，然后文本框消失，此时按钮的caption变成显示，然后在点击按钮，文本框出现，此时按钮caption变成隐藏。
第二题按你的方法做了，怎么出现错误说什么类型不匹配？？？

Answer 11

真够呛！是visible，不是visable！楼上又错了，是复制一楼的吧？

Answer 12

Private Sub Command1_Click()
 If Command1.Caption = "" Then
  Command1.Caption = "@#$!$#@%$#@"
 Else
  Command1.Caption = ""
 End If
 Text1.Visible = Not Text1.Visible
End Sub
把@#$!$#@%$#@换成你Command1的实际Caption就可以了

Answer 13

viena(晓琴)第二题按你的方法做了，怎么出现错误说什么类型不匹配？？？
是不是要定义？？

Answer 14

第二：
在form里有一个文本框和一个按钮，要求是点击按钮（此时按钮的caption为隐藏）后，文本框消失，然后，按钮的caption变成显示， 然后在点击按钮，caption变成隐藏。Private Sub Command1_Click()
    If Command1.Caption = "显示" Then
        Text1.Visible = True
        Command1.Caption = "隐藏"
    Else
        Text1.Visible = False
        Command1.Caption = "显示"
    End If
End SubPrivate Sub Form_Load()
    Command1.Caption = "显示"
    Text1.Visible = False
End Sub

Answer 15

才明白，原来是这意思，改改就可以了
Private Sub Command1_Click()
 If Command1.Caption = "显示" Then
  Command1.Caption = ""
 Else
  Command1.Caption = "隐藏"
 End If
 Text1.Visible = Not Text1.Visible
End Sub

Answer 16

不好意思，错了
Private Sub Command1_Click()
 If Command1.Caption = "显示" Then
  Command1.Caption = "隐藏"
 Else
  Command1.Caption = "隐藏"
 End If
 Text1.Visible = Not Text1.Visible
End Sub

Answer 17

还不对
Private Sub Command1_Click()
 If Command1.Caption = "显示" Then
  Command1.Caption = "隐藏"
 Else
  Command1.Caption = "显示"
 End If
 Text1.Visible = Not Text1.Visible
End Sub

Answer 18

第一题怎么不行了？
Private Sub Command1_Click()
Me.Left = Text1.Text
Me.Top = Text2.Text
Me.Width = Text3.Text
Me.Height = Text4.Text
End Sub
也是在我这里测试通过了的