[砖头] COLEN 及其搜索工具下载（更新）
- 主题发起人 ineedgerf
- 时间
回复：[砖头] COLEN 及其搜索工具下载（更新）
原来是薛前辈 ... 您不妨写本书 ... 把有关语料库的计算机技术汇集一下 ... 这是很有意义的事情 ... 因为从所谓“技术恐惧症”的角度讲，技术的确是一个重要的层面 ... 据我的感觉（只是一种感觉）研究语言或者教授语言的人，在计算机应用方面从整体上来看，确实存在着某些难以逾越的障碍，其中包括“不为”与“难为”两方面 ...
关于技术，我抖胆提点关于您制作的Colen检索工具提点建议，是一种在WebBrowser中即时显示HTML格式文本的方法，这样无须生成一张网页再行显示：我用VB.net代码来粗略表示一下：（不过您对此也许早已了如指掌了），我的计算机染毒，所以不便上传代码...
Imports mshtml
'引用Microsoft.mshtml
Public Class Form1
Inherits System.Windows.Forms.Form
Dim WEBDOC As HTMLDocument
'定义一个HTMLDocument对象
---------------------------------------------------------------------
---------------------------------------------------------------------
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxWebBrowser1.Navigate("ABOUT:BLANK")
'触发浏览器
End Sub
---------------------------------------------------------------------
Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles AxWebBrowser1.DocumentComplete
WEBDOC = AxWebBrowser1.Document
'在浏览器DocumentComplete事件被触发后把浏览器的Document对象赋予WEBDOC，之后就可以对WEBDOC实施操作了。
End Sub
---------------------------------------------------------------------
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
If Not WEBDOC Is Nothing Then
WEBDOC.body.insertAdjacentHTML("beforeend", TextBox1.Text)
'应用 HTMLDocument.body.insertAdjacentHTML方法在浏览器中插入HTML字符串,
'比如 "<p>context <I><u>keyword</u></I> context</p>"
End If
End Sub
---------------------------------------------------------------------
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
AxWebBrowser1.Navigate("ABOUT:BLANK")
'刷新浏览器
End Sub
End Class
原来是薛前辈 ... 您不妨写本书 ... 把有关语料库的计算机技术汇集一下 ... 这是很有意义的事情 ... 因为从所谓“技术恐惧症”的角度讲，技术的确是一个重要的层面 ... 据我的感觉（只是一种感觉）研究语言或者教授语言的人，在计算机应用方面从整体上来看，确实存在着某些难以逾越的障碍，其中包括“不为”与“难为”两方面 ...
关于技术，我抖胆提点关于您制作的Colen检索工具提点建议，是一种在WebBrowser中即时显示HTML格式文本的方法，这样无须生成一张网页再行显示：我用VB.net代码来粗略表示一下：（不过您对此也许早已了如指掌了），我的计算机染毒，所以不便上传代码...
Imports mshtml
'引用Microsoft.mshtml
Public Class Form1
Inherits System.Windows.Forms.Form
Dim WEBDOC As HTMLDocument
'定义一个HTMLDocument对象
---------------------------------------------------------------------
---------------------------------------------------------------------
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxWebBrowser1.Navigate("ABOUT:BLANK")
'触发浏览器
End Sub
---------------------------------------------------------------------
Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles AxWebBrowser1.DocumentComplete
WEBDOC = AxWebBrowser1.Document
'在浏览器DocumentComplete事件被触发后把浏览器的Document对象赋予WEBDOC，之后就可以对WEBDOC实施操作了。
End Sub
---------------------------------------------------------------------
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
If Not WEBDOC Is Nothing Then
WEBDOC.body.insertAdjacentHTML("beforeend", TextBox1.Text)
'应用 HTMLDocument.body.insertAdjacentHTML方法在浏览器中插入HTML字符串,
'比如 "<p>context <I><u>keyword</u></I> context</p>"
End If
End Sub
---------------------------------------------------------------------
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
AxWebBrowser1.Navigate("ABOUT:BLANK")
'刷新浏览器
End Sub
End Class
