Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 12 12:10:30

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Control

> COULEUR MIRC ET SMILEY POUR RICHTEXTBOX VB.NET 2005

COULEUR MIRC ET SMILEY POUR RICHTEXTBOX VB.NET 2005

Information sur la source

Note :

10,00 / 10

Catégorie :Control

Classé sous :couleur, smiley, mirc, richtexbox, chat Niveau :Initié Date de création :11/07/2005 Vu :14 022

Auteur : yohan49

Ecrire un message privé

Site perso

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

toutes les couleur mirc et et exemple de smiley a vous d'en rajouter a votre guise

:)

a mettre dans un module

et a appeller

addmsg(nom de la form ou se trouve a richtextbox , le texte a afficher , le pseudo de la personne qui a envoiye le message)

voir capture

je posterais bientot le script entier

Source

Imports System.Drawing.Color
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Runtime.InteropServices
Imports System
Imports System.Threading
Module couleur
Const WM_VSCROLL As Integer = &H115
Const SB_BOTTOM As Integer = 7
Declare Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr
Public Function addmsg(ByVal salon As String, ByVal msg23 As String, Optional ByVal nickmessage As String = "") As Boolean
Dim gras As Boolean = False
Dim Couleur As String = "1"
Dim CouleurArr As String = "0"
Dim MyChar As String
Dim MyChar2 As String
Dim Co As String = ""
Dim cntrl As Control
Dim Rich As RichTextBox = Nothing
Dim N_Form As Form
Dim souligne As Boolean = False
Dim arr As Boolean = False
Dim carr As String = "0"
For Each N_Form In Principale.MdiChildren
If N_Form.Name = salon Then
For Each cntrl In N_Form.Controls
If TypeOf cntrl Is RichTextBox Then
Rich = cntrl
Exit For
End If
Next
End If
Next
Try
If nickmessage <> "" Then
With Rich
.SelectionStart = Len(Rich.Text)
.SelectionProtected = False
.SelectionStart = Len(Rich.Text) + 1
.SelectionBackColor = White
.SelectionColor = coul(Couleur)
.SelectedText = vbNewLine & TimeOfDay & " : << " & nickmessage & " >> "
.SelectionProtected = True
End With
Else
With Rich
.SelectionStart = Len(Rich.Text)
.SelectionProtected = False
.SelectionStart = Len(Rich.Text) + 1
.SelectionColor = coul(Couleur)
.SelectionBackColor = White
.SelectedText = vbNewLine & TimeOfDay
.SelectionProtected = True
End With
End If
'les smiley
Dim longueur As Integer = Len(msg23)
For X As Integer = 1 To longueur
Dim debug As Integer = X
MyChar2 = Mid(msg23, X, 2)
Select Case MyChar2
Case ":|"
Clipboard.SetDataObject(New Bitmap(Application.StartupPath & "\Smiley\blaze.png"))
Rich.SelectionProtected = False
Rich.SelectionStart = Len(Rich.Text) - 1
Rich.SelectedText = ""
Rich.Paste()
Rich.SelectionProtected = True
Dim ms1 As String = Mid(msg23, 1, X - 1)
Dim ms2 As String = Mid(msg23, X + 2, Len(msg23))
msg23 = ms1 & ms2
Case ":)"
Clipboard.SetDataObject(New Bitmap(Application.StartupPath & "\Smiley\heureux.jpg"))
Rich.SelectionProtected = False
Rich.SelectionStart = Len(Rich.Text) - 1
Rich.SelectedText = ""
Rich.Paste()
Rich.SelectionProtected = True
Dim ms1 As String = Mid(msg23, 1, X - 1)
Dim ms2 As String = Mid(msg23, X + 2, Len(msg23))
msg23 = ms1 & ms2
Case LCase("? ")
Clipboard.SetDataObject(New Bitmap(Application.StartupPath & "\Smiley\ question.gif()"))
Rich.SelectionProtected = False
Rich.SelectionStart = Len(Rich.Text) - 1
Rich.SelectedText = ""
Rich.Paste()
Rich.SelectionProtected = True
Dim ms1 As String = Mid(msg23, 1, X - 1)
Dim ms2 As String = Mid(msg23, X + 2, Len(msg23))
msg23 = ms1 & ms2
End Select
'traiment de chaque caractere
MyChar = Mid(msg23, X, 1)
Select Case MyChar
Case Chr(3)
Do While IsNumeric(Mid(msg23, X, 1)) Or Mid(msg23, X, 1) = "," Or Mid(msg23, X, 1) = Chr(3)
Co = Co & Mid(msg23, X, 1)
X = X + 1
Loop
Couleur = Replace(Co, Chr(3), "")
If InStr(Couleur, ",") <> 0 Then
CouleurArr = Mid(Couleur, InStr(Couleur, ",") + 1, Len(Couleur))
Couleur = Mid(Couleur, 1, InStr(Couleur, ",", CompareMethod.Text) - 1)
End If
If Len(Couleur) > 2 Then
Couleur = Mid(Couleur, 1, 2)
X = X - 1
End If
If Len(CouleurArr) > 2 Then
CouleurArr = Mid(CouleurArr, 1, 2)
X = X - 1
End If
X = X - 1
Co = ""
Case Chr(2)
gras = IIf(gras = False, True, False)
Case Else
If MyChar = Chr(1) Or MyChar = Chr(15) Or MyChar = Chr(31) Or MyChar = Chr(3) Or MyChar = Chr(2) Then MyChar = ""
If Couleur = "" Then Couleur = "1"
If CType(Couleur, Integer) > 15 Then Couleur = "1"
If CouleurArr = "" Then CouleurArr = "0"
If CType(CouleurArr, Integer) > 15 Then CouleurArr = "0"
If gras = True Then
Dim bfont As New Font(Rich.Font, FontStyle.Bold)
With Rich
.SelectionProtected = False
.SelectionFont = bfont
.SelectionStart = Len(Rich.Text) + 1
.SelectionBackColor = coul(CouleurArr)
.SelectionColor = coul(Couleur)
.SelectedText = MyChar
.SelectionProtected = True
End With
Else
Dim bfont As New Font(Rich.Font, FontStyle.Regular)
With Rich
.SelectionProtected = False
.SelectionFont = bfont
.SelectionStart = Len(Rich.Text) + 1
.SelectionBackColor = coul(CouleurArr)
.SelectionColor = coul(Couleur)
.SelectedText = MyChar
.SelectionProtected = True
End With
End If
End Select
Next
Dim Tfont As New Font(Rich.Font, FontStyle.Regular)
With Rich
.SelectionProtected = False
.SelectionFont = Tfont
.SelectionStart = Len(Rich.Text) + 1
.SelectionBackColor = coul("0")
.SelectionColor = coul("1")
.SelectedText = ""
.SelectionProtected = True
End With
SendMessage(Rich.Handle, WM_VSCROLL, SB_BOTTOM, 0)
Catch ex As Exception
Dim sfont As New Font(Rich.Font, FontStyle.Regular)
With Rich
.SelectionProtected = False
.SelectionFont = sfont
.SelectionStart = Len(Rich.Text) + 1
.SelectionBackColor = coul("0")
.SelectionColor = coul("1")
.SelectedText = ""
.SelectionProtected = True
End With
SendMessage(Rich.Handle, WM_VSCROLL, SB_BOTTOM, 0)
End Try
End Function
Private Function coul(ByVal num As Integer) As Color
Select Case num
Case 0 : coul = Color.FromArgb(255, 255, 255)
Case 1 : coul = Color.FromArgb(0, 0, 0)
Case 2 : coul = Color.FromArgb(0, 0, 127)
Case 3 : coul = Color.FromArgb(0, 127, 0)
Case 4 : coul = Color.FromArgb(255, 0, 0)
Case 5 : coul = Color.FromArgb(127, 0, 0)
Case 6 : coul = Color.FromArgb(127, 0, 127)
Case 7 : coul = Color.FromArgb(255, 127, 0)
Case 8 : coul = Color.FromArgb(255, 255, 0)
Case 9 : coul = Color.FromArgb(0, 255, 0)
Case 10 : coul = Color.FromArgb(63, 127, 127)
Case 11 : coul = Color.FromArgb(0, 255, 255)
Case 12 : coul = Color.FromArgb(0, 0, 255)
Case 13 : coul = Color.FromArgb(255, 0, 255)
Case 14 : coul = Color.FromArgb(127, 127, 127)
Case 15 : coul = Color.FromArgb(191, 191, 191)
Case Else : coul = Color.FromArgb(0, 0, 0)
End Select
End Function

