社区 › VB › [求助]如何清空文本框里的文字内容

yulo2002 发表于 2009-1-16 16:13:00

[求助]如何清空文本框里的文字内容

小弟初入门学习VBA，编了一段程序如下
Private Sub circle02_Click()
   
Dim text As AcadText
Dim insertpoint(0 To 2) As Double
insertpoint(0) = 10
insertpoint(1) = 10
insertpoint(2) = 0
Set text = ThisDrawing.ModelSpace.AddText("02", insertpoint, 5)
ThisDrawing.Application.ZoomExtents
End Sub
Private Sub line01_Click()
Dim text As AcadText
Dim insertpoint(0 To 2) As Double
insertpoint(0) = 10
insertpoint(1) = 10
insertpoint(2) = 0
Set text = ThisDrawing.ModelSpace.AddText("01", insertpoint, 5)
ThisDrawing.Application.ZoomExtents
End Sub
请教各位高手，应该如何清空上面文本框里的文字内容

dbczhaoy 发表于 2009-1-17 09:43:00

没看懂什么意思？

查看完整版本: [求助]如何清空文本框里的文字内容