Private Sub Form_Load()
ResultContent.Text = ""
Dim National$(), Tem$
Dim i&
Tem = "中文 英語 阿爾巴尼亞語 阿拉伯語 亞塞拜然語 愛爾蘭語 愛沙尼亞語 白俄羅斯語 保加利亞語 冰島語 波蘭語 波斯語 布林文(南非荷蘭語) " & _
"丹麥語 德語 俄語 法語 菲律賓語 芬蘭語 格魯吉亞語 海地克裡奧爾語 韓語 荷蘭語 加利西亞語 加泰羅尼亞語 捷克語 克羅埃西亞語 " & _
"拉脫維亞語 立陶宛語 羅馬尼亞語 馬爾他語 馬來語 馬其頓語 挪威語 葡萄牙語 日語 瑞典語 塞爾維亞語 斯洛伐克語 斯洛維尼亞語 " & _
"斯瓦希裡語 泰語 土耳其語 威爾士語 烏克蘭語 西班牙的巴斯克語 西班牙語 希伯來語 希臘語 匈牙利語 亞美尼亞語 義大利語 意第緒語 " & _
"印地語 印度烏爾都語 印尼語 越南語"
National = Split(Tem) '將Tem格式資料轉為陣列
Tem = "zh-CN en sq ar az ga et be bg is pl fa af da de ru fr tl fi ka ht ko nl gl ca cs hr lv lt ro mt ms mk no pt ja sv sr sk sl " & _
"sw th tr cy uk eu es iw el hu hy it yi hi ur id vi"
NationalCode = Split(Tem)
For i = LBound(National) To UBound(National) '將陣列值 用迴圈填進combo 控制項的item裡
'LBound()傳回陣列的最低索引值
'UBound()傳回陣列的最高索引值
Combo1.AddItem National(i)
Combo2.AddItem National(i)
Next i
Combo1.ListIndex = 0
Combo2.ListIndex = 1
End Sub |