Imports System.Drawing.Color
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Runtime.InteropServices
Imports System
Imports System.Threading
Module couleur

    Const WM_VSCROLL As Integer = &H115
    Const SB_BOTTOM As Integer = 7
    Declare Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr

    Public Function addmsg(ByVal salon As String, ByVal msg23 As String, Optional ByVal nickmessage As String = "") As Boolean
        Dim gras As Boolean = False
        Dim Couleur As String = "1"
        Dim CouleurArr As String = "0"
        Dim MyChar As String
        Dim MyChar2 As String
        Dim Co As String = ""
        Dim cntrl As Control
        Dim Rich As RichTextBox = Nothing
        Dim N_Form As Form

        Dim souligne As Boolean = False
        Dim arr As Boolean = False
        Dim carr As String = "0"
        For Each N_Form In Principale.MdiChildren
            If N_Form.Name = salon Then
                For Each cntrl In N_Form.Controls
                    If TypeOf cntrl Is RichTextBox Then
                        Rich = cntrl
                        Exit For
                    End If
                Next
            End If
        Next
        Try
            If nickmessage <> "" Then
                With Rich
                    .SelectionStart = Len(Rich.Text)
                    .SelectionProtected = False
                    .SelectionStart = Len(Rich.Text) + 1
                    .SelectionBackColor = White
                    .SelectionColor = coul(Couleur)
                    .SelectedText = vbNewLine & TimeOfDay & " : << " & nickmessage & " >> "
                    .SelectionProtected = True
                End With
            Else
                With Rich
                    .SelectionStart = Len(Rich.Text)
                    .SelectionProtected = False
                    .SelectionStart = Len(Rich.Text) + 1
                    .SelectionColor = coul(Couleur)
                    .SelectionBackColor = White
                    .SelectedText = vbNewLine & TimeOfDay
                    .SelectionProtected = True
                End With
            End If



            'les smiley 
            Dim longueur As Integer = Len(msg23)
            For X As Integer = 1 To longueur
                Dim debug As Integer = X

                MyChar2 = Mid(msg23, X, 2)
                Select Case MyChar2
                    Case ":|"
                        Clipboard.SetDataObject(New Bitmap(Application.StartupPath & "\Smiley\blaze.png"))
                        Rich.SelectionProtected = False
                        Rich.SelectionStart = Len(Rich.Text) - 1
                        Rich.SelectedText = ""
                        Rich.Paste()
                        Rich.SelectionProtected = True
                        Dim ms1 As String = Mid(msg23, 1, X - 1)
                        Dim ms2 As String = Mid(msg23, X + 2, Len(msg23))
                        msg23 = ms1 & ms2

                    Case ":)"
                        Clipboard.SetDataObject(New Bitmap(Application.StartupPath & "\Smiley\heureux.jpg"))
                        Rich.SelectionProtected = False
                        Rich.SelectionStart = Len(Rich.Text) - 1
                        Rich.SelectedText = ""
                        Rich.Paste()
                        Rich.SelectionProtected = True
                        Dim ms1 As String = Mid(msg23, 1, X - 1)
                        Dim ms2 As String = Mid(msg23, X + 2, Len(msg23))
                        msg23 = ms1 & ms2

    
                    Case LCase("? ")
                        Clipboard.SetDataObject(New Bitmap(Application.StartupPath & "\Smiley\ question.gif()"))
                        Rich.SelectionProtected = False
                        Rich.SelectionStart = Len(Rich.Text) - 1
                        Rich.SelectedText = ""
                        Rich.Paste()
                        Rich.SelectionProtected = True
                        Dim ms1 As String = Mid(msg23, 1, X - 1)
                        Dim ms2 As String = Mid(msg23, X + 2, Len(msg23))
                        msg23 = ms1 & ms2

                End Select


                'traiment de chaque caractere
                MyChar = Mid(msg23, X, 1)
                Select Case MyChar

                    Case Chr(3)
                        Do While IsNumeric(Mid(msg23, X, 1)) Or Mid(msg23, X, 1) = "," Or Mid(msg23, X, 1) = Chr(3)
                            Co = Co & Mid(msg23, X, 1)
                            X = X + 1
                        Loop
                        Couleur = Replace(Co, Chr(3), "")
                        If InStr(Couleur, ",") <> 0 Then
                            CouleurArr = Mid(Couleur, InStr(Couleur, ",") + 1, Len(Couleur))
                            Couleur = Mid(Couleur, 1, InStr(Couleur, ",", CompareMethod.Text) - 1)
                        End If
                        If Len(Couleur) > 2 Then
                            Couleur = Mid(Couleur, 1, 2)
                            X = X - 1
                        End If


                        If Len(CouleurArr) > 2 Then
                            CouleurArr = Mid(CouleurArr, 1, 2)
                            X = X - 1
                        End If
                        X = X - 1
                        Co = ""

                    Case Chr(2)
                        gras = IIf(gras = False, True, False)

                    Case Else
                        If MyChar = Chr(1) Or MyChar = Chr(15) Or MyChar = Chr(31) Or MyChar = Chr(3) Or MyChar = Chr(2) Then MyChar = ""
                        If Couleur = "" Then Couleur = "1"
                        If CType(Couleur, Integer) > 15 Then Couleur = "1"
                        If CouleurArr = "" Then CouleurArr = "0"
                        If CType(CouleurArr, Integer) > 15 Then CouleurArr = "0"

                        If gras = True Then
                            Dim bfont As New Font(Rich.Font, FontStyle.Bold)
                            With Rich
                                .SelectionProtected = False
                                .SelectionFont = bfont
                                .SelectionStart = Len(Rich.Text) + 1
                                .SelectionBackColor = coul(CouleurArr)
                                .SelectionColor = coul(Couleur)
                                .SelectedText = MyChar
                                .SelectionProtected = True
                            End With
                        Else
                            Dim bfont As New Font(Rich.Font, FontStyle.Regular)
                            With Rich
                                .SelectionProtected = False
                                .SelectionFont = bfont
                                .SelectionStart = Len(Rich.Text) + 1
                                .SelectionBackColor = coul(CouleurArr)
                                .SelectionColor = coul(Couleur)
                                .SelectedText = MyChar
                                .SelectionProtected = True
                            End With
                        End If

                End Select
            Next
            Dim Tfont As New Font(Rich.Font, FontStyle.Regular)
            With Rich
                .SelectionProtected = False
                .SelectionFont = Tfont
                .SelectionStart = Len(Rich.Text) + 1
                .SelectionBackColor = coul("0")
                .SelectionColor = coul("1")
                .SelectedText = ""
                .SelectionProtected = True
            End With
            SendMessage(Rich.Handle, WM_VSCROLL, SB_BOTTOM, 0)

        Catch ex As Exception

            Dim sfont As New Font(Rich.Font, FontStyle.Regular)
            With Rich
                .SelectionProtected = False
                .SelectionFont = sfont
                .SelectionStart = Len(Rich.Text) + 1
                .SelectionBackColor = coul("0")
                .SelectionColor = coul("1")
                .SelectedText = ""
                .SelectionProtected = True
            End With
            SendMessage(Rich.Handle, WM_VSCROLL, SB_BOTTOM, 0)
        End Try
    End Function

    Private Function coul(ByVal num As Integer) As Color
        Select Case num
            Case 0 : coul = Color.FromArgb(255, 255, 255)
            Case 1 : coul = Color.FromArgb(0, 0, 0)
            Case 2 : coul = Color.FromArgb(0, 0, 127)
            Case 3 : coul = Color.FromArgb(0, 127, 0)
            Case 4 : coul = Color.FromArgb(255, 0, 0)
            Case 5 : coul = Color.FromArgb(127, 0, 0)
            Case 6 : coul = Color.FromArgb(127, 0, 127)
            Case 7 : coul = Color.FromArgb(255, 127, 0)
            Case 8 : coul = Color.FromArgb(255, 255, 0)
            Case 9 : coul = Color.FromArgb(0, 255, 0)
            Case 10 : coul = Color.FromArgb(63, 127, 127)
            Case 11 : coul = Color.FromArgb(0, 255, 255)
            Case 12 : coul = Color.FromArgb(0, 0, 255)
            Case 13 : coul = Color.FromArgb(255, 0, 255)
            Case 14 : coul = Color.FromArgb(127, 127, 127)
            Case 15 : coul = Color.FromArgb(191, 191, 191)
            Case Else : coul = Color.FromArgb(0, 0, 0)
        End Select

    End Function

