VB识别分隔符 

strTypeEx = ReadIniFile("Type", "Type", App.Path & "\set.ini") 
strTypeEx = Split(strTypeEx, ";") 
For i = LBound(strTypeEx) To UBound(strTypeEx) 
   CboType.AddItem Trim(strTypeEx(i)) 
Next i

 

posted @ 2017-05-31 10:31  芈璐  阅读(1022)  评论(0)  编辑  收藏  举报