Today, the netizen asked this question: "For example: I can get the language version of the operating system when running on the Win2000 Chinese version is Chinese, running at the Win2000 English version, knowing is English version"
Here I wrote a function and convenient to use. (Simplified, Traditional, and English, other you can add ^ _ ^) code as follows:
http://community.9cbs.net/expert/topic/3389/3389759.xml?temp=.2974665
Private Declare Function GetSystemDefaultlcid LIB "Kernel32" () AS Long
Private sub fascist1_click () MSGBOX GetOSType, Vbokonly, "Tips" End Sub
Function GetOSType () AS STRING DIM RET AS STRING SELECT CASE HEX (Getsystemdefaultlcid) Case 804: Ret = "Chinese Simplified (Mainland)" Case 404: Ret = "Chinese Traditional (Taiwan)" Case 409: Ret = "English" Case Else : RET = "Other Language System" End Select GetOSType = Retend Function
'-------------------------------------------' Please indicate the source 'author: Don just fine' E-mail: tanaya@163.com '------------------------------------- --------
