Guten Abend, Com.
Ich habe ein Problem.
Ich progge einen HTML-Editor in VB 2010 mit dem TextEditor Control von DigitalRune.
Wenn ich nun folgenden Code schreibe:
dann kommt ein Assertionsfehler... Aber wo muss ich hier was auf "True" setzen?
Wenn ich das oben bei txt1 und txt2 durch was anderes kürzeres wie: <sup> und </sup> ersetze geht es ohne Probleme.
Bitte um Hilfe, denn ich bin verwirrt!
Grüße. programmer71
Ich habe ein Problem.
Ich progge einen HTML-Editor in VB 2010 mit dem TextEditor Control von DigitalRune.
Wenn ich nun folgenden Code schreibe:
VB.NET-Quellcode
- If Not TextEditorControl1.ActiveTextAreaControl.TextArea.SelectionManager.SelectedText = "" Then
- Dim p1 As Document.TextLocation
- Dim p2 As Document.TextLocation
- Dim txt1 As String = "<div align=""left"">"
- Dim txt2 As String = "</div>"
- For Each selection As ISelection In TextEditorControl1.ActiveTextAreaControl.TextArea.SelectionManager.Selections
- p1 = selection.StartPosition
- p2 = selection.EndPosition
- Next
- p1.X += txt1.Length
- p2.X += txt2.Length - 1
- Dim txt As String = txt1 & TextEditorControl1.ActiveTextAreaControl.TextArea.SelectionManager.SelectedText & txt2
- TextEditorControl1.ActiveTextAreaControl.TextArea.SelectionManager.RemoveSelectedText()
- TextEditorControl1.ActiveTextAreaControl.TextArea.InsertString(txt)
- TextEditorControl1.ActiveTextAreaControl.TextArea.SelectionManager.SetSelection(New Selection.DefaultSelection(TextEditorControl1.Document, p1, p2))
- Else
- TextEditorControl1.ActiveTextAreaControl.TextArea.InsertString("<div align=""left""></div>")
- End If
dann kommt ein Assertionsfehler... Aber wo muss ich hier was auf "True" setzen?
Wenn ich das oben bei txt1 und txt2 durch was anderes kürzeres wie: <sup> und </sup> ersetze geht es ohne Probleme.
Bitte um Hilfe, denn ich bin verwirrt!
Grüße. programmer71
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „programmer71“ ()