Sources du même auteur

RICHTEXBOX TRANSPARENTE EN VB.NET

CONVERTION DE L'HEURE DU TOPIC MIRC EN DATE ET HEURE

FAIRE DESCENDRE LA SCROOLBAR AUTOMATIQUEMENT EN FIN DE TEXT ...

COMMANDER UN CONTROLE SITUER UNE FORME DEPUIS UNE AUTRE FORM

CREER PROGRAMME AUTONOME EXEMPLE

Toutes les sources de yohan49

Sources de la même categorie

COMMUNICATION MODBUS MASTER par sergelapointe

DÉPLACEMENT AVEC FLÈCHES DANS UN PAVÉ DE TEXTBOX 9X9 DYNAMIQ... par EhJoe

CONTROLSTARS EN RÉPONSE À JAKNIGHT007 par bigboss9

CALENDRIER ANNUEL NORME ISO par Prog1001

CONTROLE STARS par jaknight007

Toutes les sources de la catégorie Control

Sources en rapport avec celle ci

APPLICATION APPORTANT DE LA SÉCURITÉ POUR MIRC, PROTECTION, ... par SpOrTiF

CHAT ASYNCHROME SERVEUR/CLIENT AVEC GESTION DE SMILEYS, TR... par fdiedler2000

TCHATTER AVEC MIRC SUR SMAIL par annesirine

