创建TextBox，并使其获得焦点，但是为什么不成功？附代码

Question

Dim WithEvents myedit As TextBoxmyedit = New TextBox
            myedit.Text = "my"
            myedit.Location = New Point(0, 0)
            myedit.Size = New Size(100, 10)
            myedit.Focus()
            myedit.Visible = True
            'myedit.SelectAll()
            Controls.Add(myedit)
编辑框创建了，但是没有获得焦点

Answer 1

Private Sub Command1_Click()
Set TextBox1 = Form1.Controls.Add("VB.textbox", "Textbox1")
'Form1.Controls.Add "VB.textbox", "Textbox1"
   With Form1!TextBox1
      .Visible = True
      .Width = 2000
      .Text = ""
      .SetFocus
   End With
End Sub

Answer 2

有没有vb.net的代码，上面的编译不过

Answer 3

这样试一下Dim WithEvents myedit As TextBoxmyedit = New TextBox
            Controls.Add(myedit)
            myedit.Text = "my"
            myedit.Location = New Point(0, 0)
            myedit.Size = New Size(100, 10)
            myedit.Visible = True
            myedit.Focus()
            'myedit.SelectAll()

Answer 4

晕哦，VB.NET有专门的一个版面的