اضافة اكثر من مفاتح من ملف ini

تعلم كيف تضع اكثر من مفاتح من ملف ini الي Listbox

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
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

'لقراءة المفاتيح
Function ReadListBox()
   'Read listbox from INI file
   Do
   i = i + 1
   x = ReadINI("list", "key" & i, "c:\listbox.ini")
   If x <> "" Then ListBox1.AddItem x
   Loop Until x = ""
End Function

'لحفظ المفاتيح

Function SaveListBox()
   'Save listbox to INI file
   For i = 0 To ListBox1.ListCount
   WriteINI "list", "key" & i + 1, ListBox1.List(i), "c:\listbox.ini"
   Next
End Function

Function WriteINI(AppName$, KeyName$, entry$, iniPath$)
   'Write INI file
   x = WritePrivateProfileString(AppName$, KeyName$, entry$, iniPath$)
End Function

Function ReadINI(AppName$, KeyName$, iniPath$)
   'Read INI file
   Dim sTemp As String * 256
   Dim nLength As Integer
   sTemp = Space$(256)
   
   nLength = GetPrivateProfileString(AppName$, KeyName$, "", sTemp, 255, iniPath$)
   ReadINI = Left$(sTemp, nLength)
End Function