VBA中文本框控件求教

fwsw1986

VBA中的文本框设置为多行文本，在文本框内输入多行字符，如何抓取指定行的字符，感谢

fjfhgdwfn

看看mtext的帮助。和AddMtext方法，在多行文本中\P表示的是换行，可以自己写一个，在属性中看内容。
Sub Example_AddMtext()
    ' This example creates an MText object in model space.
   
    Dim MTextObj As AcadMText
    Dim corner(0 To 2) As Double
    Dim width As Double
    Dim text As String
    corner(0) = 0#: corner(1) = 10#: corner(2) = 0#
    width = 10
    text = "This is the text String for the mtext Object"

    ' Creates the mtext Object
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
    ZoomAll
   
End Sub

yanyanjun999

不对么，只是插入多行文字，获取单行还是不行啊

fwsw1986

也是哦，试了下还是抓取不了指定行字符

fjfhgdwfn

搞个图上来，说下要找哪一个。
思路应是得到字符串，根据\P判断行，再找行中的字符就可以了

fwsw1986

Textbox1内输入多行字符，单击提取按钮将第三行字符输入到Textbox2中