怎么编程在任务栏的时间旁边显示几个汉字

如何编程在任务栏的时间旁边显示几个汉字
如何编程在任务栏的时间旁边显示几个汉字


在网上找到这段代码,请大哥修改一下:


Private Const LOCALE_STIMEFORMAT = &H1003
Private Const LOCALE_SSHORTDATE = &H1F
Private Const WM_SETTINGCHANGE = &H1A
Private Const HWND_BROADCAST = &HFFFF&
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Sub setdateformat()
Dim dwLCID As Long, i As Long
Dim lpLCData As String * 255, cchData
cchData = Len(lpLCData)
dwLCID = GetSystemDefaultLCID()
i = SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "YYYY/dd/mm") '设置短日期格式
PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0

i = SetLocaleInfo(dwLCID, 32, "YYYY/dd/mm") '设置长日期格式
PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0

i = SetLocaleInfo(dwLCID, LOCALE_STIMEFORMAT, "HH:mm:ss") '设置时间格式
PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
End Sub
Private Sub Form_Load()
Call setdateformat
End Sub

------最佳解决方案--------------------

Private Const LOCALE_STIMEFORMAT = &H1003

Private Const LOCALE_SSHORTDATE = &H1F

Private Const WM_SETTINGCHANGE = &H1A

Private Const HWND_BROADCAST = &HFFFF&

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

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

Private Const LOCALE_S1159 = &H28        '  AM designator


Private Const LOCALE_S2359 = &H29        '  PM designator


Private Sub setdateformat()

Dim dwLCID As Long, i As Long

Dim lpLCData As String * 255, cchData