01.
Private
Sub
frmMain_Load(sender
As
Object
, e
As
EventArgs)
Handles
MyBase
.Load
02.
Dim
dt
As
DateTimeFormatInfo = Thread.CurrentThread.CurrentCulture.DateTimeFormat
03.
Me
.dtPicker.CustomFormat =
" "
04.
Me
.dtPicker.Format = DateTimePickerFormat.Custom
05.
End
Sub
06.
07.
Private
Sub
dtPicker_DropDown(sender
As
Object
, e
As
EventArgs)
Handles
dtPicker.DropDown
08.
Dim
dt
As
DateTimeFormatInfo = Thread.CurrentThread.CurrentCulture.DateTimeFormat
09.
Me
.dtPicker.CustomFormat =
"dd MMM yyyy"
10.
Me
.dtPicker.Format = DateTimePickerFormat.Custom
11.
End
Sub
12.
13.
Private
Sub
dtPicker_CloseUp(sender
As
Object
, e
As
EventArgs)
Handles
dtPicker.CloseUp
14.
15.
Dim
_cultureTHInfo
As
New
Globalization.CultureInfo(
"th-TH"
)
16.
Dim
dateThai = Convert.ToDateTime(
Me
.dtPicker.Value, _cultureTHInfo)
17.
Me
.lblThai.Text = dateThai.ToString(
"dd MMM yyyy"
, _cultureTHInfo)
18.
19.
20.
Dim
_cultureEnInfo
As
New
Globalization.CultureInfo(
"en-US"
)
21.
Dim
dateEng = Convert.ToDateTime(
Me
.dtPicker.Value, _cultureEnInfo)
22.
Me
.lblEng.Text = dateEng.ToString(
"dd MMM yyyy"
, _cultureEnInfo)
23.
End
Sub