资源地址:http://d.download.csdn.net/down/681083/MSTOP
第一次运行,在窗体的控件中输入不同的值.然后退出.
再运行,你输入的值将会自动读到相应的控件中.
- '//窗体
- Private Sub Form_Load()
- On Error Resume Next
- Call GetIniToFrmControl(Me, "C:/TEST.ini", Me.Caption)
- End Sub
- Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
- Call SaveFrmControlToIni(Me, "C:/TEST.ini", Me.Caption)
- End Sub
- '//模块,建议封装成类.
- Private Declare Function WritePrivateProfileString _
- Lib "kernel32" Alias "WritePrivateProfileStringA" _
- (ByVal lpApplicationname As String, ByVal _
- lpKeyName As Any, ByVal lsString As Any, _
- ByVal lplFilename As String) As Long
- Private Declare Function GetPrivateProfileString Lib _
- "kernel32" Alias "GetPrivateProfileStringA" _
- (ByVal lpApplicationname As String, ByVal _
- lpKeyName As String, ByVal lpDefault As _
- String,