Discussion :

[noogatix]

J’ai une TextBox, qui est dans un TabControl, est qui n’est pas visible lorsque je lance mon appli tant que l’utilisateur n’a pas cliqué sur l’onglet du TabControl. La propriété Text de ma TextBox est liée à un paramètre de application My.Settings.MonParam (DataBindings).

Au lancement de l’application je dois récupérer la valeur de la propriété Text (je ne peux pas la récupérer directement dans My.Settings.MonParam car je ne sais pas comment récupérer My.Settings.MonParam à partir de ma TextBox)

Le problème c’est que myTextBox.Text me renvoie une chaîne vide (ce qui n’est pas le cas lorsque ma TextBox est affichée à l’écran). J’ai l’explication mais pas la solution, la doc dit :
Une liaison est active lorsqu'elle remplit ces conditions :
• Toutes ses propriétés sont définies.
• L'utilisateur n'a pas appelé ResumeBinding ou SuspendBinding sur le BindingManagerBase auquel le Binding appartient.
• Le contrôle auquel le Binding appartient a été créé.


En fait ma TextBox n’est pas liée (je le sais grâce à la propriété isBinding) car elle n’est pas crée (cf ci-dessus)(propriété isCreated) tant qu’elle n’est pas affichée.

J’ai donc utilisé la méthode CreateControl avant la lecture de la propriété Text :

Code :

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

1
2
3
 
myTextBox.CreateControl()
MsgBox(myTextBox.Created)

Mais ça ne marche pas car myTextBox.Created = False !!! Et ce à n’importe quel endroit dans mon code !

Pourquoi ? Comment créer ma TextBox ? Comment lire son contenu lié tant qu’elle n’est pas affichée ?

Merci d'avance.

[b_lob]

Je suis pas certains de cerner toute la problèmatique mais as tu essayé ceci

Code :

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

1
2
3
 
dim txtbox as new textbox
me.controls.Add(txtbox)

j'ecris ca vite fait sans quoi pourquoi ne pas cacher la textbox et la faire apparaitre au moment voulu?

[noogatix]

ok pour faire court la problématique c'est :

"Comment tester le contenu d'une textBox qui n'est pas forcement affichée (et donc pas créée) une fois le form lancé (car contenu dans un onglet par exemple) ?"

le code que tu me donne ajoute une textBox mais ne créé pas le control (ton code est celui généré par le designer d'IHM). Le control est créé lors de son affichage, fais un test avec IsCreated tu verras.

si mon control n'est pas affiché => le control n'est pas créé => le binding ne se fait pas => mon control (si c'est une textbox) sera donc égal à chaine vide.

je vais quand même pas faire un select(numOnglet) de tous mes onglets de mon TabControl pour qu'il affiche mes textBox !...

Donc voilà mais CreateControl ne marche pas ! Pourquoi ?

Je pense que le cas est suffisament basique (et visuel aussi, désolé :o) ) pour que chacun puisse le tester dans son coin :
il suffit de mettre une TextBox dans un onglet qui ne s'affiche pas au lancement (le deuxième onglet d'un objet TabControl par exemple) de la lier à un param de l'appli (DataBindings) et de tester sa création une fois le form lancé (IsCreated).
Vous verez que la TextBox n'est pas créée. Après vous utilisez CreateControl qui est là pour faire son taff mais qui finalement ne le fait pas !

J'attends vos réponses !

[bossun]

le code que tu me donne ajoute une textBox mais ne créé pas le control

c'est faux.

ceci est suffisant pour créer un controle. pas besoin de l'afficher pour qu'il soit créé.

Code :

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

dim x as TextBox = new TextBox

tu n'as pas besoin d'avoir un textbox pour lire les paramètres qui se trouvent dans ton fichier de configuration...

j'ai du mal à comprendre ce que tu veux exactement.... tu veux lire tes paramètes de config ou ajouter un textbox qui affiche tes parametres de config???

[noogatix]

J'ai une fonction qui teste la validité des path contenus dans mes TextBox qui sont dans un TabControl. Je la lance en cliquant sur un bouton de l'IHM.

Voici son code :

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
 
    Private Function TestPaths(ByRef myPanel As Panel, ByVal tabIndex As Integer) As Boolean
 
        For Each ctrl As Control In myPanel.Controls
 
            If TypeOf ctrl Is TextBox Then
 
                Dim myTextBox As TextBox = ctrl
 
                MsgBox(myTextBox.Created)
 
                If Not (File.Exists(myTextBox.Text) Or Directory.Exists(myTextBox.Text)) Then
 
                    ' Traitement... return...
 
                End If
 
            End If
        Next
    End Function

myTextBox.Text = "" et myTextBox.Created = False

sauf si le TextBox est affiché.

Tout mes TextBox sont liés à des param d'application.

[bossun]

essaie remplace ça

Code :

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

Dim myTextBox As TextBox = ctrl

par ça.

Code :

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

1
2
3
Dim myTextBox As TextBox = new TextBox
 
myTextBox = ctrl