Insérer des Balises HTML dans un champ mémo

**Heureux-oli** · 19/02/2007, 14h38

Voilà,
Je cherche à faire reculer mon curseur dans le contrôle d'un formulaire sur du texte d'un nombre de caractère déterminé.
Mon champ est de type mémo.

Merci

**Gary_Stoupy** · 19/02/2007, 14h46

Bonjour,

Je me permets de proposer une solution sans doute simpliste mais bon :
ca ne fonctionne pas avec Selstart ???

**Heureux-oli** · 19/02/2007, 14h47

J'avais essayé, mais j'ai une erreur en retour et selstart me donne la position du curseur.

**Gary_Stoupy** · 19/02/2007, 14h56

C'est super bizarre que ca te mette une erreur, c'est pourtant bien utilisable en lecture/écriture. Quel erreur ?
sinon, ton champ est de type memo et tu l'affiches dans un textbox c'est ca ?

Invité · 19/02/2007, 14h56

Re

Juste une idée, je n'ai pas testé

SelStart te donne le départ du curseur, et en mettant à Selstart une valeur qui prend en compte SelLenght (qui est la longueur sélectionné)

Tu sélectionne ton text, tu récupére la longueur que tu passes à SelStart incrémenté ou décrémenté d'une valeur.

Pas sûr à tester

Starec

**Heureux-oli** · 19/02/2007, 15h03

Pour répondre aux deux dernier massage, j'ai une erreur parce que je dois quitter le contrôle et j'y reviens avec un setfocus.
La raison pour laquelle je veux reculer d'un certain nombre de caractères connu est que j'ajoute des balises html. Et je veux revenir entre ces balises.

Invité · 19/02/2007, 15h07

Re

Si tu recherches des balises ne peux tu pas utiliser inStr pour récupérer la position de ta balise, et après le selStart pour te positionner.

Starec

**Heureux-oli** · 19/02/2007, 16h02

C'est pas mal.
Je vais essayer. D'autant plus que je peux mettre ce que bon me semble entre les balises.

**cafeine** · 19/02/2007, 16h30

j'ai testé un truc vite fait qui semble marcher ... à travailler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Dim strStart As String
Dim strSel As String
Dim strEnd As String
Dim sStart As Long
Dim sSel As Long
Dim strMain As String
 
Private Sub Commande3_Click()
 
addHTML "<b>"
 
End Sub
 
 
Private Sub addHTML(ByVal strTag As String)
 
    Me.txtMain.SetFocus
    Me.txtMain = strStart & strTag & strSel & _
                 Left(strTag, 1) & "\" & Right(strTag, Len(strTag) - 1) & strEnd
    Me.txtMain.Requery
    Me.txtMain.SelStart = sStart + Len(strTag)
    Me.txtMain.SelLength = sSel
 
End Sub
 
 
 
Private Sub Commande4_Click()
 
addHTML "<i>"
 
End Sub
 
Private Sub Commande5_Click()
 
addHTML "<u>"
 
End Sub
 
Private Sub txtMain_BeforeUpdate(Cancel As Integer)
 
    sStart = Nz(Me.txtMain.SelStart, 0)
    sSel = Nz(Me.txtMain.SelLength, 0)
    strStart = Left(strMain, sStart)
    strSel = Mid(strMain, sStart + 1, sSel)
    strEnd = Right(strMain, Len(strMain) - sStart - sSel)
 
End Sub
 
 
Private Sub txtMain_Change()
 
    strMain = Me.txtMain.Text
 
End Sub
 
Private Sub txtMain_Click()
 
    strMain = Me.txtMain.Text
 
End Sub
 
Private Sub txtMain_LostFocus()
 
    sStart = Nz(Me.txtMain.SelStart, 0)
    sSel = Nz(Me.txtMain.SelLength, 0)
    strStart = Left(strMain, sStart)
    strSel = Mid(strMain, sStart + 1, sSel)
    strEnd = Right(strMain, Len(strMain) - sStart - sSel)
 
End Sub

**Heureux-oli** · 19/02/2007, 17h17

ola,

Cafeine, mieux on ne peut trouver.
C'est pil poil ce qui me convient. La piste que j'avais prise n'était pas la bonne.

**Promesses** · 16/03/2007, 11h31

Bonjour Heureux-oli,
dans le même idée que toi, je cherche à faire un formulaire "WYSIWYG" en Access.
Avant de commencer, je cherchais sur le net voir si ca existait déjà.
N'en as tu pas trouvé un ?
Tu as tout codé tout seul ?

**Heureux-oli** · 16/03/2007, 11h38

En Access, il faut utiliser la version 2007.
Ce que je voulais faire, c'était simplement insérer les balises pour réaliser un mailing en HTML.

Pour arriver à ça

**Promesses** · 20/03/2007, 14h58

Bonjour heureux-oli,
je souhaiterais réaliser la même chose que toi.
Malheureusement, le fichier sur ta page n'est pas téléchargeable.
T'est il possible de la remettre à dispo ? svp

Ne sais tu pas s'il existe des formulaires genre tout fait WYSIWYG ?

**Heureux-oli** · 20/03/2007, 18h19

Essaie le liens de la version horsligne.
C'est le fichier .zip avec la DB.
Le lien en haut de la page.
J'ai vu qu'il y avait un problème avec celui du bas de page.

**Promesses** · 21/03/2007, 00h45

Bonsoir Oli,
le problème avec l'appli du lien en haut de page, c'est qu'il n'y a pas le formulaire qui permet de mettre les balises HTML.

Merci de ton aide

**Heureux-oli** · 21/03/2007, 09h27

c'est dans l'appli contrat, il y a un formulaire pour l'envoi de mail HTML, et c'est là que se trouvent les boutons pour ajouter les balises dans un champ mémo.