VB简繁体转换

VB怎么时行简繁体转换啊？我用的是繁体系统

---

看这个对你是否有帮助

韩文系统下怎么样才能正常使用简体中文下开发的程序

---

1.把简体字换成繁体字，有的要用简体系统下的繁体，有的要用BIG5码，这个得花点时间去调，之前我也是调了挺久的
2.把字体换了，繁体系统默认字体不一样，没有宋体

---

楼主：如果找到好的方法希望共享下。呵呵。。。一边接分。

---

没明白你要做啥。

---

CSDN 不支持百度的相册 晕死....

---

是百度“不让别人用它的图片”。

---

3楼的方法好像在繁体系统下不能用还是乱码

---

你的系统是繁体 我的系统是简体 你应该在 word里面把我的代码转为繁体再运行 呵呵...难道还要我替你转换吗?

---

樓主在台資企業 ?

'摘錄自 CBM666編程教材 TextBox 篇

Option Explicit '強制宣告定義變數
Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Dim STlen&, STf$, STj$  '定義變數
Private Sub Form_Load()
  '將表單居中顯示 (螢幕寬度減去表單的寬度)除以2 , (螢幕高度減去表單的高度)除以2