Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Text in Richtung Linie darstellen
Autor: Brauner
Datum: 21.06.09 18:33
'Sorry prog vergessen. Sub Form_Activate() Dim xe2# Dim xb# xe2# = -53 xb# = 2400 Picture1.DrawWidth = 2 Picture1.DrawStyle = 1 Picture1.Line (400, 200)-(4400, 2800), vbBlack Call linientext(400, 200, 4400, 2800, CStr(xb#), Picture1) End Sub Private Sub linientext(X1, Y1, X2, Y2, Text, obj As PictureBox) obj.Font = "Verdana" obj.ForeColor = vbBlack Dim xm#, ym# xm = (X1 + X2) / 2 ym = (Y1 + Y2) / 2 Dim xText#, yText# Dim Textbreite#, Texthoehe# Textbreite = obj.TextWidth(CStr(Text)) Texthoehe = obj.TextHeight(CStr(Text)) xText = xm - Textbreite / 2 yText = ym - Texthoehe / 2 obj.FontSize = 10 '10 Schriftgröße obj.Line (xText, yText)-(xText + Textbreite, yText + Texthoehe), obj.BackColor, BF obj.CurrentX = xText obj.CurrentY = yText obj.Print Text End Sub

Text in Richtung Linie darstellen	1.165	Brauner	21.06.09 18:30
Re: Text in Richtung Linie darstellen	726	Brauner	21.06.09 18:33
Re: Text in Richtung Linie darstellen	796	Zardoz	21.06.09 19:21
Re: Text in Richtung Linie darstellen	708	Brauner	21.06.09 19:54
Re: Text in Richtung Linie darstellen	705	Zardoz	21.06.09 20:37
Re: Text in Richtung Linie darstellen	717	Brauner	21.06.09 20:47
Re: Text in Richtung Linie darstellen	725	Brauner	21.06.09 22:12
Re: Text in Richtung Linie darstellen	703	Zardoz	22.06.09 16:48
Re: Text in Richtung Linie darstellen	715	Brauner	22.06.09 17:52
Re: Text in Richtung Linie darstellen	706	Zardoz	24.06.09 20:17

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen