Visual Basic Forum

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

Wie kann man eine kürzen code hin bekommen

wenn man z.b in eien frm eine vabriale setzt mit einen button dann , dann macht der user den hacken weg bei der option aber nun ist der werd ja immer noch z.b 1

Nun müsste man für jede variabel ein If schreiben ob die jeweilige check box ausgewählt ist oder nicht als bei

if pl_duel.value = 1 then

peter = 1

end if

-----
if pl_duel.value = 0 then

peter = 0

end if

So da ich aber 10 check boxen haben und fast alle
10 mit einander ausgewählt werden könne müsste ich ungefär
100 ifs schreiben

---

geht das nicht einfach Smile

Amethyst_ · Poster Anmeldedatum: 24.02.2007 Beiträge: 172

Benutz doch Select Case. ^^
Ist im Vidtutorial 4.

Btw: Da ist jetzt net als Flame / Beleididgung gemeint, aber bitte versuch doch mal deutliche und zusammenhängende Sätze zu formulieren. Das ist echt schlimm. ^^

e: Und vllt mal Satzzeichen benutzen. ^^

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

dann müsste ich 100 case schreiben

und ich mache rechtschreibfehler weil

rechtschreib schwäche

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

Verseh die Checkboxen mit nem Index
und geh dann in einer Schleife alle durch

[code]
for i = 0 to 99
if chkboxk(i).value = 1 then
peter = 1
end if [/code]

und deine Rechtschreibschwaeche wuerde ich eher als Faulheit definieren.

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

jo,legastheniker sind faule menschen
und schwarze waren zu lange in der sonne Embarassed

danke für die schleife

kannst du erkären was sie genau macht ?

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

es geht jede einzelne checkbox durch, prueft ob sie den wert 1 hat, und wenn ja setzt sie die variable peter auf den wert 1.. so hab ich dich jedenfalls verstanden das es sein sollte ^^

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

nein , sind 10 checkboxen mit 10 verschieden varbialen .

jeder setzt eine andere

ich glaube man könne auch die checkeboxen das value geben

also if peter = 1 then
checkbox1.value = 1
end if

peter = 0

die frage die jetzt haben kann man bei case ein oder machen

also

select case peter
case 1 oder 2
checkbox1.value = 1

end select

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

versuch mal

[code]
select case peter
case 1 OR 2 'bin mir aber nicht sicher[/code]

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

das schein irgend wie auch nicht so richtig zu funktionieren .

Wenn z.b 1 vabriale nimmt die von mehren checkboxen beschrieben wird.

mh
ein problem mal wieder

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Ist doch eh relativ einfach.
Du brauchst nur den Wert der Checkbox direkt an die Variable übergeben. Am besten wenn auf die Checkbox geklickt wird.

[code]
Private Sub pl_duel_Click()
peter = pl_duel.value
End Sub
[/code]

Falls du die Checkboxen auch noch von wo anders überprüfen lassen willst, machst du dir einfach eine Funktion die das erledigt.
Etwa so:

[code]
Private Function GetValue()
peter = pl_duel.Value
yyy = yyy.value
xxx = xxx.value
zzz = zzz.value
End Function
[/code]

Ich würde dir zwar zu den Werten True/False raten, aber da müßte man wieder if Abfragen oder Select Case einbauen. So sollte es einfach genug sein.

mfg, ZiG
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

deine methote funktioniert auch nicht

wenn ich 2 verschiede checkboxen anklicke hat

peter = 1
und
oliver = 1

dann sind beide auf 1

wenn ich eine if mache ist es das gleiche

z.b if checkbox.value = 1then
peter = 1
end if

if checkbox2.value = 1 then
oli = 1
end if

wenn beide zusammen geklickt werden ist oliver auf 1 und peter auf 1

nun man merkt das problem .

peter ist immer 1 egeal wie man es anstellt .

hilfe

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

habe es raus bekommen mit the coders hilfe

if Peter = 0 and Oli = 1 then
text1,text = "hallo "
end if

if peter = 1 and Oli = 0 then
text1.text = "du "
end if

if peter = 1 and Oli = 1then
text1.text =" du da das"
end if