COLORISATION SYNTAXIQUE DE CODE VB6 (HTML)

Signaler
Messages postés
1812
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
-
Messages postés
10
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
3 mai 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/41453-colorisation-syntaxique-de-code-vb6-html

Messages postés
10
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
3 mai 2011

Génial!!!!
J'ai eu un ptit soucis (ieframe.dll\1) venant de ie7.
D'après un post:
http://www.vbfrance.com/forum/sujet-PROBLEME-IE7-VB6-IEFRAME-DLL_655959.aspx
C'est réglé.
1 GRAND MERCI
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
il faut enregistrer dans un clipboard de format HTML
regarde le code de l'addin:

http://www.vbfrance.com/code.aspx?ID=41455

Dans ModMain.bas, tu as la fonction:

Private Sub GenerateHTMLClipboard()
Dim pData As Long
Dim nLength As Long
Dim sCode As String
sCode = moHighlighter.Convert(Clipboard.GetText)

nLength = Len(sCode)

'# On génère l'entête HTML Format
sCode = "Version:0.9" & vbNewLine & _
"StartHTML:00000097" & vbNewLine & _
"EndHTML:" & Format$(170 + nLength, "00000000") & vbNewLine & _
"StartFragment:00000134" & vbNewLine & _
"EndFragment:" & Format$(134 + nLength, "00000000") & vbNewLine & _
"<html>" & vbNewLine & _
"<!--StartFragment -->" & vbNewLine & _
sCode & vbNewLine & _
"<!--EndFragment-->" & vbNewLine & _
"</html>" & vbNewLine

'# On place notre buffer dans le presse papiers
mhData = GlobalAlloc(GMEM_MOVEABLE, Len(sCode))
If mhData Then
pData = GlobalLock(mhData)
If pData Then
CopyMemory ByVal pData, ByVal sCode, Len(sCode)
GlobalUnlock mhData
End If

OpenClipboard mhCBWindow
SetClipboardData HTML_FORMAT, mhData
CloseClipboard
End If
End Sub
Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
4
Bonjour Renfiels et à tous,
Je suis repassé sur cette source par hazard et comme à l'époque je n'avais pas su le charger j'ai recommencé, et miracle.. OK du premier coup, c'est pas qu'il est rapide je dirais plutôt que c'est immédiat !.
J'ai cependant une question, j'ai ajouté une fonction (un bouton) permettant de traiter directement le presse-papier, ca fonctionne, mais je voudrais remettre le texte modifié dans le presse-papier mais je n'y arrive pas. Pourtant c'est possible puisque quand je fait un copier/coller ca fonctionne.
Je n'ai pas d'aide sur le WebBrowser donc je ne sais pas m'aiguiller sur ce sujet.
j'ai essayer avec...
Private Sub Command1_Click()
Dim sContent As String
If Clipboard.GetFormat(vbCFText) Then
sContent = Clipboard.GetText
CcWeb.Document.body.innerHTML = moSyntax.Convert(sContent)
Clipboard.Clear
' Clipboard.SetText CcWeb.Document.body.innerHTML, vbCFText
End If
End Sub
--------------------------------------------------------------------------------

By Renfield
Mais ca va pas, Un ptit coup de main ?
Merci d'avance.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
non reproduit chez moi....

les commentaires sont recherchés en premier. par la suite, ils sont carrément enlevés de la chaine de départ, évitant que tout ce qu'ils contiennent soit trouvé par la recherche des chaines ou des mots clés...

testé avec :

Next
'Sinon redîmensionner quand besoin est
' ma "chaîne" est en commentaire
ReDim Preserve Inputs(UBound(Inputs) + 1) '# celle-ci "aussi" !
Inputs(UBound(Inputs)) = &O14
Afficher les 34 commentaires