VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb.net 教程 12-6 webbrowser 文本编辑器 2

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
编辑使用到的代码:
 
 
 
    '拷贝
    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
 
运行效果:
 
 
 
 
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
 
学习更多vb.net知识,请参看 vb.net 教程 目录
 
 
 
 
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/uruseibest/article/details/77622920

相关教程