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
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
Bonjour,
Je me permets de proposer une solution sans doute simpliste mais bon :
ca ne fonctionne pas avec Selstart ???
J'avais essayé, mais j'ai une erreur en retour et selstart me donne la position du curseur.
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 ?
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
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.
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
C'est pas mal.
Je vais essayer. D'autant plus que je peux mettre ce que bon me semble entre les balises.
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
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.
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 ?
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
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 ?
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.
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
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.
oli, sauf erreur de ma part, dans cette application je ne trouve pas ce formulaire.
Cliques sur news letter et c'est là.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager