Creation grid

cs_hustler Messages postés 85 Date d'inscription mercredi 17 septembre 2003 Statut Membre Dernière intervention 20 mars 2012 - 28 juil. 2008 à 10:02
cs_hustler Messages postés 85 Date d'inscription mercredi 17 septembre 2003 Statut Membre Dernière intervention 20 mars 2012 - 28 juil. 2008 à 10:04
Bonjour à tout le monde,

Je suis en train de réaliser un petit logiciel de planning et j'affiche le planning des agents par service sur un mois
Il y a environ 20 agents par service

J'ai utilisé le systeme de génération :

Function CreatLigne(LblDyna As Object, LblNum As Integer, ligRepas As Integer)
    Load LblDyna(LblNum)
    If ligRepas = 0 Then
        LblDyna(LblNum).Top = LblNom(LblNum - 1).Top + LblNom(LblNum).Height
    Else
        LblDyna(LblNum).Top = LblNom(LblNum - 1).Top + (LblNom(LblNum).Height * 2)
    End If
    LblDyna(LblNum).Visible = False
    LblDyna(LblNum).Caption = ""
    LblDyna(LblNum).BackColor = &H80000005
    LblDyna(LblNum).ToolTipText = ""
End Function

Ce systeme fonctionne trés bien cependant il est trop lent
Je me disais qu'il serait peut etre sympa d'utiliser les grid mais je fais un affichage

http://img76.imageshack.us/my.php?image=planningde8.jpg

L'image ci-dessus est le resultat de ce que j'obtiens actuellement
Il me faudrait un resultat ressemblant à ça
Est ce que cela est possible ? Et si oui comment

MErci beaucoup pour votre aide

1 réponse

cs_hustler Messages postés 85 Date d'inscription mercredi 17 septembre 2003 Statut Membre Dernière intervention 20 mars 2012
28 juil. 2008 à 10:04




0
Rejoignez-nous