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 |
Partager