各位大虾,请帮忙啊!!!
解决方案 »
- 下拉框问题
- 小弟刚刚接触这行不久,请问什么是ODBC
- 如何将窗口像金山词霸一样最小化为图标,并且让图标闪烁
- 好的代码的阅读可以学习到很到东西,例如编程技巧,好的代码风格等等。那位大侠能推荐一些VB大师写的好的代码
- ****关于VB的问题,请教各位!!****
- :)byte 和 str 函数的相互转换
- excel怎么增加滚动条
- 如何用installshield将一个字体文件在安装时复制到windir/fonts目录下
- 请问怎样把Recordset中的数字字段(ID)变成字符串字段,赋给另一个Recordset?
- 关于TEXT窗口输入的问题??
- 有人知道通过VB的方法获取Windows的语言版本是中文还是英文?
- 各位好心的前辈们,我现在急须请教大家一个问题何用ListView控件连接Access数据库的一张表
Dim g_ComputerLanguageAs Long
g_ComputerLanguage = GetUserDefaultLangID
If g_ComputerLanguage = 2052 Then
Label1.Caption = "The Language ID is Chinese(Simplified)"
ElseIf g_ComputerLanguage = 1028 Then
Label1.Caption = "The Language ID is Chinese(Simplified)"
ElseIf g_ComputerLanguage = 1033 Then
Label1.Caption = "The Language ID English"
End If
End Sub
Public Const LANG_BULGARIAN& = &H2
Public Const LANG_CROATIAN& = &H1A
Public Const LANG_CZECH& = &H5
Public Const LANG_DANISH& = &H6
Public Const LANG_DUTCH& = &H13
Public Const LANG_ENGLISH& = &H9
Public Const LANG_FINNISH& = &HB
Public Const LANG_FRENCH& = &HC
Public Const LANG_GERMAN& = &H7
Public Const LANG_GREEK& = &H8
Public Const LANG_HUNGARIAN& = &HE
Public Const LANG_ICELANDIC& = &HF
Public Const LANG_ITALIAN& = &H10
Public Const LANG_JAPANESE& = &H11
Public Const LANG_KOREAN& = &H12
Public Const LANG_NEUTRAL& = &H0
Public Const LANG_NORWEGIAN& = &H14
Public Const LANG_POLISH& = &H15
Public Const LANG_PORTUGUESE& = &H16
Public Const LANG_ROMANIAN& = &H18
Public Const LANG_RUSSIAN& = &H19
Public Const LANG_SLOVAK& = &H1B
Public Const LANG_SLOVENIAN& = &H24
Public Const LANG_SPANISH& = &HA
Public Const LANG_SWEDISH& = &H1D
Public Const LANG_TURKISH& = &H1F
'函数声明
Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
'例子代码
Dim lngLCID As Long
Dim lngLangID As Long
lngLCID = GetSystemDefaultLCID
'取低10位
lngLangID = (lngLCID And (Not &HFC00))
Select Case lngLangID
Case LANG_CHINESE
MsgBox "您使用的是中文Windows", vbInformation, "信息"
case LANG_ENGLISH
MsgBox "您使用的英文Windows",vbInformation,"信息"
End Select