---

Hallo!

Ich hab mal wieder ein Problemchen.
Das Textfeld in meinem Code wird erfolgreich hinzugefügt.
Wieso funktioniert dann mein WrappingWidth Befehl nicht?
CStr() führt leider auch nicht zum Ziel.

Danke für eure Antworten  

Code:

---

Dim oLala As DrawingText
Set oLala = oDrwTexts.Add("Werkstoff:", iDrwWidth - iFrameBorderOutsideOffsetElse - iBorderWidth - 100 + 1, _
     (iFrameBorderOutsideOffsetElse + iBorderWidth + iFrameTitleBlockRowHeight * 6) + iFrameTitleBlockRowHeight/2)
oLala.Name = "Frame_TitleBlock_Text_Material_Label"
oLala.anchorPosition = catMiddleLeft
oLala.SetFontName 0,0,"Monospace821 BT"
oLala.SetFontSize 0,0,1.5

MsgBox oLala.WrappingWidth

---

Liebe Grüße aus Wien,
Christoph

[Diese Nachricht wurde von C.Samer am 10. Okt. 2017 editiert.]

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

---

Servus

WrappingWidth liefert dir scheinbar nur einen Wert zurück, wenn dieser zuvor gesetzt wurden. (Fehler abfangen)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo,

da war jemand schneller. Habe es gerade getestet. Wenn du vorher einen Wert zuweist, geht es.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Ah, ich Dummerchen. Altes Problem, altbewährte Lösung.. 

Code:

---

Set oDrwText = oDrwTexts.Add("Werkstoff: ", iDrwWidth - iFrameBorderOutsideOffsetElse - iBorderWidth - 100 + 1, _
    (iFrameBorderOutsideOffsetElse + iBorderWidth + iFrameTitleBlockRowHeight * 6) + iFrameTitleBlockRowHeight/2)
oDrwText.Name = "Frame_TitleBlock_Text_Material"
oDrwText.anchorPosition = catMiddleLeft
oDrwText.SetFontName 0,0,"Monospace821 BT"
oDrwText.SetFontSize 0,0,1.5

oDrwText.WrappingWidth = 0
Set oDrwText = oDrwTexts.Add("" & sMaterial, iDrwWidth - iFrameBorderOutsideOffsetElse - iBorderWidth - 100 + oDrwText.WrappingWidth + 1, _
    (iFrameBorderOutsideOffsetElse + iBorderWidth + iFrameTitleBlockRowHeight * 6) + iFrameTitleBlockRowHeight/2)
oDrwText.Name = "Frame_TitleBlock_Text_Material_Value"
oDrwText.anchorPosition = catMiddleLeft
oDrwText.SetFontName 0,0,"Monospace821 BT"
oDrwText.SetFontSize 0,0,2.0

---

Danke euch! Jetzt geht es 

Liebe Grüße aus Wien,
Christoph

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