Private Sub Combo1_DropDown() Dim num As Long Dim kk As String Dim s() As String kk = Space(255) num = GetPrivateProfileString("set", "i" & 2, "", kk, Len(kk), "c:\system.ini") '读取system.ini kk = Left(kk, InStr(1, kk, Chr(0), vbBinaryCompare) - 1) s = Split(CStr(kk), ",", -1, vbBinaryCompare) '如何才能让他不老是重新添加呢? Combo1.clear For i = 0 To UBound(s) Combo1.AddItem (s(i)) Next i End Sub
Dim num As Long
Dim kk As String
Dim s() As String
kk = Space(255)
num = GetPrivateProfileString("set", "i" & 2, "", kk, Len(kk), "c:\system.ini") '读取system.ini
kk = Left(kk, InStr(1, kk, Chr(0), vbBinaryCompare) - 1)
s = Split(CStr(kk), ",", -1, vbBinaryCompare)
'如何才能让他不老是重新添加呢?
Combo1.clear
For i = 0 To UBound(s)
Combo1.AddItem (s(i))
Next i
End Sub