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 <*> 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/
