怎樣才能做到真正的繁簡體介面轉換呢？

Question

各位朋友  
最近我想做個能作繁簡體介面轉換的程式  
現在的程式只能做到短暫的轉換  
當該視窗關閉了再開以後還是打回原形．．．  
 
而我用的方法是：  
 
Dim  filename  As  String  
fliename  =  App.Path  &  "\sim.txt"  
 
Open  fliename  For  Input  As  #1  
Input  #1,  v1,  v2,  v2a,  v2b,  welcome,  addpaper,  stockPaper,  getPaper,  showReport,  monthReport,  endP,  addC,  stockC,  GetC  
 
 
frmSelection.view_1.Caption  =  v1  
frmSelection.view_2.Caption  =  v2  
frmSelection.view_2a.Caption  =  v2a  
frmSelection.view_2b.Caption  =  v2b  
frmSelection.Label1.Caption  =  welcome  
frmSelection.btnAddPaper.Caption  =  addpaper  
frmSelection.btnStockPaper.Caption  =  stockPaper  
frmSelection.btnGetPaper.Caption  =  getPaper  
frmSelection.btnShowReport1.Caption  =  showReport  
frmSelection.btnMonthReport.Caption  =  monthReport  
frmSelection.btnEnd.Caption  =  endP  
frmSelection.btnAddC.Caption  =  addC  
frmSelection.btnStockC.Caption  =  stockC  
frmSelection.btnGetC.Caption  =  GetC  
 
Close  #1  
 
請問要怎樣才能把這個設成永久值呢？

Answer 1

我原本設定的介面語言是繁體中文的€
給用戶更改為簡體中文時它曾變為簡體的~
但關了又開後便變回繁體中文了~而上面的程序是當我們的用戶在menu上按下這個選項後便直接執行的!請問各位可以提供相關的程序源碼嗎?

Answer 2

用Api可获取系统的语言是简体还是繁体.

Answer 3

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
 Private Const LANG_CHINESE& = &H4
Private Const LANG_BULGARIAN& = &H2
Private Const LANG_CROATIAN& = &H1A
Private Const LANG_CZECH& = &H5
Private Const LANG_DANISH& = &H6
Private Const LANG_DUTCH& = &H13
Private Const LANG_ENGLISH& = &H9
Private Const LANG_FINNISH& = &HB
Private Const LANG_FRENCH& = &HC
Private Const LANG_GERMAN& = &H7
Private Const LANG_GREEK& = &H8
Private Const LANG_HUNGARIAN& = &HE
Private Const LANG_ICELANDIC& = &HF
Private Const LANG_ITALIAN& = &H10
Private Const LANG_JAPANESE& = &H11
Private Const LANG_KOREAN& = &H12
Private Const LANG_NEUTRAL& = &H0
Private Const LANG_NORWEGIAN& = &H14
Private Const LANG_POLISH& = &H15
Private Const LANG_PORTUGUESE& = &H16
Private Const LANG_ROMANIAN& = &H18
Private Const LANG_RUSSIAN& = &H19
Private Const LANG_SLOVAK& = &H1B
Private Const LANG_SLOVENIAN& = &H24
Private Const LANG_SPANISH& = &HA
Private Const LANG_SWEDISH& = &H1D
Private Const LANG_TURKISH& = &H1F

Answer 4

還不太成呢~
或許我寫得太差...我想問問各位怎樣才能把form中,label中設定了的語言或文字改掉...
本來label1的文字是繁體中文的按下按鈕以後便把label1的文字永久的改成簡體的...
除非他又更改設定...請各位幫忙,謝謝!(萬句感謝)