LAB - créateur de menus ! | Créez des menus pour vos DivX | Créez des menus autorun pour vos CDs

NGSoft-fr.com > MenusLAB.com : LAB - créateur de menus !

NGSoft-fr.com I Accueil I Téléchargements I Trucs et astuces I F.A.Q. I Centre d'aide
Forum I Suport/Contact I Livre d'or I Diffusions I Dons I Plan

Rejoindre les 10996 utilisateurs priviliègés gratuitement

Ajouter d'autres objets (cases à cocher, listes, labels...)

Ajout d'une boite de texte :

Set MonTexte = Fenetre.Controls.Add("VB.TextBox", "MonTexte")
MonTexte.Text = "Mon texte..."
MonTexte.Visible = True

Ajout d'une boite de sélection :

Set MonComboBox = Fenetre.Controls.Add("VB.ComboBox", "MonComboBox")
MonComboBox.AddItem "Elément 1"
MonComboBox.AddItem "Elément 2"
MonComboBox.Visible = True

Ajout d'une étiquette (label) :

Set MonLabel = Fenetre.Controls.Add("VB.Label", "MonLabel")
MonLabel.Backcolor = vbBlue
'pour transparent : MonLabel.Backstyle = 0
MonLabel.ForeColor = vbRed
MonLabel.Caption = "Mon Texte"
MonLabel.Visible = True

Ajout d'une barre de défilement (horizontale) :

Set Barre1 = Fenetre.Controls.Add("VB.HScrollBar", "Barre1")
Barre1.Visible = True

Ajout d'une barre de défilement (verticale) :

Set Barre2 = Fenetre.Controls.Add("VB.VScrollBar", "Barre2")
Barre2.Visible = True

Ajout d'une case à cocher :

Set CaseACocher = Fenetre.Controls.Add("VB.CheckBox", "CaseACocher")
CaseACocher.Value = 1
CaseACocher.Visible = True

Ajout d'une 'option' :

Set Option1 = Fenetre.Controls.Add("VB.OptionButton", "Option1")
Option1.Value = True
Option1.Visible = True

Ajout d'une boite de liste :

Set MaListe = Fenetre.Controls.Add("VB.ListBox", "MaListe")
MaListe.AddItem "Elément 1"
MaListe.AddItem "Elément 2"
MaListe.Visible = True

Ajout d'une liste des lecteurs :

Set ListeLecteur = Fenetre.Controls.Add("VB.DriveListBox", "ListeLecteur")
ListeLecteur.Visible = True

Ajout d'une liste des fichiers :

Set ListeFichier = Fenetre.Controls.Add("VB.FileListBox", "ListeFichier")
ListeFichier.Path = "c:\"
ListeFichier.Pattern = "*.*"
ListeFichier.Visible = True

Ajout d'une liste des répertoires :

Set ListeRep = Fenetre.Controls.Add("VB.DirListBox", "ListeRep")
ListeRep.Path = "c:\"
ListeRep.Visible = True

Commentaires sur l'article :

Retour au menu

accès aux pages

Pour obtenir le Banner explode ID de ce site cliquez ici !