vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Sch?tzen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2017
 
zurück

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

VB.NET - Ein- und Umsteiger
Re: Rauten zeichnen 
Autor: Manfred X
Datum: 12.01.17 09:32

Hallo!

Du machst keine Angaben zu eventuellen mathematischen Vorgaben
(relative Länge/Breite bzw. Winkel) der Rauten.

Der einfachste Weg wäre, Linien in jeweils einem bestimmten Abstand
zu zeichnen, die unterschiedlich stark gegenüber der Vertikale verschoben
sind.

Triviales Beispiel (Winforms-Formular):
Public Class frmDrawLines
 
    Dim pb As New PictureBox With _
          {.Parent = Me, .Width = 500, .Height = 500}
 
 
    Private Sub frmLines_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Dim bmp As New Bitmap(300, 400)
 
        Drawlines(bmp, 20, 80, True)
        Drawlines(bmp, 30, 300)
 
        pb.Image = bmp
    End Sub
 
 
    ''' <summary>Gruppe von parallelen Linien zeichnen</summary>
    ''' <param name="bmp">Bitmap für Zeichnung</param>
    ''' <param name="distance">Abstand zwischen den Linien</param>
    ''' <param name="addwidth">Verschiebung gegenüber der Vertikale (Pixel)</param>
    ''' <param name="clear">Soll die Bitmap zuvor gelöscht werden?</param>
    Public Sub Drawlines(bmp As Bitmap, distance As Integer, _
                         addwidth As Integer, _
                         Optional ByVal clear As Boolean = False)
 
        If bmp Is Nothing Then Exit Sub
 
        Using g As Graphics = Graphics.FromImage(bmp), _
            p As New Pen(Color.Black, 1)
            If clear Then
                g.Clear(Color.White)
            End If
            For i As Integer = -bmp.Height To bmp.Height Step distance
                g.DrawLine(p, New Point(i, 0), _
                   New Point(CInt(i + addwidth), bmp.Height))
            Next i
        End Using
    End Sub
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

Neue Version! sevEingabe 3.0 (für VB6 und VBA)
Das Eingabe-Control der Superlative! Noch besser und noch leistungsfähiger!
Jetzt zum Einführungspreis       - Aktionspreis nur für kurze Zeit gültig -
 ThemaViews  AutorDatum
Rauten zeichnen659Marty**09.01.17 19:15
Re: Rauten zeichnen308Franki11.01.17 02:20
Re: Rauten zeichnen309sv0001011.01.17 05:12
Re: Rauten zeichnen282Marty**11.01.17 20:45
Re: Rauten zeichnen263Franki12.01.17 04:43
Re: Rauten zeichnen299Manfred X12.01.17 09:32

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2017 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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