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

偏执的太偏执、 2022-09-11 09:21 152阅读 0赞

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

现在不少网页的blog都是利用了将网页设置为编辑模式实现。

本节探讨使用WebBrowser做一个本地文本编辑器。

使用到的知识包括：Vb.net、Javascript、Html

由于之前已经对WebBrowser控件有了很好的认识，实际本节更多的是调用Document.ExecCommand方法。

设计界面：

![Center][]

使用到的常量：

Private Const HTML\_COMMAND\_BOLD = "Bold"                       '加粗

Private Const HTML\_COMMAND\_UNDERLINE = "Underline"             '下划线

Private Const HTML\_COMMAND\_ITALIC = "Italic"                   '斜体

Private Const HTML\_COMMAND\_SUBSCRIPT = "Subscript"             '下标

Private Const HTML\_COMMAND\_SUPERSCRIPT = "Superscript"         '上标

Private Const HTML\_COMMAND\_STRIKE\_THROUGH = "StrikeThrough"    '删除线

Private Const HTML\_COMMAND\_FONT\_NAME = "FontName"              '字体

Private Const HTML\_COMMAND\_FONT\_SIZE = "FontSize"              '字号

Private Const HTML\_COMMAND\_FORE\_COLOR = "ForeColor"            '字体前景色

Private Const HTML\_COMMAND\_BACK\_COLOR = "BackColor"            '字体背景色

Private Const HTML\_COMMAND\_INSERT\_FORMAT\_BLOCK = "FormatBlock" '加粗

Private Const HTML\_COMMAND\_REMOVE\_FORMAT = "RemoveFormat"      '清除样式

Private Const HTML\_COMMAND\_JUSTIFY\_LEFT = "JustifyLeft"        '文本左对齐

Private Const HTML\_COMMAND\_JUSTIFY\_CENTER = "JustifyCenter"    '文本中间对齐

Private Const HTML\_COMMAND\_JUSTIFY\_RIGHT = "JustifyRight"      '文本右对齐

Private Const HTML\_COMMAND\_JUSTIFY\_FULL = "JustifyFull"        '文本两端对齐

Private Const HTML\_COMMAND\_INDENT = "Indent"                   '增大缩进量

Private Const HTML\_COMMAND\_OUTDENT = "Outdent"                 '减小缩进量

Private Const HTML\_COMMAND\_INSERT\_LINE = "InsertHorizontalRule" '插入分割符

Private Const HTML\_COMMAND\_INSERT\_LIST = "Insert\{0\}List"         ' replace with (Un)Ordered 插入项目符号或项目编号

Private Const HTML\_COMMAND\_INSERT\_IMAGE = "InsertImage"         '插入图像

Private Const HTML\_COMMAND\_INSERT\_LINK = "CreateLink"           '插入链接

Private Const HTML\_COMMAND\_REMOVE\_LINK = "Unlink"               '移除链接

Private Const HTML\_COMMAND\_TEXT\_CUT = "Cut"                     '剪切

Private Const HTML\_COMMAND\_TEXT\_COPY = "Copy"                   '复制

Private Const HTML\_COMMAND\_TEXT\_PASTE = "Paste"                 '粘贴

Private Const HTML\_COMMAND\_TEXT\_DELETE = "Delete"               '删除

Private Const HTML\_COMMAND\_TEXT\_UNDO = "Undo"                   '撤销

Private Const HTML\_COMMAND\_TEXT\_REDO = "Redo"                   '恢复

Private Const HTML\_COMMAND\_TEXT\_SELECT\_ALL = "SelectAll"        '全选

Private Const HTML\_COMMAND\_TEXT\_UNSELECT = "Unselect"           '取消选择

Private Const HTML\_COMMAND\_TEXT\_PRINT = "Print"                 ' 打印

Private Const HTML\_COMMAND\_EDITMODE = "EditMode"                ' 编辑模式

Private Const HTML\_COMMAND\_BROWSEMODE = "BrowseMode"            ' 浏览模式

Private Const HTML\_COMMAND\_OVERWRITE = "OverWrite"             '转换插入、覆写模式

窗体载入时设置字体和字号

Private Sub frmBlog\_Load(sender As Object, e As EventArgs) Handles Me.Load

Dim linkhtm As String = "about:blank" 'Application.StartupPath & "\\view.htm"

wbBlog.Url = New Uri(linkhtm)

wbBlog.Document.ExecCommand("EditMode", False, "")          '设置为可编辑模式

Call setFontName()

Call setFontSize()

End Sub

' 设置字体

Private Sub setFontName()

Dim computerFont As New System.Drawing.Text.InstalledFontCollection

For Each font\_family As FontFamily In computerFont.Families

If font\_family.IsStyleAvailable(FontStyle.Regular) Then

tscFont.Items.Add(font\_family.Name)

End If

Next

tscFont.SelectedIndex = 0

End Sub

'设置字号

Private Sub setFontSize()

tscFontSize.Items.Add("一号字")

tscFontSize.Items.Add("二号字")

tscFontSize.Items.Add("三号字")

tscFontSize.Items.Add("四号字")

tscFontSize.Items.Add("五号字")

tscFontSize.Items.Add("六号字")

tscFontSize.Items.Add("七号字")

tscFontSize.SelectedIndex = 0

End Sub

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[Center]: /images/20220828/000c047d714743938fb8695e754eb6b0.png

发表评论取消回复

表情：

评论列表（有 0 条评论，152人围观）

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

相关阅读

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

一.基础用法 1、NPM 导入 VUE-QUILL-EDITOR npm install vue-quill-editor --save 2、引入 VU

以你之姓@/ 2024年03月22日 16:25/ 0 赞/ 99 阅读

相关 Vim 编辑器使用教程（1）

笔记【1】熟悉vi的三种模式及模式切换命令（1） vi是Linux中最基础的编辑器。但vi编辑器在系统管理、服务器配置工作中永远都是无可替代的。（2） vi有一

我就是我/ 2022年11月29日 03:11/ 0 赞/ 165 阅读

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

> 前端 VUE3.0 > 后端 .net 在下载使用的过程中按照网上的一些教程方法直接引入是没有问题的但是最终会出现图片无法选择上传的问题所以这个笔记还是重点讲

淩亂°似流年/ 2022年10月13日 05:15/ 0 赞/ 324 阅读

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。编辑使用到的代码： '拷贝 Private Sub

红太狼/ 2022年09月11日 09:21/ 0 赞/ 139 阅读

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。现在不少网页的blog都是利用了将网页设置为编辑模式实现。本节探讨

偏执的太偏执、/ 2022年09月11日 09:21/ 0 赞/ 153 阅读

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。上一节学习了webBrowser的简单操作，可以做一个类似于IE的简

淩亂°似流年/ 2022年09月11日 07:26/ 0 赞/ 128 阅读

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。 WebBrowser控件类似于IE的文档界面，实际ie也是使用的这个

短命女/ 2022年09月11日 07:25/ 0 赞/ 192 阅读

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。上一节讲解了WebBrowser控件的一些基本知识，本节将做一个简单

Bertha 。/ 2022年09月11日 07:25/ 0 赞/ 122 阅读

相关 Vim 文本编辑器

VI/VIM编辑器 1. 命令`vim`可以启动VIM编辑器。 2. 一般我们使用“`vim+目标文件路径`”的形式使用VIM 如果文件存在，则vim打开

「爱情、让人受尽委屈。」/ 2021年09月16日 08:46/ 0 赞/ 552 阅读

相关命令工具 -（1）Vim 文本编辑器学习

关注「开源Linux」，选择“设为星标” 回复「学习」，有我为您特别筛选的学习资料~ 前言提起 Linux，大家都听说过这句话：`Linux 一切皆文件`。

叁歲伎倆/ 2021年07月26日 12:39/ 0 赞/ 456 阅读