免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 回復 發帖

split()

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
返回列表