动态制作添加、删除

动态添加、删除Text

一、编写程序

Dim  with.events mytextbox As VB.TextBox

Private Sub Command1_Click()

Dim myTextBox As VB.TextBox

set mytextbox = me.controls.Add("VB.TextBox","mytextbox)

my textbox.move me.Command1.left - 1500,me.command1.top,me.command1.height,me.command.height 

my TextBxb.Visible=True

End sub

Private Sub command2-Chick

Me.confnols.remove:"myTextBox"

End sub

private Sub Text1-Chang()

Privt Test1.Text'

Eext Sub 

Private Sub' muTextBox-change

Pnnt myTextBox Text

End Sub

二、新的体会

    通过这次的学习，让我对vb工程有了进一步的理解，有了进一步的体会，让我知道了很多其实是有很多是自己来体会的。

三、遇到的问题和解决方法

问题：遇到了跟以前差不多的问题，就是有很多的小马虎了。

方法：询问老师，同学帮忙。