ADDYSHEDULE : VISUALISEUR DE PROGRAMMES

Commentaire de Patrice99 le 30/12/2005 10:04:03

Bravo pour ta source. Pour que ta démo fonctionne du premier coup, je te conseille de changer le chemin de sortie en .\ au lieu de bin\Debug

Commentaire de crocejf2000 le 11/04/2007 09:01:34

Salut,

Merci beaucoup pour cette source dont je m'inspire grandement pour faire mon propre contôle planning.
Je la trouve très bien écrite, malgré le manque de commentaires sur certaines fonctions.
10/10 !!

Commentaire de casy le 15/09/2008 19:15:36

Zut, je suis pas sur que ma note ait été prise en compte, donc je la remet

Commentaire de jsiAngers le 17/05/2009 16:00:03

Bonjour,

Merci pour cette source.

Elle m'est très utile.

Je suis en train de faire quelques améliorations :
Exemple : pour permettre la mise en place d'un libellé automatique pour la ligne
Protected Overridable Sub OnQueryRowHeader(ByVal e As HeaderEventArgs)
        '*** Modification JSI du 17/05/09
        'Recherche l'item correspondant à la ligne appelée
        Dim i As Integer
        Dim item As New SheduleItem
        item.Text = "Ligne" & e.Index

        For i = 0 To Items.Count - 1
            If i = e.Index Then
                item = Items(i)
            End If
        Next
        e.Text = item.Text '"Ligne" & e.Index
        RaiseEvent QueryRowHeader(Me, e)
    End Sub

Commentaire de zaimfaycal le 13/12/2009 14:08:31

Salut
Merci Addy beaucoup pour cette source

Mais pour mois je travaille sur un projet de gestion des emplois du temps pour un établissement scolaire et je  ne maîtrise que le langage visuel basic .net alors je me demande si il y  un support qui explique comment travaillé avec ce magnifique contrôle pour que je puisse traduire ce code en vb.net et merci d'avance

pour la note c' est 10/10 et même plus :)

Commentaire de zaimfaycal le 14/12/2009 17:37:55

merciii, mais j'ai constaté que les donnée se stock sur un fichier xml ,est ce que c'est possible de les stocké dans une base de donné SQL SERVER :D et comment si c'est possible :p
Et désolé pour le dérangement

Commentaire de zaimfaycal le 30/12/2009 13:12:08

Salut
Merci addy pour l'aide, mais j'ai tjrs un problème, c que pour mon projet le 'SheduleItem' dois contenir les champs suivant :
  
    Jour as single
    Heuredebut as single
    HeureFin As Single
    Tag As Object
    Formateur As String
    Annéeformation As String
    Secteur As String
    Filiere As String
    Niveau As String
    Groupe As String
    Modul As String
    Salle As String
    Minutedebut As Double
    MinuteFin As Double
J'ai refait le code du SheduleItem (j'ai pu réalisé ce code):


    'Début du code

Imports System.ComponentModel


< _
ToolboxItem(False), _
DesignTimeVisible(False) _
> _
Public Class SheduleItem
    Inherits Component
#Region " Champs "
    Private _CODE As String
    ' Private m_Category As Integer
    Private _Jour As Integer
    Private m_SubRow As Integer
    Private _Heuredebut As Single
    Private _HeureFin As Single
    Private _Tag As Object
    Private _Formateur As String
    Private _Annéeformation As String
    Private _Secteur As String
    Private _Filiere As String
    Private _Niveau As String
    Private _Groupe As String
    Private _Modul As String
    Private _Salle As String
    Private _Minutedebut As Double
    Private _MinuteFin As Double
#End Region

#Region " Constructeurs "
    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal text As String)
        MyBase.New()
        _CODE = text
    End Sub

    Public Sub New(ByVal text As String, ByVal row As Integer, ByVal subRow As Integer, _
            ByVal firstCol As Single, ByVal lastCol As Single)
        MyBase.New()
        _CODE = text
        _Jour = row
        _Heuredebut = firstCol
        _HeureFin = lastCol
    End Sub
