31-05-23, 06:35 PM
(آخر تعديل لهذه المشاركة : 31-05-23, 06:37 PM {2} بواسطة fouadhdfouad.)
Imports System
Imports System.Collections.Generic
Imports System.Windows.Forms
Public Class Form1
Private checkboxes As List(Of CheckBox)
Public Sub New()
InitializeComponent()
checkboxes = New List(Of CheckBox)() From {CheckBox1, CheckBox2, CheckBox3, CheckBox4}
End Sub
Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
TextBox1.Clear()
Dim selectedCheckboxes As List(Of String) = GetSelectedCheckboxes()
For Each checkboxName As String In selectedCheckboxes
TextBox1.AppendText(checkboxName & Environment.NewLine)
Next
End Sub
Private Function GetSelectedCheckboxes() As List(Of String)
Dim selectedCheckboxes As New List(Of String)()
For Each checkbox As CheckBox In checkboxes
If checkbox.Checked Then
selectedCheckboxes.Add(checkbox.Text)
End If
Next
Return selectedCheckboxes
End Function
End Class
Imports System.Collections.Generic
Imports System.Windows.Forms
Public Class Form1
Private checkboxes As List(Of CheckBox)
Public Sub New()
InitializeComponent()
checkboxes = New List(Of CheckBox)() From {CheckBox1, CheckBox2, CheckBox3, CheckBox4}
End Sub
Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
TextBox1.Clear()
Dim selectedCheckboxes As List(Of String) = GetSelectedCheckboxes()
For Each checkboxName As String In selectedCheckboxes
TextBox1.AppendText(checkboxName & Environment.NewLine)
Next
End Sub
Private Function GetSelectedCheckboxes() As List(Of String)
Dim selectedCheckboxes As New List(Of String)()
For Each checkbox As CheckBox In checkboxes
If checkbox.Checked Then
selectedCheckboxes.Add(checkbox.Text)
End If
Next
Return selectedCheckboxes
End Function
End Class
كود :
Imports System
Imports System.Collections.Generic
Imports System.Windows.Forms
Public Class Form1
Private checkboxes As List(Of CheckBox)
Public Sub New()
InitializeComponent()
checkboxes = New List(Of CheckBox)() From {CheckBox1, CheckBox2, CheckBox3, CheckBox4}
End Sub
Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
TextBox1.Clear()
Dim selectedCheckboxes As List(Of String) = GetSelectedCheckboxes()
For Each checkboxName As String In selectedCheckboxes
TextBox1.AppendText(checkboxName & Environment.NewLine)
Next
End Sub
Private Function GetSelectedCheckboxes() As List(Of String)
Dim selectedCheckboxes As New List(Of String)()
For Each checkbox As CheckBox In checkboxes
If checkbox.Checked Then
selectedCheckboxes.Add(checkbox.Text)
End If
Next
Return selectedCheckboxes
End Function
End Class