Menu
Connexion Yabiladies Ramadan Radio Forum News
Aide pour Visual Basic
i
9 juin 2010 23:52
Salam,

J'ai besoin d'une petite pour un projet sur ce langage.
J'ai un projet a rendre pour Lundi.

Est ce qu'une âme charitable est dispos a m'aider ce serait gentil ?
b
10 juin 2010 12:46
Salut Rachid..
Si quelqu'un se propose de t'aider ça sera pour un point précis ..pas sur tout le projet . Enfin à mon avis...
Je te propose donc de poser une question précise par rapport à ton blocage tu aura plus d'aide.
sinon il y a des forums intéressant ex: developpez qui m'a tellement facilité la vie.

Bon courage!
c
15 juin 2010 12:09
Ca fait un moment que je n'ais plus développer en Basic.

C'est un langage puissant pour la programmation de logiciel, il existe une version gratuite pour "étudiant" qu'on peut télécharger mais qui ne dispose pas des fonctionnalité à 100%.

C'est quoi précisément ton projet ?

Si tu veut plus d'aide faut aller dans les sites spécialisés comme dit ci-dessus, developpez.com etc...

Mais sur ce site aussi les internautes ne pourrons pas t'aider sur tout le projet, mais juste te donner des indications sur tel ou tel code, faut pas esperer qu'ils fassent le boulot à ta place grinning smiley
Ex-Ouarza
i
15 juin 2010 21:14
Même contre rémunération ? winking smiley

Il me reste quelque feuille a faire dont l'affichage des horaires auparavant sélectionnées dans une autre sub
l'affichage sera affiché dans deux ListBox synchronisées.

l'élevé s'inscrit pour une matière dans une liste et choisi une horaire de passage dans une liste ( scrollbar ) .
mon problème c'est de créer un tableau qui va contenir ses donnée, la partie affichage des choix est déjà faite.

enfaite c'est un programme qui va recueillir les demande d'inscription a une épreuve d'un examen scolaire et faire le bilan des inscriptions. un récapitulatif d'inscription pour un étudiant,récapitulatif des inscriptions pour une matière, récapitulatif des horaires..

je poserai mon code plus tard, ca servira au autre...
c
17 juin 2010 00:11
Tu la gère comment ta base de donnée ? Avec Power AMC ?
Ex-Ouarza
i
17 juin 2010 13:26
J'utilise visual studio 2005
j'ai créé des feuille a l'intérieur d'un projet que j'ai crée en application Windows

Je ne fais aucune requete dans la base de donnée.
des que j'ai les codes sous la main je te les envoies

Merci
a
18 juin 2010 16:53
J'ai bien sûr chargé des polices arabes dans Office 2000 français mais je n'arrive pas saisir des caractères arabes dans les feuilles des macros. Avez-vous une idée comment faire?
i
22 juin 2010 13:57
Voici le code

ça fonctionne mais si quelqu'un pouvait me dire au niveau algorithmique des améliorations à apportées

Merci

