Visual Basic Express 2008 & controls.add

Version imprimable

07/01/2009, 16h36
loicremy

Visual Basic Express 2008 & controls.add

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
07/01/2009, 16h44
roster

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

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:

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

07/01/2009, 18h43
roster

Ton code marche!

Si tu recopies ce code dans un nouveau projet vierge, tu verras qu'il marche parfaitement.
07/01/2009, 19h09
roster

Citation:

Envoyé par loicremy

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.
08/01/2009, 00h26
roster

Citation:

Envoyé par loicremy

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

Code:

.Multiline = True

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:

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 ;-)

19/03/2009, 16h38
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.