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中能不能做到?
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中能不能做到?
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
不能使用Text1来访问你添加的对象,应该使用NewText话说,在运行时创建的对象,只是其名字叫做text1而已如果你非常喜欢text1这个名字,那你可以使用:controls("Text1")来使用
看不出哪有讽刺的意思,呵呵
再说,他那个代码确实比你的代码好,因为她使用“me”,不是使用“Form1”,使用Form1创建有局限性,只能在命名为Form1的窗口里动态创建,使用“me”则可以创建任意数量的类型为Form1的窗口:比如,在代码的任意地方,存在这样的代码:dim f as new Form1f.showVersion_04的代码能逻辑正确,但LZ的代码逻辑就有问题