ini.bas

来自「大型商业学分统计系统原代码说明 1.如果在向导设置班级数为8时,此数值为班级总数」· BAS 代码 · 共 24 行

Attribute VB_Name = "ini"
Public 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
Public 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
'Private Sub Command1_Click()
'Dim success As Long
'success = WritePrivateProfileString("MyApp", "text1", Text1.Text, "c:\aa.ini")
'
'success = WritePrivateProfileString("MyApp", "text2", Text2.Text, "c:\aa.ini")
'success = WritePrivateProfileString("MyApp2", "text3", Text3.Text, "c:\aa.ini")
'End Sub
'
'Private Sub Form_load()
'Dim ret As Long
'Dim buff As String
'buff = ""
''若.ini MyApp中无text1，则采用叁数三的值
'ret = GetPrivateProfileString("Myapp", "text1", "text1", buff, 256, "c:\aa.ini")
'Text1.Text = buff
'ret = GetPrivateProfileString("Myapp", "text2", "text2", buff, 256, "c:\aa.ini")
'Text2.Text = buff
'ret = GetPrivateProfileString("Myapp2", "text3", "text3", buff, 256, "c:\aa.ini")
'Text3.Text = buff
'End Sub