# Re: 怎么在文字方块中自动写文字？

Posted by 我依然是小呆瓜 on August 22, 1998 at 01:01:23:

In Reply to: Re: 怎么在文字方块中自动写文字？ posted by yeong huann on August 11, 1998 at 20:21:05:

: 抱歉!误会你的意思了

: 我想利用sendkeys就可以办到了

: EX:

: Private Sub Command1_Click()
: Form1.Text1.SetFocus
: SendKeys "123{enter}321{enter}1234567{enter}7654321"
: End Sub

假设 Text1.Text ="今天早上是大晴天"

把Command1_Click内加入
Text1.Text=Text1.Text+Chr(13)+Chr(10)+"可是下午是雨天"

按一下Command1后结果.."可是下午是雨天"会被加到下一行
Chr(13)+Chr(10) = Enter字元

这个方法也可以用在MsgBox......等很多地方

Follow Ups: