Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 09:28:30

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : [DéPLACé VB.NET -> VBA] APPEL DE FONCTION DANS UNE MACRO par louvierseb

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

+ de logiciels à télécharger

1 465 026 membres
74 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 056 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

COLORISATION SYNTAXIQUE DE CODE VB6 (HTML)

Information sur la source

Catégorie :Texte Classé sous : html, vb6, syntaxe, colorier, highlight Niveau : Débutant Date de création : 12/02/2007 Date de mise à jour : 03/07/2007 09:59:14 Vu / téléchargé: 6 356 / 709

Auteur : Renfield

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

9,38 / 10

Commentaire sur cette source (33)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Bonjour,

Je sais que certaines sources existent sur le site, pour le faire...
mais je voulais faire ma version, que je puisse facilement intégrer dans mes projets.
elle colorie :
- les chaines de caractères
- les numériques
- les numéros des lignes
- les étiquettes (destinations des GoTo)
- les commentaires
- les mots clés
- une liste de mos clé 'perso'

Il s'agit d'un module de classe qui enrichit un code source VB de balises de formatage HTML.

Le but ? pouvoir exporter du code VB6 coloré, vers le presse papier, des fichiers de documentation, etc.

J'ai tenté de faire quelque chose de rapide... et de personnalisable

Le zip inclu une feuille de test, qui permet de vous montrer la mise en oeuvre de la classe CSyntaxHighlighter.
le but de cette feuille n'est nullement d'être un visionneur de code source... c'est juste, une DEMO ^^

Source

