Ouvrez Visual Basic et créez un nouveau projet de formulaire Windows. Cliquez sur "Fichier", puis "Nouveau projet". Lorsque la boîte de dialogue Nouveau projet apparaît, choisissez "Windows" de l'arborescence, choisissez "Application Windows Forms" des types de projet, nommez le projet "FormSamples", puis cliquez sur OK. Une nouvelle forme apparaît.
Faites glisser une étiquette et trois boutons sur la nouvelle forme. droit; cliquez sur l'étiquette et choisissez "Propriétés". Nommez le label "lblTitle" et entrez "Bienvenue" dans la propriété Text. Cliquez sur "Escape" pour revenir à l'éditeur de formulaire. Répétez le processus pour chacun des boutons, en entrant "Connexion", "View" et "Fermer" pour la propriété Text de chaque bouton.
Créer un deuxième formulaire. Cliquez sur "Project" puis "Créer un nouveau Windows Form." Nommez la forme "LoginForm." Faites glisser une étiquette, zone de texte et deux boutons sur le formulaire. Modifiez la propriété Text de l'étiquette "Nom :," Nom de la boîte de texte "txtName» et étiqueter les boutons "Connexion" et "Annuler".
Double-cliquez sur le bouton Connexion pour ouvrir la fenêtre de code et ajoutez le code suivant:
DialogResult = DialogResult.OK
Cliquez sur Afficher puis la conception à revenir à la vue de la conception de formulaire. Double-cliquez sur le bouton Annuler et ajoutez le code suivant:
DialogResult = DialogResult.Cancel
Retour à la première forme en cliquant sur "Form1" dans la fenêtre de l'Explorateur de solutions. Double-cliquez sur le bouton Connexion et ajoutez le code suivant:
FRM Dim As New LoginFormSi frm.ShowDialog = Puis DialogResult.OK
lblTitle.Text = "Bienvenue" frm.txtName.Text
Fin si
frm.Close ()
Ce code crée une nouvelle instance de la forme de connexion utilise alors sa méthode ShowDialog pour ouvrir le formulaire. Si le bouton de connexion est cliqué, ShowDialog retourne DialogResult.OK et le code copie le nom de la boîte de texte dans le message de bienvenue. Si "Annuler" obtient cliqué, ce code est ignoré. La méthode Close ferme le formulaire de dialogue.