vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 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
Re: Click Event mehrerer Checkboxen überschreiben 
Autor: Manfred X
Datum: 10.01.18 14:14

Public Class frmEventHandlerDemo
 
    Private Checkboxes As New List(Of CheckBox)
 
 
    Private Sub CreateCheckboxes()
 
        Const Columns As Integer = 5
        Const Rows As Integer = 10
 
        Const CB_Width As Integer = 100
        Const CB_Height As Integer = 25
 
        For i As Integer = 1 To Columns
            For k As Integer = 1 To Rows
                Dim cb As New CheckBox With {.Parent = Me, _
                        .Width = CB_Width, .Height = CB_Height, _
                        .Left = i * CB_Width, .Top = k * CB_Height, _
                        .Text = "Box " & (Checkboxes.Count + 1).ToString, _
                        .Name = .Text}
 
                AddHandler cb.Click, AddressOf All_Checkboxes_Click
 
                Checkboxes.Add(cb)
            Next k
        Next i
 
    End Sub
 
 
 
    Private Sub All_Checkboxes_Click(ByVal sender As Object, _
                                     ByVal e As EventArgs)
 
        Dim cb As CheckBox = DirectCast(sender, CheckBox)
        MsgBox(cb.Text & " ist geclickt worden")
 
        Dim sum As Integer = 0, vl As Integer = 0
        For i As Integer = 0 To Checkboxes.Count - 1
            If Checkboxes(i).Tag IsNot Nothing AndAlso _
               Integer.TryParse(Checkboxes(i).Tag.ToString, vl) Then
                sum += vl
            End If
        Next i
 
    End Sub
 
 
    Private Sub frmEventHandlerDemo_Load(sender As System.Object, _
                    e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(600, 400)
        CreateCheckboxes()
    End Sub
End Class


Beitrag wurde zuletzt am 10.01.18 um 14:20:03 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Click Event mehrerer Checkboxen überschreiben1.678Ortech09.01.18 11:36
Re: Click Event mehrerer Checkboxen überschreiben1.084effeff09.01.18 16:37
Re: Click Event mehrerer Checkboxen überschreiben1.074Ortech09.01.18 17:19
Re: Click Event mehrerer Checkboxen überschreiben1.131Manfred X09.01.18 23:00
Re: Click Event mehrerer Checkboxen überschreiben1.069Ortech10.01.18 12:35
Re: Click Event mehrerer Checkboxen überschreiben1.059Manfred X10.01.18 14:14
Re: Click Event mehrerer Checkboxen überschreiben1.060Ortech10.01.18 14:23
Re: Click Event mehrerer Checkboxen überschreiben1.049Manfred X10.01.18 14:31
Re: Click Event mehrerer Checkboxen überschreiben1.059Ortech10.01.18 15:24
Re: Click Event mehrerer Checkboxen überschreiben1.050sv0001010.01.18 13:27
Re: Click Event mehrerer Checkboxen überschreiben1.079Manfred X10.01.18 14:29
Re: Click Event mehrerer Checkboxen überschreiben1.063Kuno6012.01.18 20:58
Re: Click Event mehrerer Checkboxen überschreiben1.082HenryV10.01.18 16:20
Re: Click Event mehrerer Checkboxen überschreiben1.096Ortech11.01.18 08:47
Re: Click Event mehrerer Checkboxen überschreiben1.025Manfred X14.01.18 08:26

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