fwsw1986 发表于 2011-1-27 21:33:29

VBA中文本框控件求教

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

fjfhgdwfn 发表于 2011-1-28 20:08:48

看看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 发表于 2011-1-28 20:28:04

本帖最后由 yanyanjun999 于 2011-1-28 20:42 编辑

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

fwsw1986 发表于 2011-1-28 21:04:45

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

fjfhgdwfn 发表于 2011-1-29 14:01:30

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

fwsw1986 发表于 2011-1-29 20:49:31

Textbox1内输入多行字符，单击提取按钮将第三行字符输入到Textbox2中
页: [1]
查看完整版本: VBA中文本框控件求教