ps: remplacer les emoticon par un "winking smiley"


 
 
 Public Class BilanDesInscriptions
 
     Private Sub BTinscription_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTinscription.Click
         Me.Hide()
         FrmInscription.Show()
         Me.Close()
     End Sub
 
     Private Sub BTbilanparnom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTbilanparnom.Click
         Call lister()
         FrmInscription.Hide()
         Me.Hide()
         RecapitulatifInscription.Show()
         'Call lister()
         Me.Close()
 
     End Sub
 
     Private Sub BTbilanparmatiere_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTbilanparmatiere.Click
         Me.Hide()
         RecapitulatifInscriptionMatiere.Show()
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Allemand"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Anglais"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Astronomie"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Biologie"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Chimie"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Droit"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Espagnol"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Français"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Géographie"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Géologie"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Histoire"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Mathématique"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Philosophie"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Physique"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Russe"winking smiley
         RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Théologie"winking smiley
         Me.Close()
     End Sub
 
     Private Sub BTbilanhoraire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTbilanhoraire.Click
         Me.Hide()
         Call RECAP_HORAIRE()
         RecapitulatifDesHoraires.Show()
         Me.Close()
 
     End Sub
 
     Private Sub BilanDesInscriptions_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
     End Sub
 End Class
 
 
 
 Module Debut
 
     Structure matiere0
         Dim un As String
         Dim deux As String
         Dim trois As String
     End Structure
 
     Structure matiereE
         Dim un As String
         Dim deux As String
         Dim trois As String
         Dim quatre As String
         Dim cinq As String
     End Structure
 
     Structure Etudiant
         Dim nom As String
         Dim sexe As String
         Dim academie As String
         Dim heureDemarrage As String
         'Dim matiereEcrit() As String
         'Dim matiereOral() As String
     End Structure
     Dim Tabetudiant(4) As Etudiant
     Dim matiereOral(4) As matiere0
     Dim matiereEcrit(4) As matiereE
     Dim nbp As Integer
     Dim nom As String
     Sub Main()
         Application.Run(Debut1)
     End Sub
     Function RECH(ByVal Inom As String) As Boolean
         Dim i As Integer
         For i = 0 To nbp - 1
             If (nbp = 0) Then Return False
             If (Tabetudiant(i).nom = Inom) Then Return (True)
         Next i
         Return False
     End Function
 
     Function RECH_INDICE_TABLEAU(ByVal Inom As String) As Long
         Dim a As Integer
         For a = 0 To nbp - 1
             If (Tabetudiant(a).nom = Inom) Then Return (a)
         Next a
     End Function
 
     Function RECUP_NOM(ByVal Inom As Long) As String
         Return Tabetudiant(Inom).nom
     End Function
     Function RECUP_sexe(ByVal Inom As Long) As String
         Return Tabetudiant(Inom).sexe
     End Function
     Function RECUP_academie(ByVal Inom As Long) As String
         Return Tabetudiant(Inom).academie
     End Function
     Function RECUP_heure(ByVal Inom As Long) As String
         Return Tabetudiant(Inom).heureDemarrage
     End Function
 
     Sub RECH_MATIERE_ORAL(ByVal Inom As Long)
         RecapitulatifInscription.Oral1.Text = matiereOral(Inom).un
         RecapitulatifInscription.Oral2.Text = matiereOral(Inom).deux
         RecapitulatifInscription.Oral3.Text = matiereOral(Inom).trois
     End Sub
 
     Sub RECH_MATIERE_ECRIT(ByVal Inom As Long)
         RecapitulatifInscription.Ecrit1.Text = matiereEcrit(Inom).un
         RecapitulatifInscription.Ecrit2.Text = matiereEcrit(Inom).deux
         RecapitulatifInscription.Ecrit3.Text = matiereEcrit(Inom).trois
         RecapitulatifInscription.Ecrit4.Text = matiereEcrit(Inom).quatre
         RecapitulatifInscription.Ecrit5.Text = matiereEcrit(Inom).cinq
     End Sub
 
 
 
 
 
     '    Sub RECH2(ByVal Inom As String, ByRef z As Integer)
     'Dim i As Integer
     '   z = i
     '  For i = 0 To nbp - 1
     '     If (nbp = 0) Then
     '        MsgBox("NON INSCRIT"winking smiley
     '       Exit Sub
     '  End If
     ' If (Tabetudiant(i).nom = Inom) Then
     '    Exit Sub
     '        End If
     '        z += 1
     '    Next i
     ' End Sub
 
     Sub Ajout()
 
         If nbp > UBound(Tabetudiant) Then ReDim Preserve Tabetudiant(UBound(Tabetudiant) + 3)
         Tabetudiant(nbp).nom = FrmInscription.TextNom.Text
         If (FrmInscription.RadioHomme.Checked = True) Then
             Tabetudiant(nbp).sexe = "Homme"
         Else
             Tabetudiant(nbp).sexe = "Femme"
         End If
 
         Tabetudiant(nbp).heureDemarrage = FrmInscription.Ltext.Text
         Tabetudiant(nbp).academie = FrmInscription.Label4.Text()
 
         matiereOral(nbp).un = FrmChoixEpreuves.Oral1.Text
         matiereOral(nbp).deux = FrmChoixEpreuves.Oral2.Text
         matiereOral(nbp).trois = FrmChoixEpreuves.Oral3.Text
 
         matiereEcrit(nbp).un = FrmChoixEpreuves.Ecrit1.Text
         matiereEcrit(nbp).deux = FrmChoixEpreuves.Ecrit2.Text
         matiereEcrit(nbp).trois = FrmChoixEpreuves.Ecrit3.Text
         matiereEcrit(nbp).quatre = FrmChoixEpreuves.Ecrit4.Text
         matiereEcrit(nbp).cinq = FrmChoixEpreuves.Ecrit5.Text
 
         nbp += 1
 
     End Sub
 
     Sub lister()
         Dim var As Long
         Dim NombrePers As Long
         NombrePers = nbp - 1
         For var = 0 To NombrePers
             RecapitulatifInscription.ComboBoxNom.Items.Add(Tabetudiant(var).nom)
         Next var
 
     End Sub
 
     Sub AFFICHE_ETUDIANT_PAR_MATIERE_ORAL(ByVal Imatiere As String)
         Dim val As Long
         Dim nombrepers As Long
         nombrepers = nbp - 1
 
         For val = 0 To nombrepers
             If matiereOral(val).un = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxOral.Items.Add(Tabetudiant(val).nom)
             If matiereOral(val).deux = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxOral.Items.Add(Tabetudiant(val).nom)
             If matiereOral(val).trois = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxOral.Items.Add(Tabetudiant(val).nom)
         Next val
     End Sub
 
     Sub AFFICHE_ETUDIANT_PAR_MATIERE_ECRIT(ByVal Imatiere As String)
         Dim val As Long
         Dim nombrepers As Long
         nombrepers = nbp - 1
 
         For val = 0 To nombrepers
             If matiereEcrit(val).un = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxEcrit.Items.Add(Tabetudiant(val).nom)
             If matiereEcrit(val).deux = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxEcrit.Items.Add(Tabetudiant(val).nom)
             If matiereEcrit(val).trois = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxEcrit.Items.Add(Tabetudiant(val).nom)
             If matiereEcrit(val).quatre = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxEcrit.Items.Add(Tabetudiant(val).nom)
             If matiereEcrit(val).cinq = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxEcrit.Items.Add(Tabetudiant(val).nom)
         Next val
     End Sub
 
     Sub RECAP_HORAIRE()
         Dim val As Long
         Dim nombrepers As Long
         nombrepers = nbp - 1
 
         For val = 0 To nombrepers
             RecapitulatifDesHoraires.ListHoraire.Items.Add(Tabetudiant(val).heureDemarrage)
             RecapitulatifDesHoraires.ListNom.Items.Add(Tabetudiant(val).nom)
 
         Next val
 
     End Sub
 
 
 End Module
 
 
 Public Class Debut1
 
 
     Private Sub BTEntrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTEntrer.Click
         Me.Hide()
         FrmInscription.Show()
     End Sub
 
     Private Sub Debut1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
     End Sub
 End Class
 
 
 
 Public Class FrmChoixEpreuves
 
     Dim nbe As Integer 'nb choixEcrit
     Dim nbo As Integer 'nb choixEcrit
 
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         Dim c As CheckBox
         For Each c In PanelEcrit.Controls
             c.Enabled = True
             c.Checked = False
         Next
         Me.Hide()
         FrmInscription.Close()
         FrmInscription.Show()
 
     End Sub
 
     Private Sub PanelEcrit_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PanelEcrit.Paint
 
     End Sub
 
     Private Sub FrmChoixEpreuves_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         CheckBox1.Text = "Allemand"
         CheckBox2.Text = "Anglais"
         CheckBox3.Text = "Astonomie"
         CheckBox4.Text = "Biologie"
         CheckBox5.Text = "Chimie"
         CheckBox6.Text = "Droit"
         CheckBox7.Text = "Espagnol"
         CheckBox8.Text = "Francais"
         CheckBox9.Text = "Géographie"
         CheckBox10.Text = "Géologie"
         CheckBox11.Text = "Histoire"
         CheckBox12.Text = "Mathématique"
         CheckBox13.Text = "Philosophie"
         CheckBox14.Text = "Physique"
         CheckBox15.Text = "Russe"
         CheckBox16.Text = "Théologie"
     End Sub
 
     Private Sub RadioOral_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioOral.CheckedChanged
         CheckBox4.Enabled = False
         CheckBox6.Enabled = False
         CheckBox8.Enabled = False
         CheckBox9.Enabled = False
         CheckBox10.Enabled = False
         CheckBox12.Enabled = False
         CheckBox13.Enabled = False
         CheckBox14.Enabled = False
         Dim i As Integer
         Dim z As CheckBox
         For Each z In PanelEcrit.Controls
             If (z.Checked = True) Then z.Enabled = False
             i += 1
         Next
     End Sub
 
     Private Sub RadioEcrit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioEcrit.CheckedChanged
         Dim i As Integer
         Dim z As CheckBox
         For Each z In PanelEcrit.Controls
             If (z.Checked = True) Then
                 z.Enabled = False
             End If
             i += 1
         Next
     End Sub
 
     Private Sub NbChoix(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged, CheckBox6.CheckedChanged, CheckBox7.CheckedChanged, CheckBox8.CheckedChanged, CheckBox9.CheckedChanged, CheckBox10.CheckedChanged, CheckBox11.CheckedChanged, CheckBox12.CheckedChanged, CheckBox13.CheckedChanged, CheckBox14.CheckedChanged, CheckBox15.CheckedChanged, CheckBox16.CheckedChanged
         If (RadioEcrit.Checked = True) Then
             If sender.checked Then
                 nbe += 1
                 If Not (nbe > 5) Then
                     LabelEcrit.Text = nbe
                     ListBoxEcrit.Items.Add(sender.text)
                 End If
                 If nbe > 5 Then
                     MsgBox("5 matières a l'écrit maximum"winking smiley
                     sender.checked = False
                 End If
             Else
                 ListBoxEcrit.Items.Remove(sender.text)
                 nbe -= 1
                 LabelEcrit.Text = nbe
             End If
         End If
 
         If (RadioOral.Checked = True) Then
             If sender.checked Then
                 nbo += 1
                 If Not (nbo > 3) Then
                     LabelOral.Text = nbo
                     ListBoxOral.Items.Add(sender.text)
                 End If
                 If nbo > 3 Then
                     MsgBox("3 matières a l'oral maximum"winking smiley
                     sender.checked = False
                 End If
             Else
                 ListBoxOral.Items.Remove(sender.text)
                 nbo -= 1
                 LabelOral.Text = nbo
             End If
         End If
     End Sub
 
     Private Sub BTenregistrementDuChoix_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTenregistrementDuChoix.Click
 
 
 
         If (nbe = 5 And nbo = 3) Then
             LabelN.Text = FrmInscription.TextNom.Text
             If (FrmInscription.RadioHomme.Checked = True) Then
                 LS.Text = "Homme"
             Else
                 LS.Text = "Femme"
             End If
             If (FrmInscription.RadioCreteil.Checked = True) Then
                 LabelA.Text = FrmInscription.RadioCreteil.Text
             Else
                 If (FrmInscription.RadioParis.Checked = True) Then
                     LabelA.Text = FrmInscription.RadioParis.Text
                 Else
                     LabelA.Text = FrmInscription.RadioVersailles.Text
                 End If
             End If
             LabelH.Text = FrmInscription.Ltext.Text
             Ecrit1.Text = ListBoxEcrit.Items.Item(0)
             Ecrit2.Text = ListBoxEcrit.Items.Item(1)
             Ecrit3.Text = ListBoxEcrit.Items.Item(2)
             Ecrit4.Text = ListBoxEcrit.Items.Item(3)
             Ecrit5.Text = ListBoxEcrit.Items.Item(4)
 
             Oral1.Text = ListBoxOral.Items.Item(0)
             Oral2.Text = ListBoxOral.Items.Item(1)
             Oral3.Text = ListBoxOral.Items.Item(2)
             PanelBilan.Visible = True
 
         Else
             MsgBox("INSCRIPTION INCORRECTE(veuillez selectionner 5 matières à l'écrit et 3 à l'oral)"winking smiley
         End If
 
         Call Ajout()
     End Sub
 
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTok.Click
 
         Me.Hide()
         FrmInscription.Close()
         FrmInscription.Show()
         Me.Close()
     End Sub
 
     Private Sub PanelBilan_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PanelBilan.Paint
 
     End Sub
 
     Private Sub LabelN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelN.Click
 
     End Sub
 
     Private Sub Ecrit1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit1.Click
 
     End Sub
 
     Private Sub Ecrit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit.Click
 
     End Sub
 
     Private Sub Ecrit2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit2.Click
 
     End Sub
 
     Private Sub ListBoxEcrit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBoxEcrit.SelectedIndexChanged
 
     End Sub
 End Class
 
 
 
 
 Public Class FrmInscription
 
     Private Sub BTarret_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTarret.Click
         End
     End Sub
 
     Private Sub Heure_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles Heure.Scroll
 
     End Sub
 
     Private Sub Heure_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Heure.ValueChanged
         Ltext.Text = Heure.Value
 
         Dim h As Integer
         Dim m As Integer
 
         h = Heure.Value \ 12 + 8
         m = (Heure.Value Mod 12) * 5
 
 
         Ltext.Text = h & " h " & Format(m, "00"winking smiley
 
     End Sub
 
     Private Sub BTenregistrement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTenregistrement.Click
 
 
         Dim trouve As Boolean
         trouve = RECH(TextNom.Text)
         If (TextNom.TextLength = 0) Then
             MsgBox("Entrer un nom!"winking smiley
         Else
             If Not (trouve) Then
                 Me.Hide()
                 FrmChoixEpreuves.Show()
                 'Call Ajout()
             Else
                 MsgBox("Déja inscrit!"winking smiley
 
             End If
         End If
 
 
     End Sub
     Private Sub verifCharac(ByRef c As Char)
         Dim z As Char
         Dim s As String = "äâàéèëêïîöôüû '-ç"
         If (s.IndexOf(c) > -1) Then Exit Sub
         If (c = vbBack) Then Exit Sub
         z = UCase(c)
         If (z >= "A" And z <= "Z"winking smiley Then Exit Sub
         c = Chr(0)
     End Sub
 
     Private Sub NomVerif(ByVal sender As Object, ByVal z As System.Windows.Forms.KeyPressEventArgs) Handles TextNom.KeyPress
         verifCharac(z.KeyChar)
     End Sub
 
     Private Sub TextNom_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextNom.TextChanged
 
     End Sub
 
     Private Sub Ltext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ltext.Click
 
     End Sub
 
     Private Sub FrmInscription_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         ' RecapitulatifInscription.ListPers.Text = Me.Label4.Text
 
     End Sub
 
     Private Sub BTbilanIinscription_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTbilanIinscription.Click
         Me.Hide()
         BilanDesInscriptions.Show()
         Me.Close()
     End Sub
 
     Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
 
     End Sub
 
     Private Sub Sexes(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioFemme.CheckedChanged, RadioHomme.CheckedChanged
         '        Dim HommeOuFemme As String
         '       HommeOuFemme = sender.Tag
         Me.Label2.Text = sender.Tag
 
     End Sub
 
     Private Sub academies(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioVersailles.CheckedChanged, RadioParis.CheckedChanged, RadioCreteil.CheckedChanged
         'Me.Label4.Text = sender.Tag
         If RadioVersailles.Checked = True Then
             Me.Label4.Text = "Versailles"
         ElseIf RadioParis.Checked = True Then
             Me.Label4.Text = "Paris"
         Else
             RadioCreteil.Checked = True
             Me.Label4.Text = "Creteil"
         End If
 
 
     End Sub
 
     Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
 
     End Sub
 
     Private Sub PanelSexe_Enter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PanelSexe.Enter
 
 
     End Sub
 
     Private Sub PanelSexe_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PanelSexe.Paint
 
     End Sub
 End Class
 
 
 
 
 
 Public Class RecapitulatifDesHoraires
 
     Private Sub BTretour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTretour.Click
         Me.Hide()
         BilanDesInscriptions.Show()
         Me.Close()
 
     End Sub
 
     Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListHoraire.SelectedIndexChanged
 
     End Sub
 
     Private Sub RecapitulatifDesHoraires_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
     End Sub
 
     Private Sub ListNom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListNom.SelectedIndexChanged
 
     End Sub
 End Class
 
 
 
 Public Class RecapitulatifInscription
 
 
     Private Sub RecapitulatifInscription_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
     End Sub
 
     
     Private Sub ComboBoxNom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxNom.SelectedIndexChanged
 
 
     End Sub
 
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         Me.Hide()
         BilanDesInscriptions.Show()
         Me.Close()
     End Sub
 
 
     Private Sub LS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LS.Click
 
     End Sub
 
     Private Sub ButtonLister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLister.Click
         Dim indice As Long
         Dim trouve As Boolean
         trouve = RECH(ComboBoxNom.Text)
 
         If Not (trouve) Then
             'Me.Hide()
             'FrmChoixEpreuves.Show()
             'Call Ajout()
             MsgBox("NON INSCRIT!"winking smiley
         Else
             'MsgBox("INSCRIT!"winking smiley
             indice = RECH_INDICE_TABLEAU(ComboBoxNom.Text)
             Me.LabelN.Text = RECUP_NOM(indice)
             Me.LS.Text = RECUP_sexe(indice)
             Me.LabelA.Text = RECUP_academie(indice)
             Me.LabelH.Text = RECUP_heure(indice)
             Call RECH_MATIERE_ORAL(indice)
             Call RECH_MATIERE_ECRIT(indice)
 
         End If
 
 
 
     End Sub
 
     Private Sub LabelH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelH.Click
 
     End Sub
 
     Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
 
     End Sub
 
     Private Sub LabelN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelN.Click
 
     End Sub
 
     Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
 
     End Sub
 
     Private Sub LabelA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelA.Click
 
     End Sub
 
     Private Sub Ecrit1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit1.Click
 
     End Sub
 
     Private Sub Ecrit2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit2.Click
 
     End Sub
 
     Private Sub Ecrit3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit3.Click
 
     End Sub
 
     Private Sub Ecrit4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit4.Click
 
     End Sub
 
     Private Sub Ecrit5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit5.Click
 
     End Sub
 
     Private Sub Oral1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Oral1.Click
 
     End Sub
 
     Private Sub Oral2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Oral2.Click
 
     End Sub
 
     Private Sub Oral3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Oral3.Click
 
     End Sub
 End Class
 
 
 
 
 Public Class RecapitulatifInscriptionMatiere
 
     Private Sub BTretour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTretour.Click
         Me.Hide()
         BilanDesInscriptions.Show()
         Me.Close()
     End Sub
 
     Private Sub ComboBoxMatiere_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxMatiere.SelectedIndexChanged
 
     End Sub
 
     Private Sub RecapitulatifInscriptionMatiere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
     End Sub
 
     Private Sub LabelMatiere_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelMatiere.Click
 
     End Sub
 
     Private Sub ListeEtudiant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListeEtudiant.Click
         Call AFFICHE_ETUDIANT_PAR_MATIERE_ORAL(ComboBoxMatiere.Text)
         Call AFFICHE_ETUDIANT_PAR_MATIERE_ECRIT(ComboBoxMatiere.Text)
     End Sub
 
     Private Sub clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clear.Click
         Me.ListBoxEcrit.Items.Clear()
         Me.ListBoxOral.Items.Clear()
     End Sub
 End Class
 
 
 
 
 
 
 
 
Emission spécial MRE
2m Radio + Yabiladi.com
Facebook