METTRE DES SMILEYS DANS UN PROGRAMME DE CHAT!!! par Koiu

VB TO MIRC par max12

Commentaires et avis

Commentaire de yohan49 le 11/07/2005 18:44:56

du fait que chaque caractere soit analyse un par un c meme mes style d'ecriture les plus complexe sont retranscrite a l'identique seul bug connue c quand un user utilise ce script ! : ŠhaMan script ! et remarque vu comment il a ete fait c pas etonnant ! lol

5 ctrl+K avant de mettre le numero de couleur , c du nawak lol

Commentaire de sub-zero le 12/07/2005 09:11:22

ya t'il une autre facon pour insérer des bitmap que de passer par le clipboard?

Commentaire de yohan49 le 12/07/2005 10:13:44

si regarde dans les sources , j'ai vu un code pour inserrer une image sans le clipboard :)

Commentaire de jrbleboss le 12/07/2005 15:33:35

Sa a l'air j'ai le framework mais j'ai la fleme de regarder.

JRB

Commentaire de liquide le 15/07/2005 19:49:14

SUB-ZERO, va voir dans mes sources, sans le presse papier.

Commentaire de lordskyser1 le 18/07/2005 10:43:31

Bonjour, pourrait-on avoir le zip s'il te plaît? Au revoir

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

