Ett problem som jag stött på är att.
Detta exempel fungera ju bra
Men om jag lägger till flera poster som jag vill kunna välja i listboxen
Samt även då flera Textboxar som jag hämtar olika värden till
Så blir det så väldigt slött, det fungerar jo då
Men det verkar som det inte hänger med
Det kanske finns en bättre lösning, hoppas på det

Private Sub List1_Click()
Dim X
X = List1.ListIndex
If List1.ListIndex = 0 Then
Call Key0_Click
ElseIf List1.ListIndex = 1 Then
Call Key1_Click
End If

Private Sub Key0_Click()
Text5 = Mid$(Text1.Text, 30, 10)
End Sub

Private Sub Key1_Click()
Text5 = Mid$(Text1.Text, 90, 10)
End Sub



Sören

Hej
Tycker det ser helt ok ut .Men deklarera variabler !!!
Så här blir min lösning.
Private Sub List1_Click()
Dim x As Long
x = List1.ListIndex
Select Case x
Case Is = 0
Call Key0_Click
Case Is = 1
Call Key1_Click
Case Else
'Gör något annat
End Select

'kan ta bort 10 om det
'inte finns mer i TextBoxen

Private Sub Key0_Click()
Text5 = Mid$(Text1.Text, 30)
End Sub

Private Sub Key1_Click()
Text5 = Mid$(Text1.Text, 90)
End Sub

mvh
Sven

Vad är mönstret för positionerna? Du kan ju lägga in ItemData för dem:
<code>
Private Sub Combo1_Click()
If Combo1.ListIndex <> -1 Then
Text5 = Mid$(Text1.Text, Combo1.ItemData(Combo1.ListIndex), 10)
End If
End Sub

Private Sub Form_Load()
Dim Index As Long
Dim cboTemp As ComboBox
Set cboTemp = Combo1
For Index = 0 To 10
cboTemp.AddItem "Key" & Index
cboTemp.ItemData(cboTemp.NewIndex) = 30 + (Index * 60)
Next
End Sub
</code>
Nu skapar jag ju posterna i comboboxen med kod. Men man kan likaväl lägga till dem i designläge.

Tack för hjälpen!
Äntligen som jag ville ha det...


Sören