Visual Basic 2015

Status
Niet open voor verdere reacties.

JeTu

Gebruiker
Lid geworden
10 mei 2017
Berichten
19
Ik wil een lijn uit een sequentieel bestand inlezen en wijzigen.
nl. Ik heb 3 tekstvelden ingelezen txtNaam, txtVoornaam en txtTelefoon waarbij voor txtNaam een plaats van 30 karakters is voorzien, voor txtVoornaam 20 karakters en voor txtTelefoon 15 karakters. Deze worden opgeslagen in het programma zelf onder...\bin"Gegevens". Tot hier gaat alles.
Nu heb ik een fout in de naam geschreven of het telefoonnummer is gewijzigd.
Hoe kan ik de naam terug in txtNaam zetten, de voornaam in txtVoornaam en het telefoonnummer in txtTelefoon zetten om te wijzigen en terug op te slaan.

Wie geeft mij een oplossing?
 
Kun je een screenshot van je code plaatsen? Dat helpt wat makkelijker. Evt. een screenshot van het progje helpt ook.
 
Al mijn gegevens staan per lijn in een listbox.
Wanneer ik een lijn selecteer en op de knop wijzigen klik zou ik dus de naam in de tekstbox Naam willen krijgen en idem voor de voornaam en het telefoonnummer.
Met de code onderaan heb ik al geprobeerd maar dat lukte niet vandaar de aanhalingstekens voor de code

Private Sub btnwijzig_Click(sender As Object, e As EventArgs) Handles btnwijzig.Click
'Dim zin As String
'Dim voornaam As String
txtverbeter.Text = Trim(lstGegevens.SelectedItem)
'zin = txtverbeter.Text
'txtNaam.Text = Microsoft.VisualBasic.Left(zin, 25)
'voornaam = Microsoft.VisualBasic.Mid(zin, 2, InStr(zin, "") + 10)
'txtVoornaam.Text = Microsoft.VisualBasic.Mid()
'txtVoornaam.Text = voornaam
Call Vul_velden()
End Sub
Sub Vul_velden()
Dim intplaats As Integer
txtNaam.Text = Trim(Mid(txtNaam.Text, 1, cstInttelfoons))
intplaats = cstInttelfoons
txtVoornaam.Text = Trim(Mid(txtVoornaam.Text, intplaats + 1, cstInttelfoons))
intplaats = intplaats + cstInttelfoons
txtTelefoon.Text = Trim(Mid(txtTelefoon.Text, intplaats + 1, cstInttelfoons))
intplaats = intplaats + cstInttelfoons
txtEmail.Text = Trim(Mid(txtEmail.Text, intplaats + 1, cstInttelfoons))

End Sub
 

Bijlagen

  • telefoonboek.docx
    216,2 KB · Weergaven: 32
Ik heb ooit ook een vergelijkbaar programma gemaakt met Visual Basic met listboxen en textboxen. Kan alleen nergens meer de code vinden dus laat ik de hulp bij dezen aan andere forumleden over.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan