Private WithEvents NewText As TextBox
Private Sub Command1_Click()
  Set NewText = Controls.Add("VB.TextBox", "Text1", Form1)
  NewText.Move Command1.Left + Command1.Width + 240, Command1.Top
  NewText.Visible = True
End Sub
我在用Text1时提示未定义,请问如何才能引用出用代码创建的textbox?
还有在vb.exe中能不能使用Response.Write?
我用程序做一个表格,然后表格中有id,然后用程序控制其innerHTML,请问vb中能不能做到?

解决方案 »

  1.   


    Option ExplicitPrivate WithEvents NewText As TextBox
    Private Sub Command1_Click()
      Set NewText = Me.Controls.Add("VB.TextBox", "Text1", Me)
      NewText.Move Command1.Left + Command1.Width + 240, Command1.Top
      NewText.Visible = True
    End Sub
      

  2.   

    vb.exe做不到你说的这种效果,只能先把所有欲用到的textbox放出来,然后才能直接引用。
      

  3.   

    动态创建的控件,你写Me.Text1这样可以用才奇怪呢。
      

  4.   


    不能使用Text1来访问你添加的对象,应该使用NewText话说,在运行时创建的对象,只是其名字叫做text1而已如果你非常喜欢text1这个名字,那你可以使用:controls("Text1")来使用
      

  5.   


    看不出哪有讽刺的意思,呵呵
    再说,他那个代码确实比你的代码好,因为她使用“me”,不是使用“Form1”,使用Form1创建有局限性,只能在命名为Form1的窗口里动态创建,使用“me”则可以创建任意数量的类型为Form1的窗口:比如,在代码的任意地方,存在这样的代码:dim f as new Form1f.showVersion_04的代码能逻辑正确,但LZ的代码逻辑就有问题