vb读取ini文件每一行为按钮

来源：百度知道 编辑：UC知道 时间：2024/07/02 03:45:55
我想用VB读取一个INI文件，格式如下：
运行DOS程序
打开D盘
打开C盘
.............
在读取到了INI文件的第一行时，在VB上面就显示此文字为按钮，比如第一行，读取了后VB上面就有了一个按钮为〈运行DOS程序〉。

ini文件如下：
文件名：open.ini

内容如下：

[readinifile]
1="运行dos"
2="打开D盘"
3="打开C盘"

在vb中加入读取ini文件的模块

readini.bas

Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public inifilename As String '配置文件的名称，在窗体load事件中初始化
'读取
Function GetIniS(ByVal inifilename As String, ByVal SectionName As String, ByVal KeyWord As String, Optional ByVal DefString As String) As String<