新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
RT 在页面设计视图双击页面空白的地方,就自动添加了 双击页面空白地方就出来了!~
创新互联专注于企业全网营销推广、网站重做改版、鄂温克网站定制设计、自适应品牌网站建设、HTML5建站、商城系统网站开发、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为鄂温克等各大城市提供网站开发制作服务。
首先那些论坛中的编辑器就是网页形式的HTML编辑器是以web为基础开发的控件,而richtextbox是个windows控件。所以如果要实现你这功能,我倒是有一个思路供你参考:把复制过来的代码转换成临时文件保存,再加载到窗体中的webbrowser控件中显示出来。
For Each a In WebBrowser1.Document.getElementsByTagName("input")
Select Case a.Name
Case "txtCSRQ"
Text1.Text = a.Value
End Select
Next
在VB6.0下用此方法可以得到value的值 1993-05-10,VB.net的话没用过,转换一下应该可以的。
希望可以帮到你,满意请采纳,有问题请追问^_^
PublicFunctionwebCaptureContent(ByValmWebsiteUrlAsString,ByValmWebsiteTypeAsBoolean)AsString'启动一次具体的数据采集工作,返回采集到的HTML内容:要求必须输入带://的全地址数据OnErrorResumeNextDimStr_WebContentAsS
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'定义Word对象
Dim wordApp As New Word.ApplicationClass
'要转换的文件名
Dim fileName As Object = "E:\Test.doc"
'默认值
Dim miss As Object = System.Reflection.Missing.Value
'打开要转换的 DOC 文件
Dim doc As Word.Document = DirectCast(wordApp.Documents.Open(fileName, miss, miss, miss, miss, miss, _
miss, miss, miss, miss, miss, miss, _
miss, miss, miss, miss), Word.Document)
'转换后的文件名
fileName = "E:\testDoc.HTML"
'保存的文件格式
Dim saveFormat As Object = Word.WdSaveFormat.wdFormatHTML
'按文本文件保存
doc.SaveAs(fileName, saveFormat, miss, miss, miss, miss, _
miss, miss, miss, miss, miss, miss, _
miss, miss, miss, miss)
'关闭是否保存文件,这里为不保存
Dim changes As Object = False
'关闭文件
doc.Close(changes, miss, miss)
'退出 Word 应用程序
wordApp.Quit(changes, miss, miss)
End Sub