【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：main_sz.frm绩等信息，祝愿广大网友取得需要的信息，参考学习。

    VERSION 5.00
    Begin VB.Form main_sz 
       Caption         =   "在程序中改变日期和时间格式"
       ClientHeight    =   4410
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   5490
       LinkTopic       =   "Form1"
       ScaleHeight     =   4410
       ScaleWidth      =   5490
       StartUpPosition =   2  '屏幕中心
       Begin VB.Frame Frame2 
          Caption         =   "长日期格式"
          Height          =   1065
          Left            =   240
          TabIndex        =   8
          Top             =   1245
          Width           =   5010
          Begin VB.ComboBox Combo2 
             Height          =   300
             Left            =   195
             Style           =   2  'Dropdown List
             TabIndex        =   9
             Top             =   495
             Width           =   4590
          End
          Begin VB.Label Label2 
             Caption         =   "长日期"
             Height          =   240
             Left            =   270
             TabIndex        =   10
             Top             =   270
             Width           =   930
          End
       End
       Begin VB.CommandButton cmdLDate 
          Caption         =   "改变长日期格式"
          Height          =   420
          Left            =   1935
          TabIndex        =   7
          Top             =   3765
          Width           =   1575
       End
       Begin VB.Frame Frame3 
          Caption         =   "时间格式"
          Height          =   1065
          Left            =   240
          TabIndex        =   4
          Top             =   2460
          Width           =   5010
          Begin VB.ComboBox Combo3 
             Height          =   300
             Left            =   195
             Style           =   2  'Dropdown List
             TabIndex        =   5
             Top             =   390
             Width           =   4590
          End
       End
       Begin VB.Frame Frame1 
          Caption         =   "短日期格式"
          Height          =   1065
          Left            =   240
          TabIndex        =   2
          Top             =   75
          Width           =   5010
          Begin VB.ComboBox Combo1 
             Height          =   300
             Left            =   195
             Style           =   2  'Dropdown List
             TabIndex        =   3
             Top             =   495
             Width           =   4590
          End
          Begin VB.Label Label1 
             Caption         =   "短日期"
             Height          =   240
             Left            =   270
             TabIndex        =   6
             Top             =   270
             Width           =   930
          End
       End
       Begin VB.CommandButton cmdSDate 
          Caption         =   "改变短日期格式"
          Height          =   420
          Left            =   240
          TabIndex        =   1
          Top             =   3765
          Width           =   1575
       End
       Begin VB.CommandButton cmdTime 
          Caption         =   "改变时间格式"
          Height          =   420
          Left            =   3615
          TabIndex        =   0
          Top             =   3765
          Width           =   1575
       End
    End
    Attribute VB_Name = "main_sz"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Const REG_SZ = 1
    Const HKEY_CURRENT_USER = &H80000001
    Private Declare Function RegCreateKey Lib "advapi32.dll" Alias _
       "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _
       phkResult As Long) As Long
    Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
       "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
       ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, _
       ByVal cbData As Long) As Long
    Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
    (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
    Private Sub Form_Load()
        '短日期格式列表
        Combo1.AddItem "yyyy-M-d"
        Combo1.AddItem "yy-M-d"
        Combo1.AddItem "yy-MM-dd"
        Combo1.AddItem "yyyy-MM-dd"
        Combo1.ListIndex = 3
        '长日期格式列表
        Combo2.AddItem "yyyy年M月d日"
        Combo2.AddItem "yyyy MM dd"
        Combo2.AddItem "dddd yyyy MM dd"
        Combo2.AddItem "dddd yyyy年M月d日"
        Combo2.ListIndex = 0
        '时间格式列表
        Combo3.AddItem "H点mm分"
        Combo3.AddItem "H:mm:ss"
        Combo3.AddItem "HH:mm:ss"
        Combo3.AddItem "tt h:mm:ss"
        Combo3.AddItem "tt hh:mm:ss"
        Combo3.ListIndex = 0
    End Sub
    Private Sub cmdSDate_Click()
        Dim ret2 As Long
        Dim sd As String
        ret2 = RegOpenKey(HKEY_CURRENT_USER, "Control Panel\International", hKey)
        If ret2 = 0 Then
            sd = Combo1.Text
            RegSetValueEx hKey, "sShortDate", "0", REG_SZ, ByVal sd, LenB(StrConv(sd, vbFromUnicode))
            MsgBox "日期格式已设置成功，重新启动计算机或注销后可以看到新的短日期格式！", , "提示窗口"
        End If
    End Sub
    Private Sub cmdLDate_Click()
        Dim ret3 As Long
        Dim ld As String
        ret3 = RegOpenKey(HKEY_CURRENT_USER, "Control Panel\International", hKey)
        If ret3 = 0 Then
            ld = Combo2.Text
            RegSetValueEx hKey, "sLongDate", "0", REG_SZ, ByVal ld, LenB(StrConv(ld, vbFromUnicode))
            MsgBox "日期格式已设置成功，重新启动计算机或注销后可以看到新的长日期格式！", , "提示窗口"
        End If
    End Sub
    Private Sub cmdTime_Click()
        Dim ret1 As Long
        Dim t As String
        ret1 = RegOpenKey(HKEY_CURRENT_USER, "Control Panel\International", hKey)
        If ret1 = 0 Then
            t = Combo3.Text
            RegSetValueEx hKey, "sTimeFormat", "0", REG_SZ, ByVal t, LenB(StrConv(t, vbFromUnicode))
            MsgBox "时间格式已设置成功，重新启动计算机或注销后可以看到新的时间格式！", , "提示窗口"
        End If
    End Sub