窗体上有一文本框，名称为Text1 ,高度为1200，宽度为600。程序运行后，在文本框中

Question

窗体上有一文本框，名称为Text1 ,高度为1200，宽度为600。程序运行后，在文本框中输入一行文字并按回车（Enter）后，把文本框的内容设置为窗体的标题。

Answer 1

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Form1.Caption = Text1.Text
End If
End Sub

Private Sub Form_Load()
Form1.KeyPreview = True
Text1.Height = 1200
Text1.Width = 200
End Sub

Answer 2

在按键的click事件里，例如键入 userform1.caption =userform1.text1.value

Answer 3

if Key = #13 then
self.caption = Text1.Text;