[Résolu] boîte de dialogue

[Forever]

winXp sp2; OOo2.0
bonjour;
j'ai essayer de faire ce qui est éxposé dans le sujet "Textfield et boites de dialog BASIC"
Et je voulais récupéré le valeur de pk.selectedtext et l'echangé par un "X" par example;
Si on affecte Pk.selection="X" alors c'est tout le textfield qui est changé en "X" alors que seul Pk.selectedtext qui doit l'ètre,

Merci de m'orienté!

[MichelXld]

bonjour

tu peux tester cette procedure pour remplacer uniquement la chaine sélectionnée dans le TextField

Code : Tout sélectionner

Dim Avant As String , Apres As String
Dim Cible As String, LaChaine As String

If odialog1.getControl("TextField1").Text = "" Then Exit Sub
If odialog1.getControl("TextField1").SelectedText = "" Then Exit Sub

Cible = odialog1.getControl("TextField1").SelectedText 'chaine selectionnee dans le TextField
laChaine = odialog1.getControl("TextField1").Text 'le contenu complet du TextField
Position = Instr ( laChaine , Cible ) 'position de la donnée à remplacer dans le TextField

If laChaine = Cible Then
odialog1.getControl("TextField1").Text = "X"
Exit Sub
End If 

Avant = Left ( laChaine , Position - 1 )
Apres = Right ( laChaine , Len ( laChaine) -Len( Cible) - Position + 1 )

odialog1.getControl("TextField1").Text = Avant & "X" & Apres

bone journée
michel

[Forever]

merci, ça m'a aidé