VB 将TXT内容读到COMBO

来源：百度知道 编辑：UC知道 时间：2024/05/09 21:04:28
有4个COMBO.....

TXT的内容如下
aaaaaaa bbbbbbb ccccccc ddddddd

要求COMBO1=aaaaaa
COMBO2=bbbbbbb
如此类推....

随便问一下 RICHBOX的SAVEFILE能实现覆盖同文件么......

'添加窗体Form1,按钮Command1,组合框Combo1,Combo2,Combo3,Combo4,然后添加如下代码:
Private Sub Command1_Click()
    Dim str1$, a
    Open "C:\1.txt" For Input As #1
    str1 = StrConv(InputB$(LOF(1), #1), vbUnicode)
    Close #1
    a = Split(str1, " ")
    Combo1 = a(0)
    Combo2 = a(1)
    Combo3 = a(2)
    Combo4 = a(3)
End Sub
'RICHBOX的SAVEFILE方法会覆盖同名文件的