[vb 8][.net 2]un editeur html : apercu dans un ie et un mozilla embeded + ie, ff et opéra externe, ...

Télécharger le projet
Commenter

Description

Voici un petit programme sans prétention qui mets surtout en valeur un controle ActiveX : MozCtl et MozCtlx.dll, présent dans Mozilla 1.x, qui est en réalité une "copie" partielle du controle IEFRAME (ActiveX utilisé dans le WebBrowser), mais avec un randu Mozila !

Comme pour IE Tab, mon application permet, en mode appercu, de switcher rapidement entre IE et Mozilla (pas FireFox, le vrai mozilla).

J'ai introduit ici le début de la mise en forme avec MSHTML (Bold, Italic, Underline et InsertImage), mais il est clair que ca manque cruellement de diversité ;)

Mais comme c'est l'application externe qui implemente ces fonctions, mon controle permet amplement l'ajout de fonctions (par défaut il gère juste DesingMode sans bold ni rien, TextMode et Preview)

Le Design du controle est éprouvé, mais on peut sans doute faire mieux...

Vous pouvez obtenir aussi :
- Source
- Source générée
- Propriétés du document (Par défaut dans IE + Fait maison pour Mozilla)
- ...

Source / Exemple : 


Public Class MainForm

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.HtmlEditor1.HtmlText = "<html><head><title></title></head><body></body></html>"
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Dim OFD As New OpenFileDialog()
        OFD.Title = "Choisissez le fichier à ouvrir"
        OFD.CheckFileExists = True
        OFD.CheckPathExists = True
        If OFD.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then
            Me.HtmlEditor1.HtmlText = My.Computer.FileSystem.ReadAllText(OFD.FileName)
        End If
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        Me.HtmlEditor1.DomDocument.execCommand("Bold")
    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        Me.HtmlEditor1.DomDocument.execCommand("Italic")
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        Me.HtmlEditor1.DomDocument.execCommand("Underline")
    End Sub

    Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
        Me.HtmlEditor1.DomDocument.execCommand("InsertImage", True)
    End Sub

End Class

Conclusion :


Vous aurez sans doute besoin d'installer le composant ActiveX MozCtl avant de pouvoir utiliser le programme.
L'installateur se trouve à l'adresse suivante : http://www.iol.ie/~locka/mozilla/MozillaControl177.exe

Fremy
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (FREMYCOMPANY)