vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
ListboxChecked an TextBox Multiline 
Autor: ERBRU
Datum: 20.04.18 11:45

so übergebe ich die markierten Einträge aus einer ListBoxChecked in eine Listbox

ich möchte die markierten aber in eine Textbox schieben

und so als Liste in die TextBox: steht auf Multiline

Fachbereich-0
Fachbereich-1
Fachbereich-2
usw.

je nachdem was ausgewählt wird


Option Explicit On
Option Strict On
 
Public Class Form1
 
    Private Function InitTList(ByVal clb As _
      System.Windows.Forms.CheckedListBox) As List(Of String)
        Dim TList As New List(Of String)
 
        For n As Integer = 0 To clb.Items.Count - 1
            If clb.GetItemCheckState(n) = CheckState.Checked Then
                TList.Add(CType(clb.Items(n), String))
            End If
        Next
        Return TList
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
            Handles Button1.Click
        Dim TList As New List(Of String)(Me.InitTList(Me.CheckedListBox1))
        If TList.Count > 0 Then
            Me.ListBox1.Items.Clear()
            For Each items As String In TList
                Me.ListBox1.Items.Add(items)
            Next
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
            Handles MyBase.Load
        CenterToScreen()
        For n As Integer = 0 To 4
            Me.CheckedListBox1.Items.Add("Fachbereich-" & CType(n, String))
        Next
    End Sub
 
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ListboxChecked an TextBox Multiline1.070ERBRU20.04.18 11:45
Re: ListboxChecked an TextBox Multiline458Manfred X20.04.18 13:21
Re: ListboxChecked an TextBox Multiline425ERBRU21.04.18 09:17

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel