Hej jag behöver hjälp med hur ajg hämtar alla värden i en sektion från en ini-fil. så här ser koden ut just nu och hämtar endast ett värde. hur skriver jag för att hämta alla?


Imports Microsoft.VisualBasic.Compatibility
Module GetINIFile
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer

Public Function GetINI(ByVal sINIFile As String, ByVal sSection As String, ByVal sKey As String, ByVal sDefault As String) As String
Dim sTemp As String
Dim nLength As Integer

sTemp = Space$(256)
nLength = GetPrivateProfileString(sSection, sKey, sDefault, sTemp, 255, sINIFile)
GetINI = Left$(sTemp, nLength)
End Function
End Module






Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TcClientSync = CreateObject("TcScript.TcScriptSync")
Call TcClientSync.ConnectTo("", 801)

VarMotorerKap = TcClientSync.ReadVar(".HMI_KapSpikLarm")
ComboMotorerKap.Text = GetINI("Handkorning.ini", "Motorer_Kap", 1, "")
End Sub

Titta på GetPrivateProfileSection-funktionen. http://msdn.microsoft.com/en-us/library/ms724348(VS.85).aspx