Ett problem som jag stött på är att. Hej Vad är mönstret för positionerna? Du kan ju lägga in ItemData för dem:Lsitbox
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örenSv: Lsitbox
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
SvenSv: Lsitbox
<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.