Am 20.06.2010 um 20:10 schrieb Maximilian Tyrtania:
> Jetzt, da ich noch mal genauer gucke, wird's klarer. Du klickst auf die
> 1.Checkbox, und in deinem Actionevent ist index=0 (weil es sich um die "0-te"
> checkbox aus Deinem Array handelt, verstehste?). Du denkst aber (nunja, so
> scheint es zumindest), index sei die Anzahl der checkboxen.
> Die Schleife wird nur einmal durchlaufen, und Du erhältst den von Dir
> beschriebenen Effekt.
Hallo Max,
ja, klar. Jetzt hab' ich's. Nur weiß ich nicht, wie ich die Anzahl der Boxen
ermitteln kann. Mit ubound kriege ich es nicht hin.
dim n As Integer
dim ok as Boolean
ok=False
PushButton1.Enabled=False
ImageWell1.Visible=False
for n=0 to check_type.Ubound '>>>>>>> liefert "diese Methode oder Eigenschaft
existiert nicht!!!"
'while n<=index
if check_type(n).Value=true then
ok=true
end if
n=n+1
'wend
next n
if ok=true then
PushButton1.Enabled=true
ImageWell1.Visible=True
Else
PushButton1.Enabled=False
ImageWell1.Visible=false
end if
>
> Maximilian Tyrtania
>
> Am 20.06.2010 um 11:37 schrieb Roland Quadstege:
>
>> Hallo,
>>
>> ich habe ein Array checkboxen mit dem Namen "check_type" angelegt.
>> Diese beiden checkboxen sind in einer Groupbox und sollen - sobald ein
>> Element des Arrays check_type den Wert "true" hat - einen Pushbutton1 auf
>> enabled und ein Imagewell1 auf visible setzen. Das klappt auch soweit ganz
>> gut. Wenn ich aber dann den Wert des ersten Elements von check_type auf
>> "false" setze, aber das zweite Element von check_type noch auf true steht,
>> wird dieses letzte Element wohl nicht richtig erkannt? Kann das denn sein?
>> Hat da jemand eine Idee? Hier mal der Code dazu:
>>
>> dim n As Integer
>> dim ok as Boolean
>> ok=False
>> PushButton1.Enabled=False
>> ImageWell1.Visible=false
>> while n<=index
>> if check_type(n).Value=true then
>> ok=true
>> end if
>> n=n+1
>> wend
>> if ok=true then
>> PushButton1.Enabled=true
>> ImageWell1.Visible=True
>> Else
>> PushButton1.Enabled=False
>> ImageWell1.Visible=false
>> end if
>>
>>
>> ---------------------------------------------------------------------------------------------------------------------------------
>> Verfallen wir nicht in den Fehler, bei jedem Andersmeinenden entweder an
>> seinem Verstand oder an seinem guten Willen zu zweifeln.
>> (Otto Fürst von Bismarck)
>>
>>
>
>
