下面是谁的代码???
Private Sub UpdataKey()
Dim strTemp$, i&, n& strTemp = EnumName("section", strINIfile)
Combo1.Clear
n = 1
Do
i = InStr(n, strTemp, vbNullChar) - 1
If (i <= 0) Then Exit Do
Me.Combo1.AddItem Mid$(strTemp, n, i)
n = i + 2
Loop
If (Combo1.ListCount > 0) Then Combo1.ListIndex = 0End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货