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

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

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

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

没看懂什么意思？
页: [1]
查看完整版本: [求助]如何清空文本框里的文字内容