developper un chat comme Mirc [ par EMSIEN ] Salut voilà vous l'avez peut etre compris je veux résaliser un chat comme par exemple Mirc,mais avant me lancer je veux faire un Mini_chat(e richtexbox et couleur [ par mathieu57100 ] bonjour,j'ai dans mon appli un richtexbox qui me sert à faire apparaitre un journal...est-il possible de mettre la police de certaines lignes dans une Détecter l'écran de veille [ par cmoeckes ] Bonjour,Y-a-t-il un moyen de détecter avec mIRC que l'écran de veille s'est lancé sur le PC ?Le but est de lancer un petit script en cas de déclenchem Détecter l'écran de veille [ par cmoeckes ] Bonjour,Y-a-t-il un moyen de détecter avec mIRC que l'écran de veille s'est lancé sur le PC ?Le but est de lancer un petit script en cas de déclenchem Détecter l'écran de veille [ par cmoeckes ] Bonjour,Y-a-t-il un moyen de détecter avec mIRC que l'écran de veille s'est lancé sur le PC ?Le but est de lancer un petit script en cas de déclenchem comment faire un chat entre machine sous reseau par internet [ par spliceh ] bonjourcomment creer un chat entre deux machines d'un sous reseau par internet .est il possible de le faire avec les sockets? puisque les adresse ne s comment faire un chat entre machine sous reseau par internet [ par spliceh ] bonjourcomment creer un chat entre deux machines d'un sous reseau en utilisant une connexion internet. est 'il possible avec les sockets? puisque les comment faire un chat entre machine sous reseau par internet [ par spliceh ] bonjourcomment creer un chat entre deux machines d'un sous reseau en utilisant une connexion internet. est 'il possible avec les sockets? puisque les Comment récuperer la couleur d'une pixel d'un pictureBox dans .Net [ par neoleo ] Salut à touscomment faire pour lire la couleur d'une pixel bien précise en .Net En vb6 on pouvais faire Couleur = MyPictureBox.Point(x,y) Comment modifier la couleur des séries dans un graphique ? [ par toto76 ] Bonjour,Un des objectif de mon apllication est d'afficher un graph en histo sur une feuille avec 7 colonnes. J'ai des valeurs positives et des valeurs

Nos sponsors

Derniers Blogs

SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc

[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

Forum

RE : UN NOM EGALE UNE COULEUR par mibri

RE : UN NOM EGALE UNE COULEUR par ucfoutu

RE : UN NOM EGALE UNE COULEUR par mibri

RE : UN NOM EGALE UNE COULEUR par ucfoutu

RE : UN NOM EGALE UNE COULEUR par mibri

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning