'以下是模块中的函数代码
Public Function readini(ByVal filename As String) As String()
Dim fileExists As Boolean
fileExists = My.Computer.FileSystem.FileExists(filename)
If fileExists Then
Dim fields As String()
Dim delimiter As String = ","
Using parser As New TextFieldParser(filename)
parser.SetDelimiters(delimiter)
While Not parser.EndOfData
' Read in the fields for the current line
fields = parser.ReadFields()
' Add code here to use data in fields variable.
End While
Return fields
End Using
Else
My.Computer.FileSystem.WriteAllText(filename, ",", False)
End If
End Function
'------------------------------------------------------------------------
'以下是读取到combobox中的代码
Imports Microsoft.VisualBasic.FileIO
Dim i As Integer
Dim f1 As String(), f2 As String()
f1 = readini("shebei.ini")
comboBox2.Items.Clear()
For i = 1 To f1.Length - 2
comboBox2.Items.Add(f1(i))
Next