vb.net 教程 12-6 webbrowser 文本编辑器 2

红太狼 2022-09-11 09:21 139阅读 0赞

编辑使用到的代码：

'拷贝

Private Sub tsbCopy\_Click(sender As Object, e As EventArgs) Handles tsbCopy.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_TEXT\_COPY, False, "")

End Sub

'粘贴

Private Sub tsbPaste\_Click(sender As Object, e As EventArgs) Handles tsbPaste.Click

' wbBlog.Document.ExecCommand(HTML\_COMMAND\_TEXT\_PASTE, False, "")

wbBlog.Focus()

SendKeys.Send("^v")

End Sub

注意：粘贴命令Paste似乎没有作用，这里用了直接发送键盘命令粘贴的方法的方法。

'粗体

Private Sub tsbBold\_Click(sender As Object, e As EventArgs) Handles tsbBold.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_BOLD, False, "")

End Sub

'斜体

Private Sub tsbItalic\_Click(sender As Object, e As EventArgs) Handles tsbItalic.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_ITALIC, False, "")

End Sub

'下划线

Private Sub tsbUnderline\_Click(sender As Object, e As EventArgs) Handles tsbUnderline.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_UNDERLINE, False, "")

End Sub

'左对齐

Private Sub tsbLeft\_Click(sender As Object, e As EventArgs) Handles tsbLeft.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_JUSTIFY\_LEFT, False, "")

End Sub

'中间对齐

Private Sub tsbCenter\_Click(sender As Object, e As EventArgs) Handles tsbCenter.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_JUSTIFY\_CENTER, False, "")

End Sub

'右对齐

Private Sub tsbRight\_Click(sender As Object, e As EventArgs) Handles tsbRight.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_JUSTIFY\_RIGHT, False, "")

End Sub

'两端对齐

Private Sub tsbJustifyFull\_Click(sender As Object, e As EventArgs) Handles tsbJustifyFull.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_JUSTIFY\_FULL, False, "")

End Sub

'剪切

Private Sub tsbCut\_Click(sender As Object, e As EventArgs) Handles tsbCut.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_TEXT\_CUT, False, "")

End Sub

'撤销

Private Sub tsbUndo\_Click(sender As Object, e As EventArgs) Handles tsbUndo.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_TEXT\_UNDO, False, "")

End Sub

'重做

Private Sub tsbRedo\_Click(sender As Object, e As EventArgs) Handles tsbRedo.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_TEXT\_REDO, False, "")

End Sub

'清除样式

Private Sub tsbClear\_Click(sender As Object, e As EventArgs) Handles tsbClear.Click

wbBlog.Document.ExecCommand(HTML\_COMMAND\_REMOVE\_FORMAT, False, "")

End Sub

'修改字体

Private Sub tscFont\_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscFont.SelectedIndexChanged

wbBlog.Document.ExecCommand(HTML\_COMMAND\_FONT\_NAME, False, tscFont.Text)

End Sub

'修改字号

Private Sub tscFontSize\_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscFontSize.SelectedIndexChanged

wbBlog.Document.ExecCommand(HTML\_COMMAND\_FONT\_SIZE, False, tscFontSize.SelectedIndex + 1)

End Sub

'字体颜色

Private Sub tsbFontColor\_Click(sender As Object, e As EventArgs) Handles tsbFontColor.Click

Dim fontcolor As Color

If cdColor.ShowDialog() = DialogResult.OK Then

fontcolor = cdColor.Color

Else

Exit Sub

End If

wbBlog.Document.ExecCommand(HTML\_COMMAND\_FORE\_COLOR, False, System.Drawing.ColorTranslator.ToHtml(fontcolor))

End Sub

'背景颜色

Private Sub tsbBackColor\_Click(sender As Object, e As EventArgs) Handles tsbBackColor.Click

Dim bgcolor As Color

If cdColor.ShowDialog() = DialogResult.OK Then

bgcolor = cdColor.Color

Else

Exit Sub

End If

wbBlog.Document.BackColor = bgcolor

End Sub

注意：ExecCommand命令BackColor修改的是文字背后的颜色，而不是我们希望的整个网页的背景色，这里直接修改WebBrowser.Document.BackColor

'插入图片

Private Sub tsbImage\_Click(sender As Object, e As EventArgs) Handles tsbImage.Click

Dim imgpath As String

If ofDialog.ShowDialog = DialogResult.OK Then

imgpath = ofDialog.FileName

Else

Exit Sub

End If

wbBlog.Document.ExecCommand(HTML\_COMMAND\_INSERT\_IMAGE, False, imgpath)

End Sub

运行效果：

![Center][]

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参[vb.net教程][vb.net]目录

[Center]: /images/20220828/db98a35ca21d427ea8134c6c22c51609.png
[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/

vb.net 教程 12-6 webbrowser 文本编辑器 2

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关富文本编辑器 VUE-QUILL-EDITOR 使用教程

相关 vim 编辑器使用教程（2）

相关 VUE3.0 富文本编辑器使用教程

相关 ckeditor富文本编辑器(Django 3.2)

相关 vb.net 教程 12-6 webbrowser 文本编辑器 2

相关 vb.net 教程 12-6 webbrowser 文本编辑器 1

相关 vb.net 教程 12-1 WebBrowser 2

相关《文本编辑器UEditor》

相关文本编辑器Vim

相关 Vim 文本编辑器