Vb10 - inputbox personnalisable pour vos projets

Description

Voici un InputBox maison ! Mais pourquoi utiliser cet inputbox ?
1] Bah c'est plus jolie et personnalisable.

2] Le code est léger et d'un niveau débutant.
("léger" sauf si vous ajoutez 5 mégas d'images aux ressources de la feuille lol !)

3] Corrige un problème de l'ancienne version, le TopMost.
(Essayez de faire apparaitre un Inputbox avec votre form appelante avec TopMost à True)

*

AJOUTER INPUTBOX V10 A SON PROJET:
1] Copiez dans le répertoire de votre projet les fichiers suivants:
- InputBox10.vb
- InputBox10.Designer.vb
- InputBox10.resx

2] Ouvrez votre projet et ajouter un élément existant, choisissez:
- InputBox10.vb

3] Maintenant vous pouvez utiliser le Inputbox v10 !

Source / Exemple :


'Testez son fonctionnement avec ce code (exemple dans un bouton):
'1 bouton / 1 label nommé labRetour

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rtbox As String = InputBox10.Show("Démonstration", "Entrez votre pseudo ci-dessous:")
        If rtbox = Nothing Then Exit Sub

        Me.labRetour.Text = "Votre pseudo est " & rtbox
    End Sub

Conclusion :


Je rappel que c'est un code de base; si vous souhaitez faire mieux ne vous gênez pas ^^

L'exemple utilise l'attente d'évènements bouton comme un Inputbox grâce à ShowDialog().
Merci à PCPT pour son soutient.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.