vb复制网页上文本内容到剪切板（多行），然后粘贴到文本框中自动变成不分行的

MultiLine 是编辑多行文本，true可多行文本，false不可多行文本，设置一下就好了

最简单的方法是用vb内置的字符串替换函数 Replace

Replace(expression, find, replacewith[, start[, count[, compare]]])

把text1内容中的换行符（vbLf）和回车符（vbCr）

Text1.Text = Replace(Text1.Text, vbLf, "")
Text1.Text = Replace(Text1.Text, vbCr, "")

即可，亲测成功请采纳

tems = Clipboard.GetText

text1.text=replace(tems,vbcrlf," ")

13924918218 :vb中怎样把文字复制到剪贴板中???
谢伏梁4736 :答：Private Sub Command1_Click()Clipboard.SetText Text1.Text End Sub 附带赠送粘贴剪贴板内容到文本框的代码：Private Sub Command2_Click()Text1.SelText = Clipboard.GetText End Sub

13924918218 :vba复制TXT到剪贴板的代码
谢伏梁4736 :答：Sub 将txt文件内容复制到剪贴板()Pn = "d:\wy.txt" 'txt文件名及路径Shell "notepad.exe " & Pn, 1 '用记事本打开文件'Application.Wait Now + TimeValue("00:00:01") '暂停1秒等待文件打开完毕（大文件用）SendKeys "^a", True '全选文本SendKeys "^c", True '复制到剪贴板SendKeys ...

13924918218 :用VB实现复制粘贴
谢伏梁4736 :答：VB提供了对象Clipboard完成剪贴板的操作 将文本复制到剪贴板 Clipboard.Clear Clipboard.SetText "text"将bmp图片复制到剪贴板 Clipboard.Clear Clipboard.SetData LoadPicture("a.bmp")将剪贴板中文本取到 变量temp中 Dim temp As String If Clipboard.GetFormat(CF_TEXT)Then Temp = Clipboard.GetText(C...

13924918218 :VB里面的Text控件怎么样弄复制和粘贴?求范例和代码!
谢伏梁4736 :答：唉...楼上的两位一看就是没实践经验的...在调用 Clipboard.SetText 之前,一定要用 Clipboard.Clear 来清除之前剪贴板里面的内容,否则无论你怎么SetText都复制不进去...一楼的代码改成这样就OK了 复制到剪贴板 Private Sub Command1_Click()Clipboard.Clear '<===这句是必要的..否则,如果剪贴板...

13924918218 :如何用VB实现粘贴(ctrl+v)的功能
谢伏梁4736 :答：我用一个比较AO的方法，嘻嘻，不过很有用我觉得。SendKeys "^v"不过这个代码放到按钮上有点问题，Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)SendKeys "^v"这样就OK了 关键在于你要给谁用就在SendKeys "^v"前，设置谁是焦点，因为这个代码是模拟键盘ctrl+v 。

13924918218 :VB/BAT中复制文件到剪贴板的操作
谢伏梁4736 :答：例如把文件 "D:\新建文件夹\a.png" 复制到剪贴板。XP系统可用的VB代码：CreateObject("Shell.Application").NameSpace("D:\新建文件夹").ParseName("a.png").InvokeVerb "复制(&C)"XP和win7通用的VB代码：For Each v In CreateObject("Shell.Application").NameSpace("D:\新建文件夹")....

13924918218 :vb复制粘贴代码
谢伏梁4736 :答：复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当Text1没选中文字时,要使复制按钮Command1不可用 Private Sub Command1_Click()Clipboard.SetText Text1.SelText End Sub Private Sub Command2_Click()If Len...

13924918218 :vb 读取TXT中文字到剪切板
谢伏梁4736 :答：添加命令按钮“Command1”（复制）Private Sub Command1_Click()Clipboard.SetData LoadPicture(TXT)End Sub

13924918218 :VB问题,要求单击按钮后就自动复制了文本内容?
谢伏梁4736 :答：如果是想先用鼠标选择Text1的文本（可以部分，也可以全部），然后按Command1复制已选择的文本到剪贴板，则是：Private Sub Command1_Click()Clipboard.SetText Text1.SelText End Sub 如果是直接复制Text1的所有文本到剪贴板，则是：Private Sub Command1_Click()Clipboard.SetText Text1.Text End Sub...

13924918218 :vb剪贴板代码(包括语法) 两个文本框,三个按钮(剪切,复制,粘贴)
谢伏梁4736 :答：Private Sub Command1_Click() '剪切 Call Command2_Click Text1.Text = ""End Sub Private Sub Command2_Click() '复制 Clipboard.Clear Clipboard.SetText Text1.Text End Sub Private Sub Command3_Click() '粘贴 Text2.Text = Clipboard.GetText End Sub ...