[VB.NET] Une histoire de planning

**Entela** · 08/01/2009, 17h21

Bonjour,
Alors voilà dans le cadre du stage que je fais, je doit réaliser un planning ...
qui permet d'afficher sur une semaine (lundi, mardi ...) en fonction des heures les cours en fonction de l'élève, du prof, et de la salle ..
Afin de réaliser sa j'ai chercher un moment des composent que je pouvais exploiter ....
j'avais trouver sourcegrid ... mais je comprend pas trop comment l'utiliser (c'est pas faute d'avoir lu plusieurs chose sur le sujet ...)
fin bon si quelqu'un pouvait m'expliquer un petit peu comment cela fonctionne cela m'aiderais un peu
et euh si vous voulez une idée de se que je doit produire ..
Là
Merci d'avance ...

**Entela** · 16/01/2009, 10h57

Rebonjour,
Je suis toujours à la recherche d'un peu d'aide sur le sujet ^^" ....
J'ai abandonné mes tentatives d'utilisation de sourcegrid pour mener ce travail à bien (n'arrivais pas a l'utiliser) ...
Résultat j'ai tenté de faire un affichage dans des listbox, une liste box pour un jour ...
Voilà se que sa donne :
ici
Seulement sa ne fait que afficher les uns après les autres les cours dans l'ordre ? Comment obtenir le même résultat mais avec un positionnement précis par heure ?
Pour vous faire un idée du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
   '--------------TEST-----------------
    Private Sub CourAff2(ByVal UnJour As String)
        connexionSQL = Module1.Connexion()
        Dim mySqlQuery As String = "SELECT `NomProf`,`NomE`,`PrenomE`,`NomSalle`,`HeureDeb`,`HeureFin`, `Jour` FROM Cour, CourEleve, Eleve, Profs, Salle WHERE Cour.IdCour=CourEleve.idCour and Eleve.IdEleve=CourEleve.IdEleve and Cour.IdProf=Profs.idProf and Cour.IdSalle=Salle.idsalle Group By Cour.idcour, NomSalle HAVING jour='" & UnJour & "' ORDER BY jour, HeureDeb asc;"
        'Dim mySqlQuery As String = "SELECT `NomProf`,`NomE`,`PrenomE`,`NomSalle`,`HeureDeb`,`HeureFin`,`Jour` FROM Cour, CourEleve, Profs, Eleve, Salle WHERE Cour.IdProf=Profs.idProf and CourEleve.idcour=eleve.idCour and Eleve.idEleve=eleve.idEleve and Cour.IdSalle=Salle.idsalle Group By Cour.idcour, NomSalle HAVING jour='" & UnJour & "' ORDER BY jour, HeureDeb asc;"
        Dim mycommand As New MySqlCommand(mySqlQuery, connexionSQL)
        Dim myreader As MySqlDataReader = mycommand.ExecuteReader()
        Try
            '--- vider le ComboBox ---
            Select Case UnJour
                Case "Lundi"
                    LstcourLundi.Items.Clear()
                Case "Mardi"
                    LstCourMardi.Items.Clear()
                Case "Mercredi"
                    LstCourMercredi.Items.Clear()
                Case "Jeudi"
                    LstCourJeudi.Items.Clear()
                Case "Vendredi"
                    LstCourVendredi.Items.Clear()
                Case "Samedi"
                    'LstcourSamedi.Items.Clear()
                Case "Dimanche"
                    'LstcourDimanche.Items.Clear()
            End Select
            If myreader.HasRows Then
                '--- tant que le DataReader a une ligne d'enregistrements ---
                While myreader.Read
                    ' ajouter la donnée au ComboBox 
                    Select Case UnJour
                        Case "Lundi"
                            LstcourLundi.Items.Add(myreader.GetValue(0))
                            LstcourLundi.Items.Add(myreader.GetValue(1) & "  " & myreader.GetValue(2))
                            LstcourLundi.Items.Add(myreader.GetValue(3))
                            LstcourLundi.Items.Add(myreader.GetValue(4) & vbTab & myreader.GetValue(5))
                            LstcourLundi.Items.Add("____________________")
                        Case "Mardi"
                            LstCourMardi.Items.Add(myreader.GetValue(0))
                            LstCourMardi.Items.Add(myreader.GetValue(1) & vbTab & myreader.GetValue(2))
                            LstCourMardi.Items.Add(myreader.GetValue(3))
                            LstCourMardi.Items.Add(myreader.GetValue(4) & "  " & myreader.GetValue(5))
                            LstCourMardi.Items.Add("____________________")
                        Case "Mercredi"
                            LstCourMercredi.Items.Add(myreader.GetValue(0))
                            LstCourMercredi.Items.Add(myreader.GetValue(1) & vbTab & myreader.GetValue(2))
                            LstCourMercredi.Items.Add(myreader.GetValue(3))
                            LstCourMercredi.Items.Add(myreader.GetValue(4) & "  " & myreader.GetValue(5))
                            LstCourMercredi.Items.Add("____________________")
                        Case "Jeudi"
                            LstCourJeudi.Items.Add(myreader.GetValue(0))
                            LstCourJeudi.Items.Add(myreader.GetValue(1) & vbTab & myreader.GetValue(2))
                            LstCourJeudi.Items.Add(myreader.GetValue(3))
                            LstCourJeudi.Items.Add(myreader.GetValue(4) & "  " & myreader.GetValue(5))
                            LstCourJeudi.Items.Add("____________________")
                        Case "Vendredi"
                            LstCourVendredi.Items.Add(myreader.GetValue(0))
                            LstCourVendredi.Items.Add(myreader.GetValue(1) & vbTab & myreader.GetValue(2))
                            LstCourVendredi.Items.Add(myreader.GetValue(3))
                            LstCourVendredi.Items.Add(myreader.GetValue(4) & "  " & myreader.GetValue(5))
                            LstCourVendredi.Items.Add("____________________")
                        Case "Samedi"
                            'LstcourSamedi.Items.Add(myreader.GetValue(3) & vbTab & myreader.GetValue(4))
                            'LstcourSamedi.Items.Add(myreader.GetValue(0) & "  " & myreader.GetValue(1))
                            'LstcourSamedi.Items.Add(myreader.GetValue(2))
                            'LstcourSamedi.Items.Add("____________________")
                        Case "Dimanche"
                            'LstcourDimanche.Items.Add(myreader.GetValue(3) & vbTab & myreader.GetValue(4))
                            'LstcourDimanche.Items.Add(myreader.GetValue(0) & "  " & myreader.GetValue(1))
                            'LstcourDimanche.Items.Add(myreader.GetValue(2))
                            'LstcourDimanche.Items.Add("____________________")
                    End Select
                End While
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If Not (myreader Is Nothing) Then myreader.Close()
        End Try
        myreader.Close()
        connexionSQL.Close()
    End Sub

