Dim tbx As Winform.TextBox = e.Form.Controls("TextBox1")
‘tbx.Text = ClipBoard.GetText '不能保持原文本的换行状态
tbx.Select '***没有此句，粘贴文本后，再点击文本框，文本会消失
tbx.Paste '能够保持原文本的换行状态
代码编辑器中，文本为空时，“查找替换”按钮不能打开窗口。
“查找替换”窗口打开后，如果代码编辑器中的选定文本为空，则“内容”文本框中的文本是全部文本，否则是选定文本。
“查找替换”窗口中的面板可以拖放到不同位置，以方便操作。
点击“确认替换”按钮后，代码编辑器中的文本相应部分将被“内容”中的文本替换；直接关闭窗口，将不替换。
“范围”文本框中有文本时，其文本必须包含“查找”文本框中的文本。此时如果“内容”文本框中存在“范围”文本框中的文本，将查找或替换“内容”文本框中符合这个条件的文本，其他部分即使包含“查找”文本框中的文本，也会忽略。
查找和替换，都是从“内容”文本框的当前光标开始，所以可先点击“内容”文本框，确定开始位置。
点击【查找】按钮，在“内容”文本框中查找并选定，再次点击【查找】按钮，查找下一个相同的文本并选定，直到最后再从头开始。
在“替换”文本框中输入要替换的文本，点击【替换】按钮，将“查找”文本替换为“替换”文本并选定，再次点击【替换】按钮，替换下一个“查找”文本并选定，直到全部替换完毕。
边查找边替换：查找到合适位置的文本，如果需要替换，就点击替换。
点击【全部替换】按钮，将“内容”文本框中的“查找”文本全部替换为“替换”文本。
以下内容只有回复后才可以浏览
[此贴子已经被作者于2015/12/2 14:59:33编辑过]
加好友 
发短信
Post By：2015/12/1 10:23:00 [显示全部帖子]