Public Sub ColorizeFile(ByRef vsFilePath As String)
Dim ConvertVB6ToHTML As String
Dim sContent As String
Dim iFile As Integer
'# Pas top de mettre cela ici, coté perfs...
'# c'est juste pour que les changements du fichier custom.txt
'# soit pris en compte au prochain coloriage.
moSyntax.AddCustomKeywords App.Path & "\custom.txt"
iFile = FreeFile
Open vsFilePath For Input Lock Write As #iFile
sContent = Input(LOF(iFile), #iFile)
Close #iFile
CcWeb.Document.body.innerHTML = moSyntax.Convert(sContent)
End Sub

Public Sub ColorizeFile(ByRef vsFilePath As String)
Dim ConvertVB6ToHTML As String
Dim sContent As String
Dim iFile As Integer

    '# Pas top de mettre cela ici, coté perfs...
    '# c'est juste pour que les changements du fichier custom.txt
    '# soit pris en compte au prochain coloriage.
    moSyntax.AddCustomKeywords App.Path & "\custom.txt"

    iFile = FreeFile
    Open vsFilePath For Input Lock Write As #iFile
        sContent = Input(LOF(iFile), #iFile)
    Close #iFile

    CcWeb.Document.body.innerHTML = moSyntax.Convert(sContent)
End Sub

Conclusion

J'ai tenté d'être exhaustif, merci de me signaler les syntaxes / mots clé qui ne seraient pas colorés...
ca ne concerne pas le fichier Custom qui n'est là qu'a titre d'exemple... libre a vous de l'enrichir comme bon vous semblera.

voici comment cela fonctionne :

le but est d'établir une cartographie du code a convertir.
on isole les commentaires, les chaines de caractère, etc.

ensuite, on parcoure le tableau qui sert pour la carte, et on ajoute les balises HTML adéquates...

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

CStringBuffer.cls 1 607 octets
CSyntaxHighlighter.cls 30 959 octets
custom.txt 249 octets
FrmMain.frm 4 099 octets
Projet1.vbp 975 octets
screen.jpg 82 173 octets

Télécharger le zip

Historique

12 février 2007 15:40:18 :: gestion des caractères accentués
12 février 2007 16:09:48 :: gestion du esset allemand
12 février 2007 16:11:47 :: gestion du esset allemand
12 février 2007 16:15:09 :: Ajout des mots clé Implements, Event et RaiseEvent
13 février 2007 00:51:53 :: Ajout de mots-clés (merci Violent_Ken) Encore plus rapide : modification du remplacement des caractères spéciaux, mais surtout un test dans la fonction ColorizeWords
13 février 2007 06:46:50 :: description
13 février 2007 13:52:39 :: Ajout des mots Stop et Local (merci Violent_Ken) J'ai également ajouté deux propriétés a la classe (HTML_Header et HTML_Footer)
14 février 2007 09:25:13 :: soucis d'upload
14 février 2007 11:20:12 :: les mots clés se trouvent dans le fichier Keywords.txt
14 février 2007 14:18:54 :: Ajout de commentaires dans le code. impact des modifications due aux ajustement pour le Forum de VbFrance
20 février 2007 15:27:36 :: J'ai remanié pas mal l'algorithme général, et j'ai ajouté quelques options (colorier les nombres, les labels, séparer les procédures...)
12 mars 2007 09:11:51 :: gestion des éléments d'enumerations entre crochets
12 mars 2007 09:17:45 :: soucis d'upload
12 mars 2007 09:37:12 :: Upload es tu là ?
21 mars 2007 15:45:47 :: bug si le dernier element est un numérique (bien vu, jrivet)
03 avril 2007 14:38:55 :: gestion du î (et de quelques autre caractères accentués). Merci jrivet
03 juillet 2007 09:59:14 :: colorisation des numéros de lignes

Sources du même auteur

TRI DES ITEMS DE LISTVIEW (DATE, NUMÉRIQUE OU PERSO)

INFOS WMI DES DISQUES DURS (LIEN LECTEUR LOGIQUE / LECTEUR P...

GENERATEUR DE DICTIONNAIRES DE CLÉS WPA POUR LIVEBOX

ISOLATOR - GÉNÉREZ LES FICHIERS .MANIFEST POUR VOS EXE, DLL ...

CONVERTIR VOS VIDÉOS POUR TOMTOM

Toutes les sources de Renfield

Sources de la même categorie

TEXTSTYLE, EDITOR HTML par jupevi

RACCOURCIR UN CHEMIN (PATH) OU URL INTERNET par Tioneb

EDITEUR DE TEXTE par ali5

SMS GENERATOR par jack

COMPARAISON DE DOSSIERS, FICHIERS ET TEXTE par RicoNuch

Toutes les sources de la catégorie Texte

Sources en rapport avec celle ci

TEXTSTYLE, EDITOR HTML par jupevi

VB6-INNO-WIZARD par cdbi

WIIMOTE AVEC VB6 par RATHEONS

CALENDMULTI par philbar71

TRADUCTEUR VB6.VBP EN VB5.VBP par joro

Commentaires et avis

Commentaire de violent_ken le 12/02/2007 19:37:10

La vitesse est impressionante...

Sinon, pour compléter la liste des mots-clé, il me semble qu'il manque :

Like
Is
AddressOf
WithEvents
Global
RSet
Step
Stop
TypeOf

et un opérateur logique encore moins répandu que Like et donc je me rappelle plus le nom (p'tet que çà commence par un N...?)

@+ et super code... je garde pour poster des msg dans le forum ;)

Commentaire de Renfield le 12/02/2007 22:17:17 administrateur CS

ravi que la vitesse te convienne (ca semble etre le cas ^^)

oui, je me souviens d'un opérateur logique (étrange), mais me rappelle plus ^^

merci d'avoir autant complété la liste :p

j'ai un code pret a poster (sauf qu'une fois compilé, ca pose des soucis :S) qui devrait te plaire, violent_ken

(nb: Global est à oublier... Public est là)

Commentaire de drissou le 13/02/2007 09:01:14

Super Renfield !
comme d'habitude efficace..

Drissou

Commentaire de Renfield le 13/02/2007 09:44:46 administrateur CS

Merci Drissou ^^

ken> je suis nul, j'ai oublié de mettre 'Stop' tu me l'avais donné sur un plateau, pourtant :S j'uploaderais a l'occasion

J'ai pu déposer mon Addin : http://www.vbfrance.com/code.aspx?ID=41455

il permet de coloriser a la volée ce que vous copiez/coupez depuis l'IDE de VB6...

Commentaire de FENETRES le 13/02/2007 10:09:52

Excellent... commme souvent !
Par contre, un menu d'export serait fonctionnellement préférable au presse papiers.

Commentaire de Renfield le 13/02/2007 11:27:16 administrateur CS

certes... m'enfin, la FrmMain n'est qu'une basique illustration du fonctionnement de la colorisation...

mais il est vrai que l'on pourrait avoir une sorte de visionneur de sources

Commentaire de violent_ken le 13/02/2007 13:24:47

Je vais regarder l'addin de ce pas ;)
@+

Commentaire de violent_ken le 13/02/2007 13:47:04

Et il manque aussi le mot clé "Local" ^^
(on local error...

@+

Commentaire de violent_ken le 13/02/2007 13:48:49

J'ai retrouvé le mystérieux opérateur : "Neg" ;)

Et désolé pour les trois posts à la suite...
@+

Commentaire de Sechaud le 13/02/2007 18:55:39

Super Renfield, je vais l'incorporer à mon éditeur de texte.

Commentaire de Renfield le 14/02/2007 11:21:45 administrateur CS

merci tout le monde ^^

énième mise a jour...
les mots clés sont dans un fichier externe

Commentaire de Renfield le 20/02/2007 15:32:11 administrateur CS

MISE A JOUR IMPORTANTE EFFECTUEE

code remanié
les nombres sont coloriés
les labels aussi
possibilité d'utiliser une liste de mots clé perso
les procédures sont séparées

NB. supprimez vos fichier keywords.txt, en cas de mise a jour (quelques retardataires ont fait leur apparition)

Commentaire de Turnoff le 21/02/2007 17:14:52

Bonjour Renfield...
J'ai téléchargé le zip hier et à l'instant la version remaniée...
Lorsque j'ouvre le projet depuis VB6pro version 8176(1998); j'obtiens le message d'erreur me demandant si je doit poursuivre l'ouverture car le fichier c:/windows\system32\ieframe.dll n'a pu être trouvé!
Ce fichier existe bien; (IE7 version 7.0);il fait 5913Ko date:12/01/2007...?
J'ai essayé aussi en désactivant ,AV (Norton) et Ad-Watch. Quand j'essaie le "Run" voici le fichier de log obtenu à la compilation,FrmMain.log:
Line 22: Class SHDocVwCtl.WebBrowser of control CcWeb was not a loaded control class.
Line 28: The property name ExtentX in CcWeb is invalid.
Line 29: The property name ExtentY in CcWeb is invalid.
Line 30: The property name ViewMode in CcWeb is invalid.
Line 31: The property name Offline in CcWeb is invalid.
Line 32: The property name Silent in CcWeb is invalid.
Line 33: The property name RegisterAsBrowser in CcWeb is invalid.
Line 34: The property name RegisterAsDropTarget in CcWeb is invalid.
Line 35: The property name AutoArrange in CcWeb is invalid.
Line 36: The property name NoClientEdge in CcWeb is invalid.
Line 37: The property name AlignLeft in CcWeb is invalid.
Line 38: The property name NoWebView in CcWeb is invalid.
Line 39: The property name HideFileNames in CcWeb is invalid.
Line 40: The property name SingleClick in CcWeb is invalid.
Line 41: The property name SingleSelection in CcWeb is invalid.
Line 42: The property name NoFolders in CcWeb is invalid.
Line 43: The property name Transparent in CcWeb is invalid.
Line 44: The property name ViewID in CcWeb is invalid.
Line 45: The property name Location in CcWeb is invalid.
**********

Bon il ne trouve pas IE7.0 c'est ça?
Il y a t'il une autre solution ?,merci et bravo .

Commentaire de Renfield le 22/02/2007 07:39:33 administrateur CS

étrange

installes le SP6 de VB6, ca ne fais jamais de mal....

http://www.microsoft.com/downloads/details.aspx?familyid=83BF08E6-012D-4DB2-8109-20C8D7D5C1FC&displaylang=fr

j'ai IE7 a la maison, IE6 au boulot, j'ai rien a faire, les deux fonctionnent nikel et direct aux eux endroits

Commentaire de Turnoff le 22/02/2007 16:01:02

Tout me semble étrange...
Je débute en VB et je voulais pouvoir imprimer les sources que j'ai chargé pour les modifier. Et plus je vais plus je m'éloigne de mon problème. Bon après MAJ SP6, depuis mon portable et XPpro Vers 5.1 SP2 "Pas d'accès à ieframe.dll"désactivé AV norton et Ad-watch Idem...
Sur un autre poste XP familial Vers 5.1 SP2,ça tourne? avec AV et Ad-watch?
? mon portable serait infectés?
Mais le fond est grisé ce qui est très joli à l'écran, mais puisque j'imprime j'y laisse pas mald'encre! Serais-ce beaucoup demander de savoir quelle(s) ligne(s) je doit mosifier pour avoir un fond "blanc" et le code SVP
Merci, code rapide et très utile...

Commentaire de Renfield le 22/02/2007 16:37:07 administrateur CS

pour l'impression, je te suggère de remplacer la procédure ColorizeFile de la Form1, et mettre :

Public Sub ColorizeFile(ByRef vsFilePath As String)
Dim ConvertVB6ToHTML As String
Dim sContent As String
Dim iFile As Integer

    moSyntax.HTML_Header = "<font size='2'>" & vsFilePath & "</font><hr/>"
    moSyntax.HTML_Footer = vbNullString

    iFile = FreeFile
    Open vsFilePath For Input Lock Write As #iFile
        sContent = Input(LOF(iFile), #iFile)
    Close #iFile

    CcWeb.Document.body.innerHTML = moSyntax.Convert(sContent)
End Sub

pour ton webBrowser, je me demande si tu n'aurais pas installé la version Beta de IE7, par le passé ...
tentes de faire l'echange des references
"C:\WINDOWS\system32\ieframe.dll" > "C:\WINDOWS\system32\shdocvw.dll"
(source http://www.developpez.net/forums/showthread.php?t=231644)

Commentaire de Turnoff le 22/02/2007 22:46:24

Renfield merci
1) pour la procédure, c'est parfait pour l'économie d'encre.

2)Pour le WebBrowser, ça me console un peu de n'être pas le seul.
Petit hic, sur le portable avec XPpro J'ai Ie7 Vers 7.0.5730.11 là j'ai le Pb, mais sur le 'desktop avec XPfamilial avec lequel cela marche j'ai le mêmeIE7!!
Sinon j'ai consulté le forum, ils disent un peu tous:
"J'ai tout simplement enlevé la réference ieframe.dll de mon projet de setup et là tout fonctionne..." ou que c'est t'y le "projet de setup"? dans vb6?
Dans ton code je ne l'y voit pas.
Tu me proposes de faire l'échange des références mais ou? dans quoi ?

Merci pour le dévouement à la cause...et patience.

Commentaire de Renfield le 22/02/2007 23:05:09 administrateur CS

pas de setup ici.

les modifications sont à apporter dans la fenetre
Projet > Composants (Ctrl+T)

'Microsoft Internet Controls' requiert, normallement ieframe.dll

chez moi j'ai IE7, point de soucis pourtant, je trouve cela très étrange

Commentaire de Turnoff le 23/02/2007 11:45:21

Renfield.
Merci pour les cours particuliers. Il me faudrait bien un "Renfield" souvent derrière moi...
Alors sitôt lu sitôt fait. En faisant la permutation du contrôle sur le portable, il est aussi content que moi et fonctionne parfaitement!
En vérifiant sur la version XPfamilial du "Desktop" ce "controls" était d'office à la bonne valeur!
cad :shdocvw.dll...
Je n'ose pas descendre d'un cran et lui imposer ieframe.dll. Step+ by Step+.
Je retourne à mon besoin: dialogue Modbus avec mesure électriques pour transformer un PC en centrale d'acquisition pour traitement final sur Matlab. Acquisition mesures; éolienne sur réseau...
Respect et Remerciement...

Commentaire de Renfield le 23/02/2007 12:41:28 administrateur CS

Content que cela fonctionne également (enfin?) chez toi...

dans l'histoire, tu aura gagné le SP6 de VB, ce qui est une bonne chose ^^

bon courage pour ce projet qui a l'air d'envergure !

Commentaire de mortalino le 01/03/2007 18:57:41

Salut Rey,

que dire, tout d'abord, j'ai testé le temps d'exécution en comparant avec celle faite avec Pcpt, et je rejoins Violent_Ken concernant la rapidité, c'est excellent.
Il est vrai que c'est pas mal aussi de pouvoir choisir le fichier.
Ton code est clair et agréable à lire, tu as une façon de coder très performante.

Ton projet me servira également de tuto ;)

Bonne prog et @++

Commentaire de Renfield le 01/03/2007 20:51:34 administrateur CS

Ravi que ca te plaise...

la structure du code a évolué peu à peu, eliminant les zones trop lentes, et j'ai essayé d'améliorer la chose...

je dit pas que c'etait indispensable, mais je voulais vraiment que cette source tourne rapidement, juste avec du VB...(ou avec peu d'API)

si tu souhiate des eclaicissements sur certains points, je sui là ^^

Commentaire de mortalino le 01/03/2007 21:02:44

J'essaierai effectivement de te solliciter si tu es là demain aprem où ce WE, surtout sur le fonctionnement du buffer ;)

Merci à toi
(là c'est détente une petite heure et après dodo, demain debout 5h)
Bonne soirée, je te contact
++

Commentaire de lermite222 le 18/04/2007 14:18:54

Bonjour renfield
j'ai chargé le zip, mais lorsque je tente de le compilé je recois la même erreur que turnoff, a part
c:/windows\system32\ieframe.dll \1
et ensuite toute les mêmes erreurs dans le #.log
J'ai suivi tout ce qui est dit dans les postes précédant a savoir
J'ai charger le SP6 'comme cela je l'aurais
dans le répertoir systeme32 j'ai IEFrame.dll version 7.0.5730.11 du 17/02/2007(probablement installer lors d'une mise à jour de windows.)
dans un rép window différent j'ai une version 7.0600.16414 du 7/11/2006
j'ai également 5 # différents pour SHdocvw.dll ,3 versions et 5 fichiers avec références différentes.
Après tout cela j'ai regardé pour éventuellement ajouter dans VB6 la référence à ccwweb, mais je n'ai trouvé que ccwwebwnd 1,0 library
Vérais-tu une opération que j'aurais oublié, ou mal interprété ?
Merci d'avance
louis

Commentaire de lermite222 le 18/04/2007 15:06:14

ReBonjour rendfiel, ajout aus essais décrit ci-dessus
J'ai constaté que dans ta source il y a la dll
Ieframe.dll 7.00.5346.5
type de fichier= (winmain(wmbla).060413-2150)
Comme il ne correspond pas à celui qui est dans system32, j'ai enlevé la dll de systeme32, (mis dans un répertoir autre)
j'ai copier ta dll dans systeme32...

et j'ai alors pout ta dll Version 7.0.6000.16414
type de # (vista_gdr.070108-1520) ???????

Voila une petite précision complémentaire.
louis

Commentaire de Renfield le 19/04/2007 10:34:12 administrateur CS

étrange...

il semble ne pas vouloir du WebBrowser.

tentes de supprimer le controle, la reference etc
et de remettre un WebBrowser tout neuf (même nom^^)

Commentaire de violent_ken le 05/05/2007 21:26:34

Salut, le *.zip a disparu ?
Sinon, c'était pour dire qu'il manque dans la liste des commandes le mot BF (utilisé pour Line, pour dessiner un rectangle plein).

@+

Commentaire de Renfield le 05/05/2007 23:24:26 administrateur CS

le zip m'apparait bien (soucis de cache ?)

Commentaire de violent_ken le 05/05/2007 23:25:59

Effectivement, il apparait maintenant ?

Bizarre... C'était pas un zip vide, c'était toute la section "Fichier Zip" (avec le bouton 'Télécharger') qui était absente...

@+

Commentaire de drissou le 07/05/2007 09:11:02

Bonjour Renfield,

je vien de recharger la dernière version de ton prog et je me permets de te signaler un petit bug sur ta coloration ..

cela concerne la gestion des lignes de commentaires
1. lorsque que la ligne de commentaire occupe toute la ligne et contient une chaine entre deux apostrophes, pas de problème tout est bien vert;
2. quand un commentaire est sur la même ligne qu'une instruction et qu'il contient une chaine entre deux apostrophes, cette chaine est considérée comme une chaine normale donc colorée en rouge, malgré qu'elle soit dans un commentaire.

Drissou

Commentaire de Renfield le 11/05/2007 10:11:18 administrateur CS

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

Commentaire de lermite222 le 22/06/2008 12:42:11 9/10

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.

Commentaire de Renfield le 23/06/2008 07:03:15 administrateur CS

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><body>" & vbNewLine & _
             "" & vbNewLine & _
             sCode & vbNewLine & _
             "" & vbNewLine & _
             "</body></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

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

VB6 ---->> Mail au format HTML [ par AlAiN ] s'il vous plait, est il possible d'envoyer des mail au format html avec vb6, pour les mails au format text, le composant mapi fonctionne, mais je cher remplir formulaire avec vb6 [ par danone ] Bonjour,Je recherche le moyen à partir de VB6 de remplir un formulaire qui se trouvesur une page HTML par exemple celle du site des pages blanches sur VB6+HTML+OUTLOOK EXPRESS [ par Paje ] Bonjour à tousJe cherche un composant similaire à celui qui ce trouve dans Outlook Express à savoir :Lorsque je tape le corps d'un message, si j'ai co activex et html [ par fvhq ] je souhaiterai développer un axtive x de défilement de texte en VB6 et l'intégrer dans du code htmlquelqu'un aurait il un exemple de développement en Colorier la syntaxe [ par zibou ] Bonjour,Je cherche un code source qui colorit la syntaxe HTML, alors si vous en avez un svp vous savez koi faire.Cordialement Samir Ghoualem---------- créer mail html avec mapi sous vb6 [ par pmvb ] Bonjour,Je suis à la recherche d'une information pour créer des mails au format html en utilisant mapi avec vb6.Faut-il utiliser msgtype, et si oui, s Problème d'insertion HTML dans VB6 [ par morpheus83z ] Salut !Voilà, je débute avec VB6. Pour le moment je génère un fichier PHP de cette façon :Option ExplicitPrivate Sub GenereWeb()Open "c:\admin.php" Fo du html ET vB6 [ par ghannem ] En fait moi je veux que je recupere les scripts a partir d'un document html.apres je veux vraiment selectionner uniquement les scripts qui ont ete app syntaxe de requetes access sous vb6 [ par mierkool ] voila, je voudrais savoir la syntaxe de requetes access sous vb6 :les selects: moi j'ecris ca comme ca : select * from client where nom = " + varnomle demande de syntaxe pour récupérer mes données d'un fichier.xls sur mon projet sur VB6 [ par tom067 ] Salut, moi c'est Tomje suis automaticien pour machine industrielle et je me suis lancer à titre privé dans la prog visualbasic.J'ai exploit&