VB6からレジストリの変更をする。 sShortDate(短い形式)

解決

最上級初心者 2003-10-29 18:30:19 No: 109557 IP: [192.*.*.*]

掲示板をお借りして質問をさせて頂きます。

VB6 SP5を使用。

VB6から、HKEY_CURRENT_USER\Control Panel\International にあるsShortDate の中をyy/MM/dd に書き換えたいのですが、
どなたか分かるかたがいらっしゃいましたら、教えていただけると幸いです。

宜しくお願いします。

編集削除

batchman 2003-10-30 15:54:14 No: 109558 IP: [192.*.*.*]

こんな感じでテストして出来ました。

Private Const LOCALE_SSHORTDATE As Long = &H1F  'short date format string

Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long

Private Sub Form_Load()

    Dim lngLCID As Long
    Dim lngRet  As Long
    Dim strBuff As String

    lngLCID = GetUserDefaultLCID
    strBuff = "yy/MM/dd" & vbNullChar
    lngRet = SetLocaleInfo(lngLCID, LOCALE_SSHORTDATE, strBuff)

End Sub

編集削除

最上級初心者 2003-10-30 17:49:27 No: 109559 IP: [192.*.*.*]

ありがとうございました。

変更することができました。
とても感謝しています。
また、分からない事がありましたら、その時は宜しくお願いします。

編集削除