| |
VB.NET - Ein- und UmsteigerListboxChecked 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 | |
Re: ListboxChecked an TextBox Multiline | | | Autor: Manfred X | Datum: 20.04.18 13:21 |
| Hallo!
Vielleicht einfach so .....
Public Class frmCheckedItemsToText
Dim sz As New Size(300, 300)
Dim clbo As New CheckedListBox With {.Parent = Me, .Size = sz}
Dim WithEvents btnChecked As New Button With
{.Parent = Me, .Left = 310, .Width = 50,
.Text = " >> ", .Top = 120}
Dim tbo As New TextBox With {.Parent = Me, .Left = 370, .Size = sz,
.Multiline = True}
Dim itemlist As New List(Of String)
Private Sub frmChecked_Load(sender As Object,
e As EventArgs) Handles MyBase.Load
'Beispiel-Liste
For i As Integer = 0 To 20
itemlist.Add("Item " & i.ToString)
Next i
clbo.DataSource = itemlist
End Sub
Private Sub SetCheckedItemsToText()
'Checked-Items in Textbox übertragen
tbo.Clear()
For Each item As String In clbo.CheckedItems
tbo.AppendText(item)
tbo.AppendText(vbNewLine)
Next item
End Sub
Private Sub btnChecked_Click(sender As Object, _
e As EventArgs) Handles btnChecked.Click
SetCheckedItemsToText()
End Sub
End Class | |
Re: ListboxChecked an TextBox Multiline | | | Autor: ERBRU | Datum: 21.04.18 09:17 |
| Supi Danke,
warum liest mein Code doppelte Einträge in die ListBox?
OK erledigt, habe ein Clear gesetzt und dann eingelesen
so passt das:
CheckedListBox1.Items.Clear()
If AEKODATEN.Fachbereiche.Rows.Count > 0 Then
For i As Integer = 0 To AEKODATEN.Fachbereiche.Rows.Count - 1
CheckedListBox1.Items.Add(CStr(AEKODATEN.Fachbereiche.Rows( _
i).Item("Fachbereich")).ToString)
Next
End If Private Sub LoadCheckedListBox()
If AEKODATEN.Fachbereiche.Rows.Count > 0 Then
For i As Integer = 0 To AEKODATEN.Fachbereiche.Rows.Count - 1
CheckedListBox1.Items.Add(CStr(AEKODATEN.Fachbereiche.Rows( _
i).Item("Fachbereich")).ToString)
Next
End If
End Sub
Beitrag wurde zuletzt am 21.04.18 um 09:45:30 editiert. | |
| 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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevPopUp 2.0
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere Infos
|
|
|
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
|
|