propriété textbox.seltext

Question

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

sbouquet · Answer

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 ?

PiterTheWood · Answer

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

sbouquet · Answer

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

+++

PiterTheWood · Answer

Cela m'a fait plaisir

Propriété textbox.seltext

4 réponses

Discussions similaires