---

Hallo,

ich habe ein Problem mit folgenden Zeilen in meinem Programm:

Dim aOffsetValueParts() As String

For K = 1 To UBound(aOffsetValueParts) + 1

bOffsetDirection = aArrayWithOffsets(i - 1).OffsetDirection

If bOffsetDirection = True Or bOffsetDirection = 1 Then
  aOffsetValueParts(K - 1) = "+" & aOffsetValueParts(K - 1)
ElseIf bOffsetDirection = False Or bOffsetDirection = 0 Then
  aOffsetValueParts(K - 1) = "-" & aOffsetValueParts(K - 1)
End If

Der Wert von bOffsetDirection wird als "True" angezeigt, die If Bedingung ist also erfüllt, aber die zugehörige Then Anweisung wird übersprungen und auch bei "Select Case"-Abfrage wird die Anweisung übersprungen.
Die Anweisung an sich funktioniert ohne die If-Abfrage, ich habe aber auch schon "einfachere" Anweisungen ausprobiert.
Der Fehler muss wohl bei "bOffsetDirection" liegen, aber der ist ja vom Typ Boolean, kann also nur "true" oder "false" annehmen.

Falls jemand ne Idee hat, wo der Fehler liegen könnte, wäre ich für Anregungen dankbar.
Danke für eure Mühe.

Grüße,

FabeSD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo FabeSD,
versuch mal

Code:

---

If bOffsetDirection Then

---

Gruß
CAMiCADse

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

okay, das funktioniert...dann führt er die Anweisung aus, aber macht er jetzt überhaupt noch eine Fallentscheidung?
Also schreibt er dann ein "+" davor, wenn bOffsetDirektion true ist und ein "-", wenn false?

Danke für die schnelle Hilfe,

FabeSD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Probier es doch einfach aus...

Ganz Allgemein:
"If x Then" prüft den Ausdruck x auf True, ist also nix anderes als "If x=True Then",
ausser, dass es funktioniert

Gruß
CAMiCADse

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Eine If (Bedingung) Then prüft immer die Bedingung auf True   If Not (Bedinung) Then würde die Bedingung auf False prüfen.

If (Bedingung = True) Then würde also prüfen, ob der Wert der Bedingung gleich True ist, was er nicht sein wird (ist ja ein Double). If wird also False zurückgeben und da beide If-Bedinungen nur die Anweisungen ausführen, wenn True ausgegeben wird, wird gar nichts gemacht.

Code:

---

If bOffsetDirection = True Or bOffsetDirection = 1 Then
MsgBox("bOffsetDirection = True Or bOffsetDirection = 1")
  aOffsetValueParts(K - 1) = "+" & aOffsetValueParts(K - 1)
ElseIf bOffsetDirection = False Or bOffsetDirection = 0 Then
MsgBox("bOffsetDirection = False Or bOffsetDirection = 0")
  aOffsetValueParts(K - 1) = "-" & aOffsetValueParts(K - 1)
Else
MsgBox("Der Wert von bOffsetDirection war weder True oder False, noch 1 oder 0")
End If

---

Hier solltest du immer den letzten Text erhalten als Message.

Liebe Grüße,
pitty

Edit: sehe grade dass ich mich verlesen habe^^ OffsetDirection ist ja ein Objekt vom Typ Bool. Dann kann ich mir das nur so erklären, dass ein boolscher Wert nicht auf einen boolschen Wert geprüft werden kann. Warum... gute Frage, es ist einfach nicht nötig da der Wert selber schon vom Typ Bool ist.

[Diese Nachricht wurde von pittyplatsh am 10. Nov. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

vielen Dank, mit

If bOffsetDirection

Else

funktioniert es. Komischerweise klappt die Abfrage bei anderen Bools "If Bool = true" 
Naja, die Erklärung macht jedenfalls Sinn 

Danke, kann geschlossen werden.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Fabe SD
in VBA ist der Integerwert zu True -1
das löst zwar nicht dein Problem aber kann mal hilfreich sein.

------------------
Grüße TStone
   "Respektiere die Macht der Worte, wähle sie mit Bedacht!"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo FabeSD,
in meinen Augen ist nicht klar erkenntlich, wie die Variable deklariert ist. Im Normalfall wird eine If Then Anweisung mit einem True Ergebnis durchgeführt. Wenn also eine Variable den Wert True hat, dann brauch man nicht mehr über VariableA = True (was true ergeben würde, wenn der Wert true ist) darauf abfragen. Wenn die Variable allerdings als String, der auch ein True beinhalten könnte, deklariert ist, dann müsste die If Then Anweisung allerdings so "If VariableA = "True" then" aussehen. Das "True" ist nämlich nicht dasselbe wie das True. Vom Prinzip her geht jedoch bei einer Boolschen Variable beides, wenn man nach True abfragen möchte.

------------------
MFG
Rick Schulz
      Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

es handelt sich um eine CATVBA spezifisches Problem.
Um sämtliche Klarheiten zu beseitigen hier der Auszug aus der V5-Automation   :

Zitat:

---

Support of boolean type in CATVBA
There is a known limitation concerning the usage of the Boolean type in the V5 Automation methods invoked from VBA. In V5 applications, the Boolean type
is defined as an 'unsigned char' where the VBA definition is a short. When a V5 method returns True, the returned integer value is 1, though VBA is expecting -1. Because of this difference, the following VBA code will not work as expected (the method boolMethod returns True) :

If myObj.boolMethod() = True Then // This test will fail
...
End If

to correct this limitation, you have to write some code like this :

If myObj.boolMethod() Then End If

or

If myObj.boolMethod() != False Then
...
End If

For the same reason, the 'Not' operator cannot be applied directly on the returned value of such method:

Not(myObj.boolMethod())

will return True instead of returning False. To use correctly the 'Not' operator you have to use a variable to store the boolean value before applying the operator :

Dim myBool
myBool = myObj.boolMethod()
Not(myBool)

will correctly return False

Note that this limitation is specific to VBA and is not concerning VBScript.

---

Gruß
CAMiCADse

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP