Springen naar inhoud


- - - - -
VS 2015

Data In String Van "in Runtime Gegenereerde Textbox"

VS2015

  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 Corné

Corné

    Starting Developer

  • Leden
  • 8 berichten
    Laatst bezocht 03 jun 2022 13:52

Geplaatst op 13 december 2021 - 16:12

Ik maak een paar formulieren in runtime met een button en een tekstbox.
hoe krijg ik ook alweer de data uit die textbox in een string?
Moest je dan een nieuwe form en textbox aanroepen?
Ik kan er even niet meer opkomen.

Visual Basic Code:
 Private Sub ListBoxOmschrijving_DoubleClick(sender As Object, e As EventArgs) Handles ListBoxOmschrijving.DoubleClick

Dim TxtBoxInput As New TextBox
With TxtBoxInput
.Width = 100
.Location = New Point(100, 100)
.Text = ListBoxOmschrijving.SelectedItem.ToString
End With

Dim BtnOpslaan As New Button
With BtnOpslaan
.Location = New Point(100, 150)
.Size = New Size(100, 80)
.BackColor = Color.Snow
.Text = ("Opslaan")
End With

Dim FrmAanpassen As New Form
With FrmAanpassen
.Size = New Size(400, 400)
.Text = "Pas regel aan"
.StartPosition = FormStartPosition.CenterScreen
.MaximizeBox = False
.MinimizeBox = False
.BackColor = Color.Snow
.Controls.Add(BtnOpslaan)
.Controls.Add(TxtBoxInput)
End With

FrmAanpassen.Show()

AddHandler BtnOpslaan.Click, AddressOf FrmAanpassen_BtnSave



End Sub
Sub FrmAanpassen_BtnSave()



End Sub


#2 knaepen

knaepen

    Starting Developer

  • Leden
  • 5 berichten
    Laatst bezocht 08 feb 2022 10:38
  • LocatieBelgium

Geplaatst op 28 januari 2022 - 12:28

listboxomschrijving
btnsluit
txtboxinput
button1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 10
            ListBoxomschrijving.Items.Add(i.ToString)
        Next
    End Sub

    Private Sub ListBoxomschrijving_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBoxomschrijving.MouseDoubleClick
        txtboxinput.Text = " U klikte dubbel op...: " & ListBoxomschrijving.SelectedItem.ToString
    End Sub

    Private Sub ListBoxomschrijving_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBoxomschrijving.SelectedIndexChanged
        txtboxinput.Text = " U klikte enkel op...: " & ListBoxomschrijving.SelectedItem.ToString
    End Sub

    Private Sub btnSluit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSluit.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtboxinput.Text = " U bevestigde met de knop...: " & ListBoxomschrijving.SelectedItem.ToString
    End Sub
End Class





Ook met taq VS 2015, VS2015 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2015] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)