Propriété textbox.seltext

Signaler
Messages postés
70
Date d'inscription
mardi 4 mars 2003
Statut
Membre
Dernière intervention
15 mars 2004
-
Messages postés
48
Date d'inscription
samedi 19 avril 2003
Statut
Membre
Dernière intervention
23 mars 2007
-
B'jour TLM

j'ai trouvé sur les questions posées sur le forum que pour ajouter du texte dans une textbox multiligne il etait mieux de faire ceci :
Text1.SelStart = Len(Text1.Text)
Text1.SetText = "txt a ajouter"

(pour info moi je fais text1.seltext = "Blabla" & combo1.text + vbcrlf)

que ceci:
text1.text = text1.text + "text a ajouter"

bon j'ai compris pourkoi mais le pb c que ca marche pas, ya t'il une propriété en plus a ajouter a la textbox, quelque chose particulier pour que ca marche ??? Car j'ai l'erreur suivante :
Method or data member not found
avec seltext surligné en gris pour me montrer que l'erreur vient de la.

J'espere que qlq un c ou est le pb. Merci

4 réponses

Messages postés
70
Date d'inscription
mardi 4 mars 2003
Statut
Membre
Dernière intervention
15 mars 2004

oula pardon je m'excuse désolé
eh oui je viens de m'apercevoir en relisant mon post qu'il y a en fait une fote de frappe donc c pour ca qu'il y a cette fameuse erreur, encore désolé, bon alors pour pas que ce post serve a rien je v poser une autre question :

comment fo t'il faire pour creer un array ou tablo et y stocker les informations d'un groupe de combobox et ensuite afficher son contenu dans une textbox qui se trouve dans une autre form ?
Messages postés
48
Date d'inscription
samedi 19 avril 2003
Statut
Membre
Dernière intervention
23 mars 2007
1
Place tes information du groupe de combobox dans un fichier pis dans ton autre form fait une recherche dans ton fichier pour savoir qu'elle information elle contient et l'affiché
Tu peux faire cela avec l'instruction Put et Get ou avec l'instruction Write et Input. Je te conseil d'utlisé une structure de fichier
Par example

'dans un module
public Type typInfo
Nom as string 'nom de la combobox
Valeur as strign 'valeur de la combobox
end type

'dans un sub pour inscrire les info
dim Position as integer
dim enrgInfo as typInfo
Open App.Path & "\Archive.db" For Random As #1 Len = Len(enrgInfo)
Position = FileLen(App.Path & "\Archive.db") / Len(enrgBatch)
enrgInfo.Nom = combobox.name
enrgInfo.Valeur = combobox.text
Put #1, Position, enrgInfo
close #1

'dans un sub pour voir les info
dim Position as interger
dim enrgInfo as typInfo
Open App.Path & "\Archive.db" For Random As #1 Len = Len(enrgInfo)
do while not(EOF(1))
Position = Position +1
get #1, Position, enrgInfo
if enrgInfo.Nom = Nomdésiré then
text = enrgInfo.Valeur
exit do
end if
loop
close #1

Tu peux aussi utilsisé une base de donné qui contient tout les informations de ton groupe de ComboBox

Tu peux aussi une orientation objet si ta feuille est affiché lorsque tu clique sur un bouton
consulte la source que j'ai posté pour toi. J'ai utilisé une listbox à la place d'un textbox.
http://www.vbfrance.com/code.aspx?ID=18580
Messages postés
70
Date d'inscription
mardi 4 mars 2003
Statut
Membre
Dernière intervention
15 mars 2004

Ouah !! Je te remercie de ta reponse et je suis assez impressioné par le fait que tu es mis carrement une source a disposition pour m'aider. Je v de ce pas voir ca car ca m'a l'air d'etre tres utile, et pour ce que je dois faire, et pour plein d'autres choses, donc encore un gd merci

+++
Messages postés
48
Date d'inscription
samedi 19 avril 2003
Statut
Membre
Dernière intervention
23 mars 2007
1
Cela m'a fait plaisir