VBS教程：函数-SetLocale 函数
更新时间：2006年11月16日 00:00:00 作者：
SetLocale 函数
Sets the global locale and returns the previous locale.
SetLocale(lcid)
lcid 参数可以是任意一个合法的 32 位数值或短字符串，该值必须唯一标识一个地理区域。能被识别的值可以查阅 区域设置 ID 表。
说明
若 lcid 为零，区域被设置为与当前系统设置匹配。
一个 locale 是用户参考信息集合，与用户的语言、国家和文化传统有关。该 locale 决定键盘布局、字母排序顺序和日期、时间、数字与货币格式。
下面举例说明 SetLocale 函数的用法。要使用该代码，请复制标准HTML 文件中 <BODY> 标志之间的所有内容。
Enter Date in UK format: <input type="text" id="UKDate" size="20"><p>Here's the US equivalent: <input type="text" id="USdate" size="20"><p><input type="button" value="Convert" id="button1"><p>Enter a price in German: <input type="text" id="GermanNumber" size="20"><p>Here's the UK equivalent: <input type="text" id="USNumber" size="20"><p><input type="button" value="Convert" id="button2"><p><script language="vbscript">Dim currentLocale' Get the current localecurrentLocale = GetLocaleSub Button1_onclick Dim original original = SetLocale("en-gb") mydate = CDate(UKDate.value) ' IE always sets the locale to US English so use the ' currentLocale variable to set the locale to US English original = SetLocale(currentLocale) USDate.value = FormatDateTime(mydate,vbShortDate)End SubSub button2_onclick Dim original original = SetLocale("de") myvalue = CCur(GermanNumber.value) original = SetLocale("en-gb") USNumber.value = FormatCurrency(myvalue)End Sub</script> 请参阅
相关文章
原理看代码吧,挺简单的. 这个只是测试代码,只屏蔽单个键. 虽然是测试代码,但拿去骗MM绝对可以 如果你实在看不懂,你就运行吧....看疗效 我只在WIN2003下测试,2K系列因该是没问题的.2008-02-02
这篇文章主要介绍了通过vbs修改以点结尾的文件的属性为隐藏,需要的朋友可以参考下2016-12-12
VBS教程：对象-File 对象...2006-11-11
VBS教程：对象-Matches 集合...2006-11-11
ComboBox 控件和ListBox 控件在功能上很相似，很多情况下，这两个控件是可以互换使用的，但是还是有某种特定的环境下只适合使用一种控件的情况。下面通过本文给大家介绍下ComboBox 控件的用法教程，一起看看吧2016-11-11
VBS基础编程教程 (第3篇)...2007-12-12
VBS教程：方法-Raise 方法...2006-11-11
WMI中的Win32_PingStatus类(ping命令实现)
平时很少用到ping命令，所以这个类也没怎么用过，测试了一下，好像效率比ping要高。计算ping 100次jb51.net延迟的平均值。2011-01-01
取TM自动登录代码并防止关闭(自动登录)2008-06-06
VBS教程：函数-Eval 函数...2006-11-11
最新评论