Hallo ich bin neu hier im Forum und habe gleich mal eine Frage:

Problem:
Ich arbeite mit Microsoft Visual Studio 2005 und will den Inhalt von Checkboxen abfragen leider gibt es davon einige und ich habe mich gefragt ob es möglich ist das ganze mit einer Variable zu versehen und in eine Schleife zu packen:

Mein Code:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13

zlesen(key)(25) = CInt(Form1.S_25.Checked) zlesen(key)(25) = zlesen(key)(25).Replace("-", "")   zlesen(key)(26) = CInt(Form1.S_26.Checked) zlesen(key)(26) = zlesen(key)(26).Replace("-", "")   zlesen(key)(27) = CInt(Form1.S_27.Checked) zlesen(key)(27) = zlesen(key)(27).Replace("-", "")   zlesen(key)(28) = CInt(Form1.S_28.Checked) zlesen(key)(28) = zlesen(key)(28).Replace("-", "")   usw.

Also zb.: bei Form1.S_25.Checked nicht eine 25 sondern ein Form1.S_[i].Checked.

Sowas in der Art:

Code :

1 2 3 4

for i = 25 to 56 zlesen(key)(i) = CInt(Form1.S_[i].Checked) zlesen(key)(i) = zlesen(key)(i).Replace("-", "") next

Danke schon mal für die Hilfe.

Macewind

Das ist möglich mit der Eigenschaft

Code vbnet:

1	Controls.Item(Name)

eines jeden System.Windows.Control.

Du meinst so hier:

Code :

1 2 3 4

for i = 25 to 56 zlesen(key)(i) = CInt(Form1.Controls.Item("S_"+cstr(i)).Checked) zlesen(key)(i) = zlesen(key)(i).Replace("-", "") next

Leider geht das bei mir nicht Fehler:

"Checked ist kein Member von System.Windows.Control"

Aber System.Windows.Forms.CheckBox ist von Control abgeleitet, d.h. du musst das Item vorher in eine CheckBox konvertieren

Zitat von Steiner_B

Aber System.Windows.Forms.CheckBox ist von Control abgeleitet, d.h. du musst das Item vorher in eine CheckBox konvertieren

Kannst du mir dazu ein Code zeigen / schreiben ?

Keine Garantie über die genaue syntaktische Schreibweise, ich bin C# Programmierer. Die Logik dahinter ist auf jeden Fall richtig.

Code vb:

1 2 3 4 5 6 7

for i = 25 to 56    zlesen(key)(i) = CInt(       (System.Windows.Form.CheckBox)(Form1.Controls.Item("S_"+cstr(i))).Checked    )    zlesen(key)(i) = zlesen(key)(i).Replace("-", "") next

Um den Code von Steiner_B zu berichtigen:

Code vbnet:

1 2 3 4

For i = 25 to 56    zlesen(key)(i) = CInt(CType(Form1.Controls.Item("S_" & CStr(i)), System.Windows.Forms.CheckBox).Checked)    zlesen(key)(i) = zlesen(key)(i).Replace("-", "") Next

hab ja gesagt das ich VB nicht wirklich kann

Zitat von Masterclavat

Um den Code von Steiner_B zu berichtigen:

Code vbnet:

1 2 3 4

For i = 25 to 56    zlesen(key)(i) = CInt(CType(Form1.Controls.Item("S_" & CStr(i)), System.Windows.Forms.CheckBox).Checked)    zlesen(key)(i) = zlesen(key)(i).Replace("-", "") Next

bekomme dabei folgende Fehlermeldung:

Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

in der Zeile:

Code vbnet:

1	zlesen(key)(i) = CInt(CType(Form1.Controls.Item("S_" & CStr(i)), System.Windows.Forms.CheckBox).Checked)

Weil selbst wenn ich testweise gar keine Variable übergebe also:

Code vbnet:

1 2 3 4

For i = 25 to 56    zlesen(1)(25) = CInt(CType(Form1.Controls.Item("S_25"), System.Windows.Forms.CheckBox).Checked)    zlesen(1)(25) = zlesen(1)(25).Replace("-", "") Next

kommt der gleiche Fehler wieder.

Oder muss ich dabei noch was anderes beachten/umwandeln?

Zitat von Macewind

Oder muss ich dabei noch was anderes beachten/umwandeln?

Prüfen ob du bei

Code :

1	Form1.Controls.Item("S_" & CStr(i))

überhaupt was zurück bekommst.
und

Code :

1	zlesen(key)(i)

ebenfalls nicht null ist.

überprüf mal ob

Code vb:

1	Form1.Controls.Item("S_25")

ein gültiges Objekt zurückliefert

Zitat von Steiner_B

überprüf mal ob

Code vb:

1	Form1.Controls.Item("S_25")

ein gültiges Objekt zurückliefert

Code vbnet:

1	Form1.Controls.Item("S_25")

is bei mir Nothing und nicht von Typ CheckBox

aber

Code vbnet:

1	Form1.S_25.Checked

is nicht Nothing und ist vom Typ CheckBox

Geprüft habe ich das mit

Code vbnet:

1 2 3 4 5 6 7

Public Shared Function test(ByVal objekt As Object) As Boolean If objekt Is Nothing Or Not TypeOf objekt is CheckBox Then Return False Else Return True End If End Function

Kurz gesagt ich bin genau so weit wie vorher hoffe es kann mir da jemand weiterhelfen

Hi

liegt die CheckBox in einem Container (GroupBox, ...)? Wenn ja musst du rekursiv suchen. Dazu kannst du die Find-Methode der ControlsCollection nutzen und für searchAllChildren true übergeben.

Zitat von Nico Graichen

Hi

liegt die CheckBox in einem Container (GroupBox, ...)? Wenn ja musst du rekursiv suchen. Dazu kannst du die Find-Methode der ControlsCollection nutzen und für searchAllChildren true übergeben.

Ja die CheckBox liegt auf "Form1" in der GroupBox mit dem Namen "Zustand"

Somit würde der neue Code lauten:

Code vbnet:

1	CType(Form1.Zustand.Controls.Item("S_" & CStr(i)), System.Windows.Forms.CheckBox).Checked

Damit hat es auch funktioniert danke habt mir sehr geholfen!