Pasti karena eSPT ya ? :)
Coba lihat2 code di bawah (silakan modifikasi sendiri sesuai logika yg anda
inginkan - kalau di sini, memunculkan dialog box supaya user memilih regional
setting yg sesuai, sama seperti eSPT)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As
Long
Const SW_SHOWNORMAL = 1
Public Const LOCALE_SENGCOUNTRY = &H1002 ' English name of country
Const cMAXLEN = 255
Public Const LOCALE_SYSTEM_DEFAULT& = &H800
Public Const LOCALE_USER_DEFAULT& = &H400
Private Declare Function apiGetLocaleInfo Lib "kernel32" _
Alias "GetLocaleInfoA" (ByVal Locale As Long, _
ByVal LCType As Long, ByVal lpLCData As String, _
ByVal cchData As Long) As Long
Function fLocaleInfo(lngLCType As Long) As String
Dim lngLocale As Long
Dim strLCData As String, lngData As Long
Dim lngX As Long
strLCData = String$(cMAXLEN, 0)
lngData = cMAXLEN - 1
lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, lngLCType, _
strLCData, lngData)
If lngX <> 0 Then
fLocaleInfo = Left$(strLCData, lngX - 1)
End If
End Function
Sub Main()
Dim dblReturn As Double
Dim RegSetting As String
RegSetting = fLocaleInfo(LOCALE_SENGCOUNTRY)
If RegSetting <> "United States" Then
MsgBox "Anda menggunakan Regional Setting " & RegSetting & vbCrLf &
"Anda harus mengganti Regional Setting menjadi English(United States)",
vbOKOnly + vbInformation
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL
intl.cpl,,0", 5)
End
End If
End Sub
Liung's
www.apktntajd.com (Ape Kate Ente Aje Deh!)
----- Original Message -----
From: indra gunawan
To: [email protected]
Sent: Wednesday, May 16, 2007 12:57 PM
Subject: RE: [Programmer-VB] Merubah Format Regional Option pada Regional
Setting XP lewat VB6
Kalau menurut saya di aplikasi develop.harus ada dua procedure settingan
1.. Merubah Format apapun menjadi English.
2.. Merubah Format apapun menjadi indonesia
Saat login atau first load, jalankan procedure menjadi English (No.1) dan
pada saat LogOFF dari aplikasi maka rubah procedure menjadi Indonesia (No.2)
Dengan begitu setingan pada sebelum menggunakan aplikasi dengan sesudah
aplikasi tidak akan berubah
Kalau dari postingan anda, berarti anda sudah memiiki script untuk merubah
region kan.? Tinggal dirubah aja script nya menjadi English dan Indonesia, dan
panggilnya sesuai kebutuhan aja (firstload nya dan log offnya)
------------------------------------------------------------------------------
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of
ChipMunks
Sent: Thursday, May 17, 2007 11:36
To: benpinterya
Subject: Re: [Programmer-VB] Merubah Format Regional Option pada Regional
Setting XP lewat VB6
benpinterya
benpinterya> Rekan-rekan programmer,
benpinterya>
benpinterya> Ada hal yang ingin saya tanyakan mengenai Regional Setting.
benpinterya> Di PC User (Win XP) ada 2 aplikasi yang satu aplikasi jadi, kita
benpinterya> sebut Aplikasi A dan satu lagi Aplikasi yang kami develop dengan
VB6
benpinterya> kita sebut Aplikasi B.
benpinterya> Pada PC User, setting default formatnya adalah "English [United
benpinterya> States]"
benpinterya> kalau user membuka Aplikasi A, maka regional Option pada
Regional
benpinterya> Setting berubah menjadi format "Indonesia", saat user selesai
benpinterya> memakai Aplikasi A, saat keluar Regional formatnya tidak kembali
benpinterya> menjadi "English [United States]" tetapi tetap "Indonesia", ini
benpinterya> menimbulkan masalah saat user memakai aplikasi B dimana
benpinterya> formatnya "English [United States]".
benpinterya> Solusi yang hendak kami ambil adalah merevisi regional format
benpinterya> menjadi "English [United States]" saat masuk ke menu utama dan
jika
benpinterya> keluar/selesai dari aplikasi, formatnya kembali menjadi seperti
benpinterya> format sebelumnya.
benpinterya>
benpinterya> Mohon pencerahannya, terima kasih sebelumnya
benpinterya>
benpinterya> Salam,
benpinterya> Ferry
rubah lagi regional settingnya lewat aplikasi yang dibikin pake VB
Salam,
ChipMunks (Copy Paste Programmer)
mailto: [EMAIL PROTECTED]
Yahoo : Henqy
Skype : Hengky_Purnomo
.
