je souhaite créer des objets dynamiquement en vb je faisais comme ca
Sub create_object(numero As Integer, textlbl, namelbl)
Select Case numero
Case 1, 3, 5
Set textctl = Form1.Controls.Add("VB.textbox", namelbl)
With textctl
.Font.Name = "MS Sans Serif"
.Height = 285
.Left = 1320
.Tag = textlbl
If numero <> 1 Then
.Top = 480 * ((numero + 1) / 2)
Else
.Top = 480
End If
.Width = 1695
.Visible = True
End With
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Vincent Poyo
la création d'objet est quasi similaire
dim l_txtbox as TextBox
l_txtbox = new TextBox
l_txtbox.Text = "coucou" 'fixe toutes tes autres propriétés.
maForm.Controls.Add(l_txtbox)
"gars toff" a écrit dans le message de news:
Bonjour,
je souhaite créer des objets dynamiquement en vb je faisais comme ca Sub create_object(numero As Integer, textlbl, namelbl)
Select Case numero
Case 1, 3, 5 Set textctl = Form1.Controls.Add("VB.textbox", namelbl) With textctl .Font.Name = "MS Sans Serif" .Height = 285 .Left = 1320 .Tag = textlbl If numero <> 1 Then .Top = 480 * ((numero + 1) / 2) Else .Top = 480 End If .Width = 1695 .Visible = True End With
quel est le code equivalent en vb.net
merci
la création d'objet est quasi similaire
dim l_txtbox as TextBox
l_txtbox = new TextBox
l_txtbox.Text = "coucou"
'fixe toutes tes autres propriétés.
maForm.Controls.Add(l_txtbox)
"gars toff" <garstoff@discussions.microsoft.com> a écrit dans le message de
news: C74F8E88-8D2E-4170-AB55-E67ADFA6DE2F@microsoft.com...
Bonjour,
je souhaite créer des objets dynamiquement en vb je faisais comme ca
Sub create_object(numero As Integer, textlbl, namelbl)
Select Case numero
Case 1, 3, 5
Set textctl = Form1.Controls.Add("VB.textbox", namelbl)
With textctl
.Font.Name = "MS Sans Serif"
.Height = 285
.Left = 1320
.Tag = textlbl
If numero <> 1 Then
.Top = 480 * ((numero + 1) / 2)
Else
.Top = 480
End If
.Width = 1695
.Visible = True
End With
l_txtbox.Text = "coucou" 'fixe toutes tes autres propriétés.
maForm.Controls.Add(l_txtbox)
"gars toff" a écrit dans le message de news:
Bonjour,
je souhaite créer des objets dynamiquement en vb je faisais comme ca Sub create_object(numero As Integer, textlbl, namelbl)
Select Case numero
Case 1, 3, 5 Set textctl = Form1.Controls.Add("VB.textbox", namelbl) With textctl .Font.Name = "MS Sans Serif" .Height = 285 .Left = 1320 .Tag = textlbl If numero <> 1 Then .Top = 480 * ((numero + 1) / 2) Else .Top = 480 End If .Width = 1695 .Visible = True End With
