vb6.0通过点击按钮在指定位置创建文本框,怎么写代码啊？

最简亩昌单的办法：

1、在窗体提前设计好text1,text2,text3....，然后就这些文本框的visible属性设置为扰稿false。迅李扒

2、在按钮事件中：

x=x+1

if x=1 then

text1.visible=true

elseif x=2 then

text2.visible=true

.......

end if

3、取消文本框显示按钮事件：

text1.visible=false

text2.visible=false

.......

vb6如下租斗氏：

Private Sub Command1_Click()

 Dim txt As Object

 Static n As Integer, x As Long

 销渣n = n + 1

 Set txt = Controls.Add("vb.textbox", "txok" & n, Me)

 With txt

  .Move x, 500

  .Text = "Hi,textbox"

  .Visible = True

 

 End With

 x = x + 2000

End 弊散Sub

文本框内容显示在液裤明指定地方：就是一个dom内容转移的 *** 作，使用Jquery获取纯野原生js都很好实现，配合具闹告体js事件实现。具体 *** 作如下： //假定文本框的id='mytext',指定显示区域的id='show' //div/span/p等节点，不是文本元素function fun(){ getEle

---