neue version
This commit is contained in:
ja
@@ -0,0 +1,415 @@
|
||||
Imports System
|
||||
Imports System.Collections.Generic
|
||||
Imports System.ComponentModel
|
||||
Imports System.Drawing
|
||||
Imports System.Data
|
||||
Imports System.Text
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
Namespace McDull.Windows.Forms
|
||||
<Description("Provides a user control that allows the user to edit HTML page."), ClassInterface(ClassInterfaceType.AutoDispatch)>
|
||||
Public Partial Class HTMLTextBox
|
||||
Inherits UserControl
|
||||
|
||||
Public Sub New()
|
||||
dataUpdate = 0
|
||||
InitializeComponent()
|
||||
InitializeControls()
|
||||
End Sub
|
||||
|
||||
Public Overrides Property Text As String
|
||||
Get
|
||||
Return webBrowserBody.DocumentText
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
webBrowserBody.DocumentText = value.Replace(vbCrLf, "<br>")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Images As String()
|
||||
Get
|
||||
Dim imagestmp As List(Of String) = New List(Of String)()
|
||||
|
||||
For Each element As HtmlElement In webBrowserBody.Document.Images
|
||||
Dim image As String = element.GetAttribute("src")
|
||||
|
||||
If Not imagestmp.Contains(image) Then
|
||||
imagestmp.Add(image)
|
||||
End If
|
||||
Next
|
||||
|
||||
Return imagestmp.ToArray()
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private Sub InitializeControls()
|
||||
BeginUpdate()
|
||||
|
||||
For Each family As FontFamily In FontFamily.Families
|
||||
toolStripComboBoxName.Items.Add(family.Name)
|
||||
Next
|
||||
|
||||
toolStripComboBoxSize.Items.AddRange(FontSize.All.ToArray())
|
||||
webBrowserBody.DocumentText = String.Empty
|
||||
AddHandler webBrowserBody.Document.Click, AddressOf webBrowserBody_DocumentClick
|
||||
AddHandler webBrowserBody.Document.Focusing, AddressOf webBrowserBody_DocumentFocusing
|
||||
webBrowserBody.Document.ExecCommand("EditMode", False, Nothing)
|
||||
webBrowserBody.Document.ExecCommand("LiveResize", False, Nothing)
|
||||
EndUpdate()
|
||||
End Sub
|
||||
|
||||
Private Sub RefreshToolBar()
|
||||
BeginUpdate()
|
||||
|
||||
Try
|
||||
Dim document = webBrowserBody.Document.DomDocument 'As mshtml.IHTMLDocument2 = CType(webBrowserBody.Document.DomDocument, mshtml.IHTMLDocument2)
|
||||
toolStripComboBoxName.Text = document.queryCommandValue("FontName").ToString()
|
||||
toolStripComboBoxSize.SelectedItem = FontSize.Find(CInt(document.queryCommandValue("FontSize")))
|
||||
toolStripButtonBold.Checked = document.queryCommandState("Bold")
|
||||
toolStripButtonItalic.Checked = document.queryCommandState("Italic")
|
||||
toolStripButtonUnderline.Checked = document.queryCommandState("Underline")
|
||||
toolStripButtonNumbers.Checked = document.queryCommandState("InsertOrderedList")
|
||||
toolStripButtonBullets.Checked = document.queryCommandState("InsertUnorderedList")
|
||||
toolStripButtonLeft.Checked = document.queryCommandState("JustifyLeft")
|
||||
toolStripButtonCenter.Checked = document.queryCommandState("JustifyCenter")
|
||||
toolStripButtonRight.Checked = document.queryCommandState("JustifyRight")
|
||||
toolStripButtonFull.Checked = document.queryCommandState("JustifyFull")
|
||||
Catch e As Exception
|
||||
System.Diagnostics.Debug.WriteLine(e)
|
||||
Finally
|
||||
EndUpdate()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private dataUpdate As Integer
|
||||
|
||||
Private ReadOnly Property Updating As Boolean
|
||||
Get
|
||||
Return dataUpdate<> 0
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private Sub BeginUpdate()
|
||||
dataUpdate += 1
|
||||
End Sub
|
||||
|
||||
Private Sub EndUpdate()
|
||||
dataUpdate -= 1
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripComboBoxName_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("FontName", False, toolStripComboBoxName.Text)
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripComboBoxSize_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim size As Integer = If((toolStripComboBoxSize.SelectedItem Is Nothing), 1, (TryCast(toolStripComboBoxSize.SelectedItem, FontSize)).Value)
|
||||
webBrowserBody.Document.ExecCommand("FontSize", False, size)
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonBold_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("Bold", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonItalic_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("Italic", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonUnderline_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("Underline", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonColor_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
' Dim fontcolor As Integer = CInt((CType(webBrowserBody.Document.DomDocument, mshtml.IHTMLDocument2)).queryCommandValue("ForeColor"))
|
||||
Dim dialog As ColorDialog = New ColorDialog()
|
||||
''' Cannot convert ExpressionStatementSyntax, System.ArgumentOutOfRangeException: Exception of type 'System.ArgumentOutOfRangeException' was thrown.
|
||||
''' Parameter name: op
|
||||
''' Actual value was RightShiftExpression.
|
||||
''' at ICSharpCode.CodeConverter.Util.VBUtil.GetExpressionOperatorTokenKind(SyntaxKind op)
|
||||
''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitBinaryExpression(BinaryExpressionSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.BinaryExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
|
||||
''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitBinaryExpression(BinaryExpressionSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.BinaryExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitParenthesizedExpression(ParenthesizedExpressionSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.ParenthesizedExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
|
||||
''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitParenthesizedExpression(ParenthesizedExpressionSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.ParenthesizedExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitBinaryExpression(BinaryExpressionSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.BinaryExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
|
||||
''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitBinaryExpression(BinaryExpressionSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.BinaryExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitArgument(ArgumentSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.ArgumentSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
|
||||
''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitArgument(ArgumentSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.ArgumentSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at ICSharpCode.CodeConverter.VB.NodesVisitor.<VisitArgumentList>b__99_0(ArgumentSyntax a)
|
||||
''' at System.Linq.Enumerable.WhereSelectEnumerableIterator`2.MoveNext()
|
||||
''' at Microsoft.CodeAnalysis.VisualBasic.SyntaxFactory.SeparatedList[TNode](IEnumerable`1 nodes)
|
||||
''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitArgumentList(ArgumentListSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.ArgumentListSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
|
||||
''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitArgumentList(ArgumentListSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.ArgumentListSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitInvocationExpression(InvocationExpressionSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.InvocationExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
|
||||
''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitInvocationExpression(InvocationExpressionSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.InvocationExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node)
|
||||
''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.AssignmentExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
|
||||
''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitAssignmentExpression(AssignmentExpressionSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.AssignmentExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at ICSharpCode.CodeConverter.VB.MethodBodyVisitor.ConvertSingleExpression(ExpressionSyntax node)
|
||||
''' at ICSharpCode.CodeConverter.VB.MethodBodyVisitor.VisitExpressionStatement(ExpressionStatementSyntax node)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.Syntax.ExpressionStatementSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
|
||||
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
|
||||
''' at ICSharpCode.CodeConverter.VB.CommentConvertingMethodBodyVisitor.ConvertWithTrivia(SyntaxNode node)
|
||||
''' at ICSharpCode.CodeConverter.VB.CommentConvertingMethodBodyVisitor.DefaultVisit(SyntaxNode node)
|
||||
'''
|
||||
''' Input:
|
||||
''' dialog.Color = Color.FromArgb(0xff, fontcolor & 0xff, (fontcolor >> 8) & 0xff, (fontcolor >> 16) & 0xff);
|
||||
|
||||
'''
|
||||
Dim result As DialogResult = dialog.ShowDialog()
|
||||
|
||||
If result = DialogResult.OK Then
|
||||
Dim color As String = dialog.Color.Name
|
||||
|
||||
If Not dialog.Color.IsNamedColor Then
|
||||
color = "#" & color.Remove(0, 2)
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("ForeColor", False, color)
|
||||
End If
|
||||
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonNumbers_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("InsertOrderedList", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonBullets_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("InsertUnorderedList", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonOutdent_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("Outdent", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonIndent_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("Indent", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonLeft_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("JustifyLeft", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonCenter_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("JustifyCenter", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonRight_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("JustifyRight", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonFull_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("JustifyFull", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonLine_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("InsertHorizontalRule", False, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonHyperlink_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("CreateLink", True, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub toolStripButtonPicture_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Updating Then
|
||||
Return
|
||||
End If
|
||||
|
||||
webBrowserBody.Document.ExecCommand("InsertImage", True, Nothing)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub webBrowserBody_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
|
||||
End Sub
|
||||
|
||||
Private Sub webBrowserBody_PreviewKeyDown(ByVal sender As Object, ByVal e As PreviewKeyDownEventArgs)
|
||||
If e.IsInputKey Then
|
||||
Return
|
||||
End If
|
||||
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub webBrowserBody_DocumentClick(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Sub webBrowserBody_DocumentFocusing(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
|
||||
RefreshToolBar()
|
||||
End Sub
|
||||
|
||||
Private Class FontSize
|
||||
Private Shared allFontSize As List(Of FontSize) = Nothing
|
||||
|
||||
Public Shared ReadOnly Property All As List(Of FontSize)
|
||||
Get
|
||||
|
||||
If allFontSize Is Nothing Then
|
||||
allFontSize = New List(Of FontSize)()
|
||||
allFontSize.Add(New FontSize(8, 1))
|
||||
allFontSize.Add(New FontSize(10, 2))
|
||||
allFontSize.Add(New FontSize(12, 3))
|
||||
allFontSize.Add(New FontSize(14, 4))
|
||||
allFontSize.Add(New FontSize(18, 5))
|
||||
allFontSize.Add(New FontSize(24, 6))
|
||||
allFontSize.Add(New FontSize(36, 7))
|
||||
End If
|
||||
|
||||
Return allFontSize
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Shared Function Find(ByVal value As Integer) As FontSize
|
||||
If value< 1 Then
|
||||
Return All(0)
|
||||
End If
|
||||
|
||||
If value > 7 Then
|
||||
Return All(6)
|
||||
End If
|
||||
|
||||
Return All(value - 1)
|
||||
End Function
|
||||
|
||||
Private Sub New(ByVal display As Integer, ByVal value As Integer)
|
||||
displaySize = display
|
||||
valueSize = value
|
||||
End Sub
|
||||
|
||||
Private valueSize As Integer
|
||||
|
||||
Public ReadOnly Property Value As Integer
|
||||
Get
|
||||
Return valueSize
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private displaySize As Integer
|
||||
|
||||
Public ReadOnly Property Display As Integer
|
||||
Get
|
||||
Return displaySize
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Overrides Function ToString() As String
|
||||
Return displaySize.ToString()
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Private Class ToolStripComboBoxEx
|
||||
Inherits ToolStripComboBox
|
||||
|
||||
Public Overrides Function GetPreferredSize(ByVal constrainingSize As Size) As Size
|
||||
Dim size As Size = MyBase.GetPreferredSize(constrainingSize)
|
||||
size.Width = Math.Max(Width, &H20)
|
||||
Return size
|
||||
End Function
|
||||
End Class
|
||||
End Class
|
||||
End Namespace
|
||||
Reference in New Issue
Block a user