iya betul tuh kayanya.. emang e-spt bikin pusing tuh.. mesti ubah2 regional setting...
======================= http://www.fire888.com -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of [EMAIL PROTECTED] Sent: Wednesday, May 16, 2007 2:24 PM To: [email protected] Subject: Re: [Programmer-VB] Merubah Format Regional Option pada Regional Setting XP lewat VB6 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 .