#End Region

#Region " Propriétés "
    < _
    Category("Appearance"), _
    Description("Texte qui s'affiche sur la cellule"), _
    DefaultValue("") _
    > _
    Public Property Text() As String
        Get
            Return _CODE
        End Get
        Set(ByVal Value As String)
            _CODE = Value
            OnTextChanged(EventArgs.Empty)
        End Set
    End Property

    '< _
    'Category("Appearance"), _
    'Description("Renvoie/Défini la catégorie à laquelle la cellule appartient"), _
    'DefaultValue(0) _
    '> _
    'Public Property Category() As Integer
    '    Get
    '        Return m_Category
    '    End Get
    '    Set(ByVal Value As Integer)
    '        m_Category = Value
    '        OnCategoryChanged(EventArgs.Empty)
    '    End Set
    'End Property

    < _
    Category("Coordonnées"), _
    Description("Renvoie/Défini le numéro de ligne de la cellule"), _
    DefaultValue(0) _
    > _
    Public Property Row() As Integer
        Get
            Return _Jour
        End Get
        Set(ByVal Value As Integer)
            _Jour = Value
            OnRowChanged(EventArgs.Empty)
        End Set
    End Property

    < _
    Category("Coordonnées"), _
    Description("Renvoie/Défini la division de ligne dans laquelle la cellule apparaît"), _
    DefaultValue(0) _
    > _
    Public Property SubRow() As Integer
        Get
            Return m_SubRow
        End Get
        Set(ByVal Value As Integer)
            m_SubRow = Value
            OnSubRowChanged(EventArgs.Empty)
        End Set
    End Property

    < _
    Category("Coordonnées"), _
    Description("Renvoie/Défini la colonne qui délimite la cellule à gauche"), _
    DefaultValue(8.0F) _
    > _
    Public Property FirstColumn() As Single
        Get
            Return _Heuredebut
        End Get
        Set(ByVal Value As Single)
            _Heuredebut = Value
            OnFirstColumnChanged(EventArgs.Empty)
        End Set
    End Property

    < _
    Category("Coordonnées"), _
    Description("Renvoie/Défini la colonne qui délimite la cellule à droite"), _
    DefaultValue(8.0F) _
    > _
    Public Property LastColumn() As Single
        Get
            Return _HeureFin
        End Get
        Set(ByVal Value As Single)
            _HeureFin = Value
            OnLastColumnChanged(EventArgs.Empty)
        End Set
    End Property

    < _
    Category("Data"), _
    Description("Donnée quelconque associée à la cellule"), _
    TypeConverter("System.ComponentModel.StringConverter, System") _
    > _
    Public Property Tag() As Object
        Get
            Return _Tag
        End Get
        Set(ByVal Value As Object)
            _Tag = Value
        End Set
    End Property
    < _
  Category("Data"), _
  Description("Donnée quelconque associée à la cellule"), _
  TypeConverter("System.ComponentModel.StringConverter, System") _
  > _
  Public Property Formateur() As String
        Get
            Return _Formateur
        End Get
        Set(ByVal value As String)
            _Formateur = value
        End Set
    End Property
    < _
Category("Data"), _
Description("Donnée quelconque associée à la cellule"), _
TypeConverter("System.ComponentModel.StringConverter, System") _
> _
Public Property Annéeformation() As String
        Get
            Return _Annéeformation
        End Get
        Set(ByVal value As String)
            _Annéeformation = value
        End Set
    End Property

    < _
Category("Data"), _
Description("Donnée quelconque associée à la cellule"), _
TypeConverter("System.ComponentModel.StringConverter, System") _
> _
Public Property Secteur() As String
        Get
            Return _Secteur
        End Get
        Set(ByVal value As String)
            _Secteur = value
        End Set
    End Property

    < _
