EALA FREYA FRESENA

LabelText.Caption...

LabelText.Text...

EALA FREYA FRESENA

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