vb@rchiv · Diskussionsforen · Re: parallele Linien · Fortgeschrittene Programmierung

VB Classic
VB.NET
ADO.NET
VBA
C#

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[354 User online]
[320 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Fortgeschrittene Programmierung

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Fortgeschrittene Programmierung

Re: parallele Linien

Autor: LesPaul
Datum: 15.11.08 16:18

moin, ein anderer Ansatz... eine Lösung wäre wenn ich die gezeichnete Linie an X1,Y1 um 90° drehen könnte. Dazu habe ich den unten stehenden Code gefunden, aber leider nicht geschafft diesen so um zu schreiben, dass ich ihn auch für eine "normale" Linie nutzen kann. Könnte mir jemand das umschreiben? Wäre sehr nett und ich danke für die Hilfe, LesPaul Option Explicit Private SW!, SH!, Pi! Private Sub Command1_Click() Call Text1_KeyDown(vbKeyReturn, 0) End Sub Private Sub Form_Load() Pi = 4 * Atn(1) With Picture1 SW = .ScaleWidth SH = .ScaleHeight .TabStop = False .AutoRedraw = True Picture1.Line (0, SH / 2)-Step(SW, 0), vbWhite Picture1.Line (SW / 2, 0)-Step(0, SH), vbWhite Set .Picture = .Image End With End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Dim Rad1!, Wnk! If KeyCode = vbKeyReturn Then Wnk = Val(90) / 180 * Pi Rad1 = Sqr((SW / 2) ^ 2 + (SH / 2) ^ 2) Picture1.Cls Picture1.Line (SW / 2, SH / 2)-Step(Rad1 * Cos(Wnk), (Rad1 * -Sin(Wnk))), vbRed End If End Sub

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

parallele Linien	1.321	LesPaul	14.11.08 16:11
Re: parallele Linien	636	LesPaul	15.11.08 16:18

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

sevGraph (VB/VBA)

Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig!

Weitere Infos

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

TOP Entwickler-Paket

TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...

Jetzt nur 979,00 EUR
Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel