Problème Visual Basic débutant
Résolu
geekgame
Messages postés
2
Statut
Membre
-
geekgame -
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>
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:
- Problème Visual Basic débutant
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
3 réponses
Bonjour,
Voici un exemple de structure de base que tu peut employé.
Encore que je ne sache pas exactement ce que tu veux faire !
Formation ici : https://plasserre.developpez.com/cours/vb-net/
Cdt
Info
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
