edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

commit

Browse Source
This commit is contained in:
m.ilhan
2024-10-01 16:32:40 +02:00
parent 76fbf96823
commit fad2055152
2987 changed files with 13801 additions and 200 deletions
Download Patch File Download Diff File Expand all files Collapse all files

415
_VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/HTMLTextBox.vb
View File

@@ -1,415 +0,0 @@
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