fwsw1986 发表于 2011-1-29 21:50:59

VBA中textbox控件问题

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

chmenf087 发表于 2011-1-30 10:00:26

Private Sub TextBox3_Mouseup(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim previous As Integer
Dim length As Integer
length = 0
TextBox3.SetFocus
previous = 2
TextBox3.CurLine = 2
Do
SendKeys "{RIGHT}", True
length = length + 1
Loop Until TextBox3.CurLine <> previous
TextBox3.CurLine = 2
TextBox3.SelLength = length
TextBox2.Text = TextBox3.SelText
End Sub

fwsw1986 发表于 2011-1-30 11:20:53

将上面的代码放入“提取”按键的单击事件里面，为什么会将第三行及其以下行的字符都抓取出来了？能否实现从上到下一行一行抓取字符呢

chmenf087 发表于 2011-1-30 12:31:25

不会吧亲测可用啊，最好贴个图出来

chmenf087 发表于 2011-1-30 12:32:28

不会吧亲测可用啊，最好贴个图出来

fwsw1986 发表于 2011-1-30 13:00:57

能否实现从上到下一行一行抓取字符呢

chmenf087 发表于 2011-1-30 15:34:02

道理一样仅需加一句len(textbox3.text)来判断是否到达尾部

fwsw1986 发表于 2011-1-31 09:29:05

谢谢指点感谢   

fwsw1986 发表于 2011-2-12 22:35:17

还有个问题，CAD2004 VBA中的多行文本输入时不可以使用回车来换行，只能自行换行，怎么处理

fwsw1986 发表于 2011-2-15 20:43:58

没有人回答咯是不是解决不了哦   要是的话该怎么办
页: [1]
查看完整版本: VBA中textbox控件问题