Merci d'avance
Eny

**Pol63** · 16/01/2009, 13h33

à vue de nez je tenterais peut etre un tablelayoutpanel, qui permet de faire des cases facilement, dans lesquelles tu peux ensuite ajouter des controles
après tu peux mettre soit des labels soit des choses plus complexes ... ou plusieurs controles meme ...

**Entela** · 16/01/2009, 14h17

Merci ^^
Yeah j'y ai pensé au tableLayoutPanel ...
J'ai fait ceci

(juste niveau apparence pour tester
Là
Mon problème c'est afficher dynamiquement mes données dessus ?
J'ai trouver comment jouer sur le positionnement, mais si mon groupebox par exemple n'existe pas dessus le tlp ben je n'arrive pas a le créer ...
Un petit coup de pouce pour me lancer serais bienvenu :p
Merci d'avance ^^
Eny

EDIT : En fait j'ai trouver comment créer mon objet dynamiquement :p j'ai plus qu'a faire mon code pour afficher mes donner au bon endroit .....

**Pol63** · 16/01/2009, 14h42

pas compris ton problème, mais après le but c'est d'instancier des controles
puis de faire monTLP.controls.Add()
et j'ai trouvé .SetColumn donc il doit y avoir SetRow, pour définir dans quelle case est le controle
avec un peu de chance, en dockant ca reste dans la case (.dock)

**Entela** · 16/01/2009, 14h59

Ben en fait mon problème était d'obtenir qu'un groupbox se crée quand on clique sur ok (bon sa c'est pour tester) et je n'y arrivais pas, ...
Sinon j'avais trouver comment positionner (setrowspan, setrowcolumn, .....)
Fin sa j'ai fini pas trouver en regardent dans la fac ^^
maintenant il me reste plus qu'a faire une boucle qui me crée une groupe box en fonction du jour, et de l'heure, avec les donnés (salle, et prof) qui m'intéressent ^^
Mais sa devrai aller sa suffit de réfléchir un peu (dur dur pour le cervo lol)

Par contre je comprend pas trop l'histoire de docker ?

[VB.NET] Une histoire de planning

Windows Forms

Vue hybride

Discussions similaires

Partager

Partager