vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2022
 
zurück

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

Visual-Basic Einsteiger
Re: Checkbox abfrage 
Autor: Manfred X
Datum: 11.05.22 19:28

Hallo!

Angenommen. es gibt zwei gleich lange Steuerelementefelder Check1 (Checkboxen) und Label1 (Labels),
sowie einen Löschbutton mit Namen cmdDelete.

Private Sub Check1_Click(Index As Integer)
    'Beim Check/Uncheck einer Checkbox Löschbutton-Visible prüfen
    cmdDelete.Visible = Show_Delete
End Sub
 
 
Private Sub cmdDelete_Click()
    'Löschen aller Label-Caption mit markierter Checkbox
    Dim i As Integer
    For i = 1 To Check1.Count
       If Check1(i).Value = vbChecked Then
          Label1(i).Caption = ""
          Check1(i).Value = vbUnchecked
          Check1(i).Enabled = False
       End If
    Next i
End Sub
 
 
Private Sub Form_Load()
    'Beim Laden des Formulars Löschbutton-Visible prüfen
    cmdDelete.Visible = Show_Delete
End Sub
 
 
Private Sub Label1_Change(Index As Integer)
    'Beim Ändern eines Label_Caption prüfen
    cmdDelete.Visible = Show_Delete
End Sub
 
 
Private Function Show_Delete() As Boolean
 
   Dim i As Integer
   For i = 1 To Check1.Count
      'Checkboxen, deren zugehörige Label-Caption leer ist disabeln
      Check1(i).Enabled = Label1(i).Caption <> ""
   Next i
 
   For i = 1 To Label1.Count
      If Label1(i).Caption <> "" And Check1(i).Value = 1 Then
         'Gibt es ein markiertes Label-Caption? 
         Show_Delete = True
         Exit Function
      End If
   Next i
 
   'Es gibt kein markiertes Label_Caption
   Show_Delete = False
 
End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Checkbox abfrage238Ronan06.05.22 10:55
Re: Checkbox abfrage69eierlein06.05.22 13:39
Re: Checkbox abfrage52Ronan06.05.22 15:23
Re: Checkbox abfrage46effeff06.05.22 21:34
Re: Checkbox abfrage50Manfred X07.05.22 00:15
Re: Checkbox abfrage45Ronan08.05.22 12:26
Re: Checkbox abfrage52Manfred X09.05.22 06:58
Re: Checkbox abfrage43effeff10.05.22 09:50
Re: Checkbox abfrage34Manfred X10.05.22 17:25
Re: Checkbox abfrage33Ronan11.05.22 12:54
Re: Checkbox abfrage48Manfred X11.05.22 19:28
Re: Checkbox abfrage28Statler-Waldorf13.05.22 11:57
Re: Checkbox abfrage22Manfred X13.05.22 12:15

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-2022 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