ini文件（Initialization File）常用作windows的系统配置文件，主要用于早期Windows系统（如win98）保存配置使用，由于后来Windows配置大量使用注册表保存，现在一般的配置文件常用xml文件保存，因此到现在此类文件用的越来越少，不过还是有必要介绍一下它的读写。
本节文件用到的样例：
保存于d盘 setting.ini。
设计窗体：
使用到的API函数 GetPrivateProfileString,定义如下：
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (
ByVal lpApplicationName As String,ByVal lpKeyName As String,ByVal lpDefault As String,ByVal lpReturnedString As String,ByVal nSize As Integer,ByVal lpFileName As String) As Integer
参数说明：
lpApplicationName：ini文件节名称
lpKeyName：ini文件，lpApplicationName节下的键名称
lpDefault：如果lpKeyName不存在时，返回的值
lpReturnedString ：放置返回值的缓冲区，我们在使用此api函数前，应该先分配此缓冲区。
nSize ：缓冲区的大小
lpFileName ：ini文件全路径，如果不是全路径，那么程序将使用Windows系统的路径。
返回值：
如果正确获得了键值，那么返回键值的长度。否则返回0。
注意，该Api函数的定义，应当包含在Public Class Form1 内
定义窗体级变量：
Dim filename As String
窗体载入时候：
Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load
filename = "d:\setting.ini"
Dim comPort As String
For i As Integer = 1 To 10
ComboBox1.Items.Add("COM" & i)
Next
End Sub当按钮按下时，读取ini中的数据：
Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
Dim Rvalue As Integer
Dim BufferSize As Integer
BufferSize = 255
Dim keyValue As String
keyValue = Space(BufferSize)
Dim sectionName As String
sectionName = "control"
Dim keyName As String
keyName = "appname"
Rvalue = GetPrivateProfileString(sectionName,keyName,"",keyValue,BufferSize,filename)
If Rvalue = 0 Then
keyValue = "(没有获得相应的值)"
Else
keyValue = keyValue.Substring(0,Rvalue)
End If
TextBox1.Text = keyValue
keyName = "port"
keyValue = Space(BufferSize)
Rvalue = GetPrivateProfileString(sectionName,Rvalue)
End If
ComboBox1.Text = keyValue
End Sub
由于.net平台下C#和vb
.NET很相似，本文也可以为C#爱好者提供参考。
学习更多vb.net知识，请参看vb.net 教程 目录