find valgte section?

er det det her du mener ??

test = CmbFirmanavn.List(CmbFirmanavn.ListIndex)

Ikke helt.

Når jeg vælger firma1, vil jeg gerne have fat i resultatet [section1], da firma er i denne selection

http://www.eksperten.dk/spm/4073

Beskriver det du gerne vil.

Ellers giv mig din IniReadPvt Function og jeg skal se hvad jeg kan gøre :o)

- Mikker

Her er inireadpvt:

Public Function IniReadPvt(strSection As String, strKey As String, strFilename As String, Optional strDefault As String) As String
  Dim strResult As String
  Dim strLocalDefault As String
  Dim Pos0 As Integer
   
  strResult = Space(255)
  If Len(strDefault) = 0 Then
    strLocalDefault = "*0*"
  Else
    strLocalDefault = strDefault
  End If
  strresult2 = GetPrivateProfileString(strSection, strKey, strLocalDefault, strResult, Len(strResult), strFilename)
  strResult = RTrim(strResult)
  Pos0 = Len(strResult)
  strResult = Left(strResult, Pos0 - 1)
  If strLocalDefault = strResult Or strResult = "*0*" Then
    IniReadPvt = strDefault
  Else
    IniReadPvt = strResult
  End If
End Function

Imens kan du kigge på den her:

http://www.vbaccelerator.com/codelib/inireg/inifile.htm

- Mikker

Måske lidt rodet, men det virker da :o)
Jeg har bare comboboxen og en textbox

Public Function IniReadPvt(strSection As String, strKey As String, strFilename As String, Optional strDefault As String) As String
  Dim strResult As String
  Dim strLocalDefault As String
  Dim Pos0 As Integer
   
  strResult = Space(255)
  If Len(strDefault) = 0 Then
    strLocalDefault = "*0*"
  Else
    strLocalDefault = strDefault
  End If
  strresult2 = GetPrivateProfileString(strSection, strKey, strLocalDefault, strResult, Len(strResult), strFilename)
  strResult = RTrim(strResult)
  Pos0 = Len(strResult)
  strResult = Left(strResult, Pos0 - 1)
  If strLocalDefault = strResult Or strResult = "*0*" Then
    IniReadPvt = strDefault
  Else
    IniReadPvt = strResult
  End If
End Function

Private Sub CmbFirmanavn_Change()
Text1.Text = CmbFirmanavn.ListCount
End Sub

Private Sub CmbFirmanavn_Click()
Dim fstr, secstr
Dim stradr
findstr = CmbFirmanavn.Text
i = 0: stradr = "!"
Do While stradr <> ""
i = i + 1
secstr = Trim("section" & i)
stradr = IniReadPvt(Trim("section" & i), "FIRMANAVN", "c:\temp\address.ini")
If stradr = CmbFirmanavn.Text Then
Text1 = secstr
End If
Loop
If stradr <> "" Then
        CmbFirmanavn.AddItem stradr
End If
End Sub

Private Sub Form_Load()

Dim test As String
Dim result
Dim stradr As String
Dim i As Integer
   
CmbFirmanavn.Clear
    i = 1
    stradr = IniReadPvt("section" & i, "FIRMANAVN", "c:\temp\address.ini")
        Do While stradr <> ""
        CmbFirmanavn.AddItem stradr
    i = i + 1
        stradr = IniReadPvt("section" & i, "FIRMANAVN", "c:\temp\address.ini")
    Loop
    If stradr <> "" Then
        CmbFirmanavn.AddItem stradr
    End If
CmbFirmanavn.ListIndex = 0
End Sub


- Mikker

Super. Tester det lige :-)

Ovenstående forslag er kun brugbart sålænge der ikke er mere end 5 - 10 forskellige SECTIONS. Det er kun lavet for at give et umiddelbart løsningsforslag.

- Mikker

Hej Miker.

Giver du ikke lige et svar, sp skal du få dine hårdt tjænte points.

Tak for hjælpen.

Jamen så går jeg ud fra du har fået det til at virke.
Tak fordi du gav mig en opgave, jeg kunne lege lidt med :o)

- Mikker

Det var da så lidt.
Hvis der er, kan jeg da sagtens finde på en masse andre opgaver :-)

Du ved hvor d kan finde mig... Og alle de andre der gerne hjælper til... :o)

- Mikker