satriano17
Gebruiker
- Lid geworden
- 30 sep 2012
- Berichten
- 331
dag. Sorry voor de rare titel maar ik kon niet beter.
Ik heb een listbox
1 text1 box
en deze code
In de listbox heb ik een aantal items gescheiden van een sterretje
bv.
Test*huis
test2*huis2
test3*1
Dus de tekst VOOR de sterretje wordt in de listbox weergegeven en is te selecteren
de tekst NA de sterretje wordt dan in de text1 box weergegeven (een getal of string)
En tot hier is alles ok.
wat ik nu wou is een tweede textbox toevoegen om een tweede 'resultaat' te weergeven.
Zoals
text*huis*1 (hier mag een getal een getal of een string zijn )
test2*huis2*hond (hier ook dus een getal of een string. )
test3*1*kat
hoe moet mijn code aapassen om dat te krijgen?
Ik weet het , het zal zeker een klein aanpassing nodig zijn, maar ik kom niet uit.
dank u
Ik heb een listbox
1 text1 box
en deze code
Code:
Dim ipos As Integer
Dim aantalteksten As Integer
Dim teksten() As String
Private Sub List1_Click()
If List1.ListIndex >= 0 Then
Text1.Text = List1.ItemData(List1.ListIndex)
Text1.Text = teksten(List1.ItemData(List1.ListIndex))
End If
End Sub
Private Sub Form_Load()
ipos = -1
On Error Resume Next
Dim Bestand As Long
Dim lijn As String
Dim textAndValue() As String
List1.Clear
Bestand = FreeFile
Open App.Path & "\BLOPaper.txt" For Input As #Bestand
Do While Not EOF(Bestand)
Line Input #Bestand, lijn
If Len(lijn) Then
textAndValue = Split(lijn, "*")
If UBound(textAndValue) = 1 Then
List1.AddItem textAndValue(0)
aantalteksten = aantalteksten + 1
ReDim Preserve teksten(aantalteksten)
teksten(aantalteksten - 1) = textAndValue(1)
List1.ItemData(List1.NewIndex) = aantalteksten - 1
End If
End If
Loop
Close #Bestand
In de listbox heb ik een aantal items gescheiden van een sterretje
bv.
Test*huis
test2*huis2
test3*1
Dus de tekst VOOR de sterretje wordt in de listbox weergegeven en is te selecteren
de tekst NA de sterretje wordt dan in de text1 box weergegeven (een getal of string)
En tot hier is alles ok.
wat ik nu wou is een tweede textbox toevoegen om een tweede 'resultaat' te weergeven.
Zoals
text*huis*1 (hier mag een getal een getal of een string zijn )
test2*huis2*hond (hier ook dus een getal of een string. )
test3*1*kat
hoe moet mijn code aapassen om dat te krijgen?
Ik weet het , het zal zeker een klein aanpassing nodig zijn, maar ik kom niet uit.
dank u
Laatst bewerkt: