KLO MENURUT SAYA SYNTAXNYA HARUS DITARUH DI MODULE.... SOALNYA KHAN EXECUTE FILE API.... ----- Original Message ----- From: "Purwedi Kurniawan" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Tuesday, June 14, 2005 1:47 PM Subject: Re: [Programmer-VB] (unknown)
> coba diletakkan di module, jangan di form. > > best regards. > > On 6/14/05, budi budi <[EMAIL PROTECTED]> wrote: > > Terima kasih untuk mderator VB & mr. Purwedi K, atas > > jawabannya. > > namun saya masih belum mengerti setelah sintak > > procedure ini saya letakkan di form kenapa masih ada > > error di baris pertama ini ? > > > > > Private Declare Function GetUserDefaultLCID% Lib > > > "kernel32" () > > > > > > Private Declare Function SetLocaleInfo Lib > > > "kernel32" Alias > > > "SetLocaleInfoA" (ByVal locale As Long, ByVal LCType > > > As Long, ByVal > > > lpLCData As String) As Boolean > > > > > > Public Sub SetShortDateFormat(sShortDate As String) > > > Dim iRet As Long, locale As Long > > > locale = GetUserDefaultLCID() > > > iRet = SetLocaleInfo(locale, LOCALE_SSHORTDATE, > > > sShortDate) > > > If iRet Then > > > Debug.Print "successfully change system > > > short date format" > > > End If > > > End Sub > > > > apakah private delcare nya harus di taruh di module > > atau dimana ? > > > > Terima kasih . > > > > --- Purwedi Kurniawan <[EMAIL PROTECTED]> > > wrote: > > > > > coba gunakan procedure berikut ini: > > > > > > '---- > > > Private Declare Function GetUserDefaultLCID% Lib > > > "kernel32" () > > > > > > Private Declare Function SetLocaleInfo Lib > > > "kernel32" Alias > > > "SetLocaleInfoA" (ByVal locale As Long, ByVal LCType > > > As Long, ByVal > > > lpLCData As String) As Boolean > > > > > > Public Sub SetShortDateFormat(sShortDate As String) > > > Dim iRet As Long, locale As Long > > > locale = GetUserDefaultLCID() > > > iRet = SetLocaleInfo(locale, LOCALE_SSHORTDATE, > > > sShortDate) > > > If iRet Then > > > Debug.Print "successfully change system > > > short date format" > > > End If > > > End Sub > > > '-------- > > > ' contoh: > > > ' setshortdateformat "dd-mm-yyyy" > > > ' > > > > > > Regards... > > > On 6/10/05, budi budi <[EMAIL PROTECTED]> wrote: > > > > saya baru pertama kali melihat dan menuli dalam > > > member > > > > ini , dan sebelumnya saya ucapkan terima kasi > > > kepada > > > > vb moderator. > > > > > > > > saya ingin tanyakan kepada teman temang siapa tau > > > bisa > > > > bantu saya. > > > > > > > > setting format tanggal yang saya inginkan > > > DD-MM-YYYY , > > > > yang secara otomatis dapat mempengaruhi control > > > panel. > > > > > > > > sebagai conoh , sewaktu form tersebut blm di klik > > > , > > > > format masih mm-dd-yyyy, setelah form tsb di buka > > > maka > > > > format tanggal untuk pc tsb menjadi dd-mm-yyyy > > > > > > > > semoga mailing list vb + moderator dapat membantu > > > saya > > > > > > > > > > > > > > > > > __________________________________ > > Discover Yahoo! > > Have fun online with music videos, cool games, IM and more. Check it out! > > http://discover.yahoo.com/online.html > > > > > > Untuk keluar dari millis ini, kirim email kosong ke: > > [EMAIL PROTECTED] > > > > > > Yahoo! Groups Links > > > > > > > > > > > > > > > > > > > Untuk keluar dari millis ini, kirim email kosong ke: > [EMAIL PROTECTED] > > > Yahoo! Groups Links > > > > > > Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