Category("Data"), _
Description("Donnée quelconque associée à la cellule"), _
TypeConverter("System.ComponentModel.StringConverter, System") _
> _
Public Property Niveau() As String
        Get
            Return _Niveau
        End Get
        Set(ByVal value As String)
            _Niveau = value
        End Set
    End Property
    < _
Category("Data"), _
Description("Donnée quelconque associée à la cellule"), _
TypeConverter("System.ComponentModel.StringConverter, System") _
> _
Public Property Filiere() As String
        Get
            Return _Filiere
        End Get
        Set(ByVal value As String)
            _Filiere = value
        End Set
    End Property


    < _
Category("Data"), _
Description("Donnée quelconque associée à la cellule"), _
TypeConverter("System.ComponentModel.StringConverter, System") _
> _
Public Property Groupe() As String
        Get
            Return _Groupe
        End Get
        Set(ByVal value As String)
            _Groupe = value
        End Set
    End Property
    < _
Category("Data"), _
Description("Donnée quelconque associée à la cellule"), _
TypeConverter("System.ComponentModel.StringConverter, System") _
> _
Public Property Minutedebut() As Double
        Get
            Return _Minutedebut
        End Get
        Set(ByVal value As Double)
            _Minutedebut = value
        End Set
    End Property
    < _
Category("Data"), _
Description("Donnée quelconque associée à la cellule"), _
TypeConverter("System.ComponentModel.StringConverter, System") _
> _
Public Property MinuteFin() As Double
        Get
            Return _MinuteFin
        End Get
        Set(ByVal value As Double)
            _MinuteFin = value
        End Set
    End Property
    < _
Category("Data"), _
Description("Donnée quelconque associée à la cellule"), _
TypeConverter("System.ComponentModel.StringConverter, System") _
> _
Public Property Modul() As String
        Get
            Return _Modul
        End Get
        Set(ByVal value As String)
            _Modul = value
        End Set
    End Property
    < _
Category("Data"), _
Description("Donnée quelconque associée à la cellule"), _
TypeConverter("System.ComponentModel.StringConverter, System") _
> _
Public Property Salle() As String
        Get
            Return _Salle
        End Get
        Set(ByVal value As String)
            _Salle = value
        End Set
    End Property
    <Browsable(False)> _
      Public ReadOnly Property Width() As Single
        Get
            Return _HeureFin - _Heuredebut
        End Get
    End Property
#End Region

#Region " Evènements "
    Public Event TextChanged(ByVal sender As Object, ByVal e As EventArgs)
    Protected Overridable Sub OnTextChanged(ByVal e As EventArgs)
        RaiseEvent TextChanged(Me, e)
    End Sub

    Public Event CategoryChanged(ByVal sender As Object, ByVal e As EventArgs)
    Protected Overridable Sub OnCategoryChanged(ByVal e As EventArgs)
        RaiseEvent CategoryChanged(Me, e)
    End Sub

    Public Event RowChanged(ByVal sender As Object, ByVal e As EventArgs)
    Protected Overridable Sub OnRowChanged(ByVal e As EventArgs)
        RaiseEvent RowChanged(Me, e)
    End Sub

    Public Event SubRowChanged(ByVal sender As Object, ByVal e As EventArgs)
    Protected Overridable Sub OnSubRowChanged(ByVal e As EventArgs)
        RaiseEvent SubRowChanged(Me, e)
    End Sub

    Public Event FirstColumnChanged(ByVal sender As Object, ByVal e As EventArgs)
    Protected Overridable Sub OnFirstColumnChanged(ByVal e As EventArgs)
        RaiseEvent FirstColumnChanged(Me, e)
    End Sub

    Public Event LastColumnChanged(ByVal sender As Object, ByVal e As EventArgs)
    Protected Overridable Sub OnLastColumnChanged(ByVal e As EventArgs)
        RaiseEvent LastColumnChanged(Me, e)
    End Sub
#End Region

End Class


    'Fin du code


mais ça marche pas
je me demande est ce que vous pouvez m'aider
et mercii