VB中窗体控件的值自动保存到INI文件中.

 资源地址:http://d.download.csdn.net/down/681083/MSTOP

第一次运行,在窗体的控件中输入不同的值.然后退出.

再运行,你输入的值将会自动读到相应的控件中.

1. '//窗体
2. Private Sub Form_Load()
3.     On Error Resume Next
4.     Call GetIniToFrmControl(Me, "C:/TEST.ini", Me.Caption)
5. End Sub
7. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
8.     Call SaveFrmControlToIni(Me, "C:/TEST.ini", Me.Caption)
9. End Sub
12. '//模块,建议封装成类.
13. Private Declare Function WritePrivateProfileString _
14. Lib "kernel32" Alias "WritePrivateProfileStringA" _
15. (ByVal lpApplicationname As String, ByVal _
16. lpKeyName As Any, ByVal lsString As Any, _
17. ByVal lplFilename As String) As Long
19. Private Declare Function GetPrivateProfileString Lib _
20. "kernel32" Alias "GetPrivateProfileStringA" _
21. (ByVal lpApplicationname As String, ByVal _
22. lpKeyName As String, ByVal lpDefault As _
23. String,