乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 46|回复: 2

取得系统的语言ID

[复制链接]

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2004-11-21 12:12:00 | 显示全部楼层 |阅读模式
准备为“对象对齐均布”程序写个多语言版本,需要对系统的语言做判断。
使用:
  1. Declare Function GetSystemDefaultLangID Lib "kernel32" () As IntegerSub GetLang()
  2. Dim id As Integer
  3. Dim txt As String
  4. id = GetSystemDefaultLangID
  5. Select Case id
  6.        Case 2052
  7.                txt = "简体中文"
  8.        Case 1033
  9.                txt = "英文版本"
  10.        Case 0 '此处ID不知道
  11.                txt = "繁体中文"
  12. End Select
  13. Debug.Print "目前系统的语言版本为:"; txt
  14. End Sub
谁能提供繁体中文的ID号?我这里查不到。
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2004-11-21 13:14:00 | 显示全部楼层
如无意外,应该是1028吧。
回复

使用道具 举报

34

主题

372

帖子

7

银币

中流砥柱

Rank: 25

铜币
508
发表于 2004-11-21 17:59:00 | 显示全部楼层
龙龙仔不是用的繁体版吗?
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 13:49 , Processed in 0.449634 second(s), 58 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表