Forums Neueste Beiträge
 

Zahlenkombinationen

22/03/2011 - 16:54 von Hermie | Report spam
Hallo!

Ich möchte in einem Zahlenwert mehrere Werte speichern.
Dazu habe ich mir diese Enumeration gebastelt:

Public Enum eCalendarEventNotification
eCEN_Undefined = &H0
eCEN_5Minutes = &H1
eCEN_15Minutes = &H2
eCEN_30Minutes = &H4
eCEN_1Hour = &H8
eCEN_2Hours = &H10
eCEN_1Day = &H20
eCEN_2Days = &H40
eCEN_ThatDay = &H80
End Enum

Und so setze oder entferne ich einen Wert:

Public Sub AddOrRemoveNotification(ByVal uNotification As
eCalendarEventNotification)

If (MySelectedEventNotification And uNotification) = uNotification Then
MySelectedEventNotification = MySelectedEventFrom And Not
uNotification
Else
MySelectedEventNotification = MySelectedEventNotification Or
uNotification
End If

End Sub

Kann mir bitte jemand sagen, ob das so richtig ist?
Ich habe da noch einen Fehler, und mir ist gerade nicht klar, wo.
Wàre sehr hilfreich, wenn ihr sagen könntet, ob mein obiger Code so stimmt.

Dankeschön!
Hermie
 

Lesen sie die antworten

#1 Armin Zingler
22/03/2011 - 17:51 | Warnen spam
Am 22.03.2011 16:54, schrieb Hermie:
Und so setze oder entferne ich einen Wert:

Public Sub AddOrRemoveNotification(ByVal uNotification As
eCalendarEventNotification)

If (MySelectedEventNotification And uNotification) = uNotification Then
MySelectedEventNotification = MySelectedEventFrom And Not
uNotification



Hier oben hast du MySelectedEventFrom statt MySelectedEventNotification stehen.

Else
MySelectedEventNotification = MySelectedEventNotification Or
uNotification
End If

End Sub



Einfacher wàre aber

MySelectedEventNotification = MySelectedEventNotification Xor uNotification


Armin

Ähnliche fragen