Discussion :

[loicremy]

Bonjour,

J'essaye de créer dynamiquement une boîte-texte en VB Express 2008, et je suis bloqué malgré la lecture de tout les posts que j'ai pu trouver sur 'controls.add'.

Cela ne serait-il pas une limitation de VB Express ?

Merci d'avance

[roster]

Non, controls.add() est bien présent dans la version express.
Quel est ton problème exactement?

[loicremy]

Je dois créer des controles textbox de manière dynamique. Je parviens à créer mais je ne sais pas ou trouver les propriétés ou les les méthodes pour influer sur le contenu, la hauteur de la boite...

Je teste avec une appli et un bouton, voici mon 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
 
Public Class Form1
    Dim ma_boite As New TextBox
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Controls.Add(ma_boite)
        With ma_boite
            .Text = "Première ligne" & vbCrLf & "Deuxième ligne"
            .Top = 150
            .Left = 150
            .Width = 200
            .Height = 200
        End With
    End Sub
End Class

Par exemple, la deuxième ligne ne passe pas à la ligne suivante. J'ai certainement loupé un épisode, mais je reprend la prog en VBasic après une parenthèse de 10 bonnes années en Lingo..

[roster]

Ton code marche!


Si tu recopies ce code dans un nouveau projet vierge, tu verras qu'il marche parfaitement.

[roster]

J
Par exemple, la deuxième ligne ne passe pas à la ligne suivante. J'ai certainement loupé un épisode, mais je reprend la prog en VBasic après une parenthèse de 10 bonnes années en Lingo..

Je crois comprendre ce que tu veux dire, avant je répondais à ta première question.

[roster]

la deuxième ligne ne passe pas à la ligne suivante.

Code :

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

.Multiline = True

[malphodo]

Bonjour à tous,

Je me permet de reprendre le post

Je suis debutant et j aimerai bien faire une boucle pour creer les controls en fonction d 'un tableau, mais ca ne fonctionne pas il me crait que le premier control ...si vous avez une idée je suis preneur :

Mon extrait de 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
21
22
23
24
25
26
27
28
29
30
31
32
33
Public Function Maj_MP()
 
        Dim TABLEAU() As String
        Dim PosX As Integer, PosY As Integer
        Dim SRVMP as string 
 
        SRVMP="coucou,test,houlala,pouet"
 
        'init emplacement de depart
        PosX = 50
        PosY = 10
 
        'Enumeration de la chaine de caractere en fonction du separateur
        TABLEAU = Split(SRVMP, ",")
 
        'Boucle sur chaque element pour remplissage de la form
        For i = 0 To UBound(TABLEAU)
            Dim NomSRV As New Label
            NomSRV.Name = TABLEAU(i)
 
            Controls.Add(NomSRV)
            With NomSRV
                PosX = PosX + 10
                PosY = PosY + 40
                .Text = NomSRV.Name
                .Top = PosY
                .Left = PosX
                .Width = 200
                .Height = 200
            End With
        Next i
 
    End Function

Merci d'avance ;-)

[olsimare]

Bonjour.

(Merci d'ouvrir une nouvelle discussion la prochaine fois, cf. le règles du forum)

Pour moi, cela marche, mais tes labels sont masqués du fait du .Height = 200.

Essayes .Height = 20 pour voir.

Cdt.