Affectation d'une valeur à une TextBox

Question

Bonjour,

Dans une Form j'ai 2 TextBox
           Text1(1)    et   Text1(2)

Dans un module j'ai les instructions suivantes:

    Form.Text1(1).Height = 360
    Form.Text1(2).Height = 360

Résultat après consultation immédiatement après l'exécution, j'ai
 
    Dans Text1(1),  Height contient la valeur 825
    Dans Text1(2),  Height contient la valeur 360

Cjvg · Answer

Bonjour, 

Dans une Form j'ai 2 TextBox 
Text1(1) et Text1(2) 

Dans un module j'ai les instructions suivantes: 

Form.Text1(1).Height = 360 
Form.Text1(2).Height = 360 

Résultat après consultation immédiatement après l'exécution, j'ai 

Dans Text1(1), Height contient la valeur 825 
Dans Text1(2), Height contient la valeur 360 

Avez vous une idée sur le pourquoi de la chose

Par avance Merci

ucfoutu · Answer

Bonjour,
si tu es en VB6, l'objet "Form" n'est pas connu !
Si Form1 est le nom de ton Form, c'est
Form1.Text1(1).Height =  360
 Form1 .Text1(2).Height  = 360 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Cjvg · Answer

Bonjour, 

Dans une Form j'ai 2 TextBox 
Text1(1) et Text1(2) 

Dans un module j'ai les instructions suivantes: 

Form1.Text1(1).Height = 360 
Form1.Text1(2).Height = 360 

Résultat après consultation immédiatement après l'exécution, j'ai 

Dans Form1.Text1(1), Height contient la valeur 825 
Dans Form1.Text1(2), Height contient la valeur 360 

Avez vous une idée sur le pourquoi de la chose 

Par avance Merci

ucfoutu · Answer

Seule explication possible : d'autres instructions de dimensionnement sont données ailleurs dans ton code, plu probablement dans un évènement que tu redéclenches (un load après un unload, une activation de ton Form après en être sorti, etc ...)
Et ce que tu nous montres ne suffit pas à deviner où et comment tu redimensionnes à nouveau.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et la preuve, avec le seul code montré :

Sur un Form nommé Form1 :
un bouton de commande command1 et deux textboxes indexées Text1(1) et Text1(2)
et ce code :
Private Sub Command1_Click()
  la_preuve
  MsgBox "et regardopns : " & vbCrLf & "text1(1) a bien une hauteur de " & Text1(1).Height & vbCrLf & _
  "text1(2) a bien une hauteur de " & Text1(2).Height
End Sub
et dans un module :
Public Sub la_preuve()
  Form1.Text1(1).Height = 360
  Form1.Text1(2).Height = 360
 End Sub

Voilà ! c'est donc ailleurs que dans ce que tu nous montres, que les choses se passent 



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Affectation d'une valeur à une TextBox

5 réponses

Votre réponse

Discussions similaires