ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Editeur HTML   



L'auteur

FredA
France France
Membre Simple
# 0000000005
enregistré le 12/10/2004

Fiche personnelle


Note des membres
10/20
3 votes


Contributions > 06 - VCX - Bibliothèque de classes visuelles

Editeur HTML
# 0000000027
ajouté le 22/10/2004 12:02:11 et modifié le 29/10/2004
consulté 36388 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Zoomer sur l'image

Télécharger le ZIP (18.83 Ko)
Description

HTML Editor

Un petit éditeur de page HTML (version 0)

Voir le zip

déposez la classe cHtmlEdit sur un formulaire et roulez...
-1ere erreur : oublie des doevents... arf

Merci à Tracy Pearson pour la base de travail déjà bien avancée

- ajout d'un bouton pour l'envoi de mail en html avec images (type mht) qui utilise l'objet CDO.message (mise à jour du zip + tard...)

Code source :
* ajouter un cbutton dans la classe chtmleditor (caption '*')
* event click
NODEFAULT
LOCAL iMsg
iMsg=CREATEOBJECT("CDO.Message")
With iMsg * As CDO.Message pour VFP9 et intellisense
   .To = INPUTBOX("email Vers :")
   .From = inputbox("email From :")
   .Subject = INPUTBOX("Sujet :")
   .CreateMHTMLBody(this.parent.oiE.locationURL)
   .Send()
EndWith
iMsg=NULL
RELEASE iMsg

Commentaires
le 26/10/2004, Francis Faure a écrit :
C'est cool
le 29/10/2004, FredA a écrit :
il faudrait que les boutons ouvrir et nouveau soient en cbutton...
à corriger

le 05/04/2005, FredA a écrit :
correctif sur l'ouverture de fichier :
Il faut faire dans le bouton de l'ouverture d'un fichier mht ou htm

*DO WHILE .busy && enlever cette ligne pour mettre la ligne du dessous
DO WHILE .ReadyState != 4
DOEVENTS
ENDDO
ThisForm.Chtmleditor1.oIE.Refresh()


le 19/11/2006, JpG a écrit :
Un grand merci pour tes travaux qui m'ont fait gagné un temps précieux.
J'ai adapté tes travaux à mes besoins et je me suis rendu compte d'un petit problème que je n'arrive pas à résoudre :
Si on pose ta classe sur la première page d'une pageframe, elle fonctionne correctement. Si je la dépose dans le pageframe à la page 2, 3 4 ou autre, il y a un blocage complet. Qu'en penses-tu ?
Sinon, super !

le 05/09/2007, Cesar Ch a écrit :
Merci beaucoup ! Cela fonctionne vraiment très bien, et a juste sauvé mon jour !
Je suggère enlever le "contentEditable=true" ; du HTML avant d'envoyer des email.
lcHTML = STRTRAN(lcHTML, "contentEditable=true", "")
C'est vraiment très utile !


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3