Hi,
ich gehe davon aus, das du die Schriftfarbe des markierten Bereichs ändern möchtest.
Dafür bringt dir das Control schon Funktionen mit, kannst es zB an einen ColorPicker knüpfen, da haste dann mehr Auswahl als nur die "bekannten" Farben.
Ich habe es zB mal so gemacht :
Private Sub MyColorPicker_ColorChanged(ByVal sender As System.Object, ByVal _
e As System.EventArgs)
Dim MyCol As Long
Dim MyColor As String
MyCol = MyColorPicker.Color.ToArgb + 16777216
MyColor = "#" & MyCol.ToString("X6")
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_SETFORECOLOR, _
DHTMLEDLib.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, MyColor)
End SubIch habe allerdings hierbei noch nicht herausgefunden, warum die Farbwerte rot und blau vertauscht waren o_O .Ich habe den selbén Wert testweise einem kleinen Panel übergeben(BackColor), da wurde es richtig angezeigt, daher die Korrektur mit + 16777216
Hier noch ein paar andere Funktionen , vielleicht kannste die ja gebrauchen :
Private Sub btnMailEditBold_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnMailEditBold.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_BOLD)
End Sub
Private Sub btnMailEditItalic_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles btnMailEditItalic.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_ITALIC)
End Sub
Private Sub btnMailEditUnderline_Click(ByVal sender As System.Object, ByVal _
e As System.EventArgs) Handles btnMailEditUnderline.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_UNDERLINE)
End Sub
Private Sub btnMailEditCopy_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnMailEditCopy.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_COPY)
End Sub
Private Sub btnMailEditCut_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnMailEditCut.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_CUT)
End Sub
Private Sub btnMailEditPaste_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles btnMailEditPaste.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_PASTE)
End Sub
Private Sub btnMailEditAignLeft_Click(ByVal sender As System.Object, ByVal _
e As System.EventArgs) Handles btnMailEditAignLeft.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_JUSTIFYLEFT)
End Sub
Private Sub btnMailEditAignCenter_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnMailEditAignCenter.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_JUSTIFYCENTER)
End Sub
Private Sub btnMailEditAignJustify_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnMailEditAignRight.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_JUSTIFYRIGHT)
End Sub
Private Sub btnMailEditUndo_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnMailEditUndo.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_UNDO)
End Sub
Private Sub btnMailEditRedo_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnMailEditRedo.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_REDO)
End Sub
Private Sub btnMailEditRemoveFormat_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnMailEditRemoveFormat.Click
AxDHTMLEdit1.ExecCommand(DHTMLEDLib.DHTMLEDITCMDID.DECMD_REMOVEFORMAT)
End SubDiese Funktionen beziehen sich immer auf den markierten Bereich, wenn nichts markiert ist, ermittlet sie automatisch die aktuelle Cursosposition und den dazugehörigen Kontext.
MfG
Huppi
######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
###################################################### |
Forenübersicht Suchen Forumsregeln
Oktober 2025
Sie sind aktuell nicht angemeldet.
