Discussion :

[jujupiplette]

Bonjour, je suis actuellement en stage.
Je viens de créer une .dll afficher la date/heure en temps réel en VB.NEt avec visual studio 2010.

Je souhaiterais pouvoir definir par une liste déroulante les valeur par défaut des types d'affichage de la date
(exemple : "dd/MM/yyyy HH:mm:ss" ou "dddd dd MMMM yyyy HH:mm:ss" ou ...)
J'ai effectué un SELECT : case dans mon code pour afficher la date en fonction du type défini. Mais je n'arrive pas a effectuer une liste déroulante des différents formats possible.


soit "dd/MM/yyyy HH:mm:ss" et "dddd dd MMMM yyyy" et "HH:mm:ss" et .... au lieu de (aucun)
J'ai effectuée un ComboBox pour obtenir se résultat.
mais lorsque j'ajoute les items : (exemple) maPropriete.Items.Add("HH:mm:ss")
je retrouve cet item dans : les propriété de ma propriété : items
explication : comme on peut voir sur l'image précédente. a gauche de ma propriété il y a une petite fèche. et bien lorsque je clique dessus il y a d'autre nombreuse propriété qui s'ouvre. dont la propriété : items la ou je retrouve mes items ajouté.

lorsque je compile ma .dll ma liste reste a (aucun).

voila mon code actuel

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
Imports System.ComponentModel
Imports System.Windows.Forms
 
 
Public Class UserControl1
    <Category("TOTO"), Description("Option d'affichage du label dateTime")>
 
Property maPropriete As New ComboBox
    Private Sub loadDataMaPropriete()
        maPropriete.Items.Add("HH:mm:ss")
        maPropriete.Items.Add("dd/MM/yyyy")
        maPropriete.Items.Add("dddd dd MMMM yyyy")
        maPropriete.Items.Add("dddd dd MMMM yyyy HH:mm:ss")
        maPropriete.Items.Add("dd/MM/yyyy HH:mm:ss")
        'Dim tab() As String = {"dd/MM/yyyy HH:mm:ss", "dddd dd MMMM yyyy HH:mm:ss", "dd/MM/yyyy", "dddd dd MMMM yyyy", "HH:mm:ss"}
        'maPropriete.DataSource = tab
    End Sub
    Private Sub UserControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        loadDataMaPropriete()
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Select Case maPropriete
        '    Case "dd/MM/yyyy HH:mm:ss" : lblDateTime.Text = Date.Now.ToString("dd/MM/yyyy HH:mm:ss")
        '    Case "dddd dd MMMM yyyy HH:mm:ss" : lblDateTime.Text = Date.Now.ToString("dddd dd MMMM yyyy  HH:mm:ss")
        '    Case "dd/MM/yyyy" : lblDateTime.Text = Date.Now.ToString("dd/MM/yyyy")
        '    Case "dddd dd MMMM yyyy" : lblDateTime.Text = Date.Now.ToString("dddd dd MMMM yyyy")
        '    Case "HH:mm:ss" : lblDateTime.Text = Date.Now.ToString("HH:mm:ss")
        '    Case El
        '        lblDateTime.Text = Date.Now.ToString("dd/MM/yyyy HH:mm:ss")
        'End Select
 
        lblDateTime.Text = Date.Now.ToString("dd/MM/yyyy HH:mm:ss")
    End Sub
End Class

mon select est en commentaire, puisque je ne l'ai pas re-modifier depuis que j'ai transformé ma propriété qui était en string en List(Of string)

Merci d'avance.

[jujupiplette]

a force de recherche et tests. voici le résultat :

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
 
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Globalization
 
Public Class UserControl1
 
#Region "CREATION DE LA PROPRIETE (dateFormat) DU COMPOSANT"
    <Category("PARAMETRAGE DE LA DATE"), Description("Choix de l'affichage du label dateTime")>
    Private m_dateFrancais As ValeursPossibles
    Public Property dateFormat() As ValeursPossibles
        Get
            Return m_dateFrancais
        End Get
        Set(ByVal value As ValeursPossibles)
            m_dateFrancais = value
        End Set
    End Property
#End Region
 
#Region "PROCEDURE PERMETANT D'INITIALISER LES VALEURS DE LA PROPRIETE (dateFormat) en français"
    Public Enum ValeursPossibles As Integer
        none
        dd_MM_yyyy_HH_mm_ss = 1
        dddd_dd_MMMM_yyyy_HH_mm_ss = 2
        dd_MM_yyyy = 3
        dddd_dd_MMMM_yyyy = 4
        HH_mm_ss = 5
        MM_dd_yyyy_hh_mm_ss_tt = 6
        dddd_MMMM_dd_yyyy_hh_mm_ss_tt = 7
        MM_dd_yyyy = 8
        dddd_MMMM_dd_yyyy = 9
        hh_mm_ss_tt = 10
    End Enum
#End Region
 
 
#Region "EVENEMENT SUR COMPOSANT"
    Private Sub UserControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
#End Region
 
 
#Region "AFFICHAGE DE LA DATE SELON OPTION CHOISIE"
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Dim frc As CultureInfo = New CultureInfo("fr-FR")
        Dim enc As CultureInfo = New CultureInfo("en-US")
        Select Case dateFormat
            Case 1 : lblDateTime.Text = Date.Now.ToString("dd/MM/yyyy HH:mm:ss", frc)
            Case 2 : lblDateTime.Text = Date.Now.ToString("dddd dd MMMM yyyy  HH:mm:ss", frc)
            Case 3 : lblDateTime.Text = Date.Now.ToString("dd/MM/yyyy", frc)
            Case 4 : lblDateTime.Text = Date.Now.ToString("dddd dd MMMM yyyy", frc)
            Case 5 : lblDateTime.Text = Date.Now.ToString("HH:mm:ss", frc)
            Case 6 : lblDateTime.Text = Date.Now.ToString("MM/dd/yyyy hh:mm:ss tt", enc)
            Case 7 : lblDateTime.Text = Date.Now.ToString("dddd, MMMM dd, yyyy  hh:mm:ss tt", enc)
            Case 8 : lblDateTime.Text = Date.Now.ToString("MM/dd/yyyy", enc)
            Case 9 : lblDateTime.Text = Date.Now.ToString("dddd, MMMM dd, yyyy", enc)
            Case 10 : lblDateTime.Text = Date.Now.ToString("hh:mm:ss tt", enc)
            Case Else
                lblDateTime.Text = Date.Now.ToString("dd/MM/yyyy HH:mm:ss", frc)
        End Select
 
    End Sub
#End Region
 
End Class

voila.