vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 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
Checkbox abfrage 
Autor: Ronan
Datum: 06.05.22 10:55

Hallo,

ich hab in meinem Programm 10 Checkboxen und rechts jeweils daneben ein Label zur anzeige von Text.
Nun möcht ich den zulöschenten Text mit der jeweiligen Checkbox markieren und dazu soll unten das Lösch-Label erscheinen, was auch passiert. Nur wenn ich den letzten Hacken aus der Checkbox entferne verschwindet auch das Lösch-Label das soll nicht passieren da ja noch zwei Checkboxen ausgwählt sind. Es soll auch nur ein Hacken gesetzt werden können wenn im dazugehörigen Label Text ist also LabelText.Caption <> "" was aber trotzdem passiert.

Ich hab nun schon einiges ausprobiert aber nichts führt zum Erfolg, nun bitte ich Euch um Hilfe


Danke
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: eierlein
Datum: 06.05.22 13:39

Vermutlich liegt der Fehler in Zeile 32.
😁
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: Ronan
Datum: 06.05.22 15:23

hahaaaa selten sooo gelacht....
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: effeff
Datum: 06.05.22 21:34

//Vermutlich liegt der Fehler in Zeile 32.//

So ein Quatsch? Was bildest Du Dir ein? Der Fehler liegt in Zeile 33!

EALA FREYA FRESENA

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: Manfred X
Datum: 07.05.22 00:15

Hallo!

Wenn in einem der Label kein Text eingetragen wird, sollte die zugehörige Checkbox
unchecked und disabled per Code gesetzt sein.

Erstelle eine Routine mit boolscher Rückgabe.
In der Routine durchläuft eine Schleife die beiden Steuerelement-Felder
und es wird jeweils geprüft, ob das Label am Schleifenindex Text enthält UND die
zugehörige Checkbox gechecked ist.
Sobald diese Bedingung in der Schleife erstmals auftritt, wird true zurück gegeben.
Hinter der Schleife wird false zurück gegeben.

Die Rückgabe dieser Funktion ist auf die Visible-Eigenschaft des Lösch-Labels zuzuweisen.

Diese Funktion ist stets aufzurufen, wenn einem der Label
Text geändert wird oder wenn der Benutzer den Status einer der Checkboxen ändert.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: Ronan
Datum: 08.05.22 12:26

vielen dank Manfred X nur wenn ich wüsste wie das zu realisieren ist....

ich hab schon einiges ausprobiert nur nichts funktioniert so wie ich es mir gedacht hatte...
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: Manfred X
Datum: 09.05.22 06:58

Hallo!

Du bist seit Ende 2016 hier angemeldet, VB6 ist aber eigentlich
bereits seit 2008 bei Microsoft "ausgelaufen".
Bist Du sicher, dass Du VB6 oder VBA benutzt und nicht etwa
VB.Net (Visual Studio 2010 bis 2022)?
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: effeff
Datum: 10.05.22 09:50

Ronan sollte sicher sein...

LabelText.Caption...
Sonst wäre es ja

LabelText.Text...

EALA FREYA FRESENA

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: Manfred X
Datum: 10.05.22 17:25

Hallo!

Erwischt.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: Ronan
Datum: 11.05.22 12:54

Ja bin ich

Ich hab noch ein älteres von mir geschriebenes Programm und dafür bräucht ich das


Danke
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: Statler-Waldorf
Datum: 13.05.22 11:57

achherrje:

So wie man in Politik dem Wladimir Putin sagen muss: " Lass' die Finger vom Fusel weg"!" Muss man in der ooP manchem Programmierer sagen: "Lass die Finger von .NET weg!"
ooP in Classic VB ist was ganz Feines.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: Manfred X
Datum: 13.05.22 12:15

Hallo!

Vielleicht solltest Du die Finger vom Fusel lassen.
Solche "Beiträge" nützen niemand.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: Ronan
Datum: 23.05.22 12:31

ääähm wie bitte?? versteh ich gerade nicht
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Checkbox abfrage 
Autor: Ronan
Datum: 23.05.22 12:33

aaach so der sowas ignorier ich
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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