Problem bei der variablendeklaration

[4c1dI3uI2n]

hi leutz,
mein code:

Option Explicit

Dim blnGestellt As Boolean
Dim blnGemeldet As Boolean
Dim dtmWeckzeit As Data

Private Sub Aus_Click(Index As Integer)
blnGestellt = False
dtpWecker.SetFocus
End Sub

Private Sub Ein_Click(Index As Integer)
blnGemeldet = False
blnGestellt = True
dtmWeckzeit = Format(dtpWecker.Value, "Short Time")
End Sub

Private Sub Timer1_Timer()
If blnGestellt And Not blnGemeldet And _
Time >= dtmWeckzeit Then
Beep
MsgBox " Es ist jetzt " & _
Format(Time, "Short Time") & " Uhr", , "Wecker"
blnGemeldet = True
Aus.Value = True
End If
End Sub


Problem:
das was rot ist, da kommt folgende fehlermeldung:
Methode oder Mitgiedsdaten nicht gefunden.

plizzz help, i didn´t find the problem.

MfG

[cYrus]

das sieht ganz danach aus, dass das Objekt ´Aus´ nicht vorhanden ist..

so long
cYrus

[Bibolorean]

@cYrus
Doch doch.. du schaust nicht genau! Es ist nen Knopf! :D

Also, wie gesagt: So wie ich das sehe, ist dass nen Command Button..

und so weit ich weiss, kann man nem Knopf nicht nen True oder False wert zuweisen, wohl aber Aus.Enabled=True oder False!

Damit kannst de den Knopf aus und Einschalten!?

Vielleicht hasst du ja das gemeint?!?

Greetz Bìbòlorean

[Bibolorean]

Ok.. nimms zurück!! Hab grad gemerkt, dass es doch geht!? ;(

Aber der Button fehlt dann wahrscheinlich oder ist nicht richtig benannt!

Greetz Bìbòlorean

[4c1dI3uI2n]

hi leutz und thx für eure mühe,
also es ist ein optbutton und er ist weiter oben auch vorhanden und definiert und der name ist aus.
Enabled hab ich ausprobiert, aber ohne Erfolg.

plzzzzzz help meeeee!!!

thx im vorraus.

MfG

[4c1dI3uI2n]

nochmals ich,
hab ne ergänzung, undzwar ist der button aus eine kopie von button ein deshalb funktionierte es nicht.

k, alles klar, vielen thx ich werd bestimmt noch weitere fragen haben also bis später.

MFG

[cYrus]

optButto? Meinst du ein einfaches Option-Control?

und liegts vllt daran, dass due mehrere Objekte mit dem gleichen Namen hast? Wil sonst käme das nicht der Optionale Parameter (also der Index, den du beim Click-Event hast..)

so long
cYrus

[Aenguish]

Mit Objekt.enabled ist es nicht möglich den Status des Buttons zu überprüfen!
tztztz... *fg* :rolleyes:
Man muß Objekt.value = 0 ´bedeuted aus
Objekt.value = 1 ´bedeuted ein
Objekt.value = 2 ´bedeuted ausgeblendet
schreiben um den Status zu checken.

Den kann man dann eben mit einer If-Abfrage checken:

if aus.value = 0 then
msgbox ("Schalterstatus: aktiviert")
elseif aus.value = 1 then
msgbox ("Schalterstatus: deaktiviert")
end if


Aenguish Darknassassin