Declare Function EnumDateFormats Lib "KERNEL32" Alias "EnumDateFormats" (ByVal lpDateFmtEnumProc As Long, ByVal Locale As Long, ByVal dwFlags As Long) As Long
解决方案 »
- 求winsock一个问题的解决代码
- 请问有VB控件的编写方面的教程吗
- 帮忙想一函数名,实现xxx(“A”,5) 结果为“AAAAA”
- "SELECT * INTO [EXCEL 8.0;DATABASE=C:\info.XLS].[info] FROM [info] "
- 求助:怎么样在ActiveBar控件的菜单中加入最近使用文件??
- 急!!!关于usb转串口使用MSComm 控件的问题?
- 怎么使程序运行在进程里面,就象QQ和杀毒软件一样,不是在应用程序里面?
- 如何得到一个汉字+字母字符串的长度(字节个数)?
- 如何获得某控件和类名?
- 兄弟姐妹们,有没有人懂VBA??
- 再贴老问题:请问VB中类似BringWindowToTop的是那一个函数?
- 怎样清除动态增加的控件
And I already find a way to do it ,that's seting the resgister key "HKEY_CURRENT_USER\Control Panel\International\sShortDate" for the first question .
but the second question still at here .
which one can get me a nicety solving . Thanks .
Public Declare Function SetTimeZoneInformation Lib "kernel32" Alias "SetTimeZoneInformation" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
Public Type TIME_ZONE_INFORMATION
Bias As Long
StandardName(32) As Integer
StandardDate As SYSTEMTIME
StandardBias As Long
DaylightName(32) As Integer
DaylightDate As SYSTEMTIME
DaylightBias As Long
End Type
在模块里需调用两个函数。然后根据结构TIME_ZONE_INFORMATION的声明尝试一下就ok.
Could get me a fine example .