Problème Visual Basic débutant

Résolu
geekgame Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
 geekgame -
Bonjour,
Je suis débutant en VB et j'ai envie de faire un programme qui demande le nom d'une personne et qui affiche un texte avec le nom de la personne en plus.
https://www.casimages.com/i/110302113605708378.png.html
Est-ce que je m'y prends mal ?
Lorsque je lance le programme, il m'affiche :
https://www.casimages.com/i/110302113831413482.png.html

Quelqu'un peut m'aider s'in vous plait ?????
<pre>
Public Class Form

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Titre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Titre.Click

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_nom.Enter

    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub

    Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter

    End Sub

    Private Sub NOM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NOM.TextChanged, NOM.TextChanged

    End Sub

    Private Sub GO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GO.Click
        If Verification() Then
            Me.LBL_KEYGEN.Text = Name & Name & "Bonjour"
        Else
            Me.TXT_ERR.Visible = True
        End If
    End Sub
    Function Verification() As Boolean
        Dim Bon As Boolean = True
        If Me.NOM.Text Is Nothing Then
            Bon = False
        End If
        Return Bon
    End Function
    Private Sub LBL_KEYGEN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBL_KEYGEN.Click

    End Sub
End Class
</pre>




A voir également:

3 réponses

Réponse 1 / 3
Info
 
Bonjour,

Voici un exemple de structure de base que tu peut employé.

Encore que je ne sache pas exactement ce que tu veux faire ! 


#Region " Imports " 

Imports System.Text 

#End Region 

Public Class Form 

#Region " Commentaires Aucuns " 

#End Region 

#Region " Constantes Aucunes " 

#End Region 

#Region " Membres/Attributs " 

    Private Shadows m_Nom As String = String.Empty 

#End Region 

#Region " Propriétés " 

    Public Property NOM() As String 
        Get 
            Return Me.m_Nom 
        End Get 
        Set(ByVal value As String) 
            Me.m_Nom = value 
        End Set 
    End Property 

#End Region 

#Region " Méthodes " 

#Region " Constructeurs " 

    Public Sub New() 

        ' Cet appel est requis par le Concepteur Windows Form. 
        InitializeComponent() 

        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent(). 

    End Sub 

#End Region 

#Region " Évènements " 

    ''' <summary> 
    ''' Cgargement du formulaire 
    ''' </summary> 
    ''' <param name="sender"></param> 
    ''' <param name="e"></param> 
    ''' <remarks></remarks> 
    Private Sub Form_Load(ByVal sender As System.Object, _ 
                          ByVal e As System.EventArgs) Handles MyBase.Load 

    End Sub 

    Private Sub Nom_Text_TextChanged(ByVal sender As System.Object, _ 
                                     ByVal e As System.EventArgs) Handles Nom_Text.TextChanged 

    End Sub 

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, _ 
                                ByVal e As System.EventArgs) Handles GroupBox1.Enter 

    End Sub 

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, _ 
                                ByVal e As System.EventArgs) Handles GroupBox2.Enter 

    End Sub 

    Private Sub GroupBox3_Enter(ByVal sender As System.Object, _ 
                                ByVal e As System.EventArgs) Handles GroupBox3.Enter 

    End Sub 

    Private Sub lbl_KEYGEN_Click(ByVal sender As System.Object, _ 
                                 ByVal e As System.EventArgs) Handles lbl_KEYGEN.Click 

    End Sub 

    Private Sub GO_Click(ByVal sender As System.Object, _ 
                         ByVal e As System.EventArgs) Handles GO.Click 

        If (Verification()) Then 
            Me.lbl_KEYGEN.Text = Name & Name & "Bonjour" 
            Me.m_Nom = Me.lbl_KEYGEN.Text 
            ' Dans une autre classe il sera possible d'accèder 
            ' à la propriété [ NOM ] qui adresse le membre/attribut [ m_Nom ] 
        Else 
            Me.txt_Erreur.Visible = True 
        End If 
    End Sub 

#End Region 

#Region " Procédures " 

#End Region 

#Region " Fonctions " 

#End Region 

#Region " Validations " 

    ''' <summary> 
    ''' Routine de validation du textbox 
    ''' </summary> 
    ''' <returns></returns> 
    ''' <remarks></remarks> 
    Function Verification() As Boolean 
        Dim Bon As Boolean = True 
        If Me.Nom_Text.Text Is Nothing Then 
            Bon = False 
        End If 
        Return Bon 
    End Function 


#End Region 

#End Region 

End Class


Formation ici : https://plasserre.developpez.com/cours/vb-net/

Cdt

Info
3
Réponse 2 / 3
Info
 
RE :

Imports System.Diagnostics


Process.Start("C:\windows\system32\notepad.exe")

Cdt

Info
2
geekgame
 
Merci Info c'est exactement ce que je cherchais
0
Réponse 3 / 3
geekgame Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   1
 
Ok merci c'est bien ca.

J'ai une autre question : comment lancer un programme (comme un jeu ) en VB ?
1

Discussions similaires

Site de confiance ou non ?
mlle_so -
Jaffeli -

25 réponses
Microsoft Visual C++ ? C'est quoi ?
QuentinAGT -
SamySabb -

3 réponses