---

Hallo wer kann mir mal kurz helfen?

Wo liegt der Fehler??

Zuerst lese ich den Wert der benutzerdefinierten Eigenschaft aus.
customprop33 = Part.CustomInfo2(config, propname33)

Dann schaue ich den Wert an. Eine Checkbox soll darufhin gewählt oder nicht gewählt werden.
If customprop33 = "#" Then 
                CheckBox1.Value = 1
            Else
                CheckBox1.Value = 0
End If

Wenn ich auf "Zuweisen" klicke, soll folgendes passieren:

Dim costumprop33new As String

Die Eigenschaft propname33 wird gelöscht.
Call Part.DeleteCustomInfo(propname33)

Dann checke ich den aktuellen Wert der Checkbox. Wenn diese gehakt ist, soll der Variable
costumprop33new der Wert "#" zugewiesen werden, andernfalls der Wert " ".
If CheckBox1.Value = 1 Then               
                costumprop33new = "#"
               
            Else
                costumprop33new = " "               
End If

Diese neue Variable trage ich als Wert für die benutzerdef. Eigenschaft ein (und erstelle
gleichzeitig die Eigenschaft neu, da ich nicht wußte, wie man die Eigenscahft ändert)
Call Part.AddCustomInfo(propname33, "Text", costumprop33new)

Aber der macht das "Zuweisen nicht richtig"

------------------
Gruß, der Teddibaer
---------
Es gibt Tage an denen verliert man, und es gibt Tage, an denen kann man nicht gewinnen ...

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

---

Passiert das alles innerhalb der Form?
Wenn nicht, musst du die Form immer mit angeben bei Objekten aus dieser Form, also
nicht CheckBox1.Value = 1
sondern Form1.CheckBox1.Value = 1
usw.
oder
with Form1
    .CheckBox1.Value = 1
...
end with

Der Rest sollte eigentlich klappen...

------------------
Klaus Massler

www.al-ko.de
privat...
KLAMM? Was ist KLAMM?

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

---

Hi!

Wenn Du in der API-Help nachschaust, siehst Du, dass "DeleteCustomInfo" einen Wert (boolean) zurückgibt!! Es müsste meiner Meinung nach so aussehen:

Dim costumprop33new As String
Dim Retval as Boolean

Die Eigenschaft propname33 wird gelöscht.
Retval = Part.DeleteCustomInfo(propname33)

edit
dito mit "AddCustomInfo"
endedit

------------------
  Gruss
Andreas

A+E Müller AG

[Diese Nachricht wurde von Andreas Müller am 01. Jul. 2004 editiert.]

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

---

Hallo Andreas,
du hast recht, laut Hilfe stimmt der Aufruf mit Rückgabewert, da DeleteCustomInfo eine Funktion ist.
Es funktioniert aber auch mit Call Part.DeleteCustomInfo... ohne Rückgabewert (ich habe es extra nochmal so probiert).

Ciao

------------------
Klaus Massler

www.al-ko.de
privat...
KLAMM? Was ist KLAMM?

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

---

Macro1.zip

Hallo Teddibaer,

Ich habe Dir ein Beispiel mal beigefuegt das bei mir funktioniert. Du musst die Eigenschaft nicht loeschen, CustumInfo2 kann Lesen und schreiben. Voraussetzung ist aber, das die Eigenschaft vorhanden ist.

Viel Spass damit.

Ralph

------------------
PASCAM Ralph Müller
Softwareentwicklung

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