Vba能够通过读取ini文件控制控件的属性(大小、位置、字体、颜色、样式……)吗？代码怎么写？

VBA必须通过调用WN32 API来实现INI文件的读写，把控件属性及其值在程序退出时写入INI文件，在程序加载时读取INI文件并设置控件属性。

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

'INI文件写

'参数：

'strSection：节名称

'strItem：项名称

'strValue：项的值

'strIniFile：INI文件

Private Function WriteIniFile(strSection,strItem,strValue,strIniFile) as Long

Dim lngWriteOk As Long

lngWriteOk = WritePrivateProfileString(strSection,strItem,strValue,strIniFile)

End Sub

'INI文件读

'参数：

'strSection：节名称

'strItem：项名称

'strDefValue：项的默认值

'strIniFile：INI文件

Private Function strReadIniFile(strSection,strItem,strDefValue,strIniFile) as String

Dim lngReadOk As Long

Dim strValue As String

Dim strReadValue As String

strValue=strDefValue

tmpReadValue = String(255, 0)

lngReadOk = GetPrivateProfileString(strSection, strItem, strDefValue, strReadValue, 256, strIniFile)

If lngReadOk then

strValue=trim(strReadValue)

end if

strReadIniFile=strValue

End Sub

这个要根据该ini文件的具体结构来写代码的。

我们写一些小代码时，有时需要将部分配置信息保存在用户的电脑上，一般可以采取保存在注册表，XML文件和INI文件等方法。当配置信息简单时，保存在INI文件还是很高效的。

VBA是新一代标准宏语言，是基于VisualBasicforWindows发展而来的。它与传统的宏语言不同，传统的宏语言不具有高级语言的特征，没有面向对象的程序设计概念和方法。

---