vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 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

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise bis zu 120,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 479,20 EUR statt 599,- EUR
  • sevDTA 3.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 20,00 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 55,20 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig
     ThemaViews  AutorDatum
    Rauten zeichnen558Marty**09.01.17 19:15
    Re: Rauten zeichnen262Franki11.01.17 02:20
    Re: Rauten zeichnen260sv0001011.01.17 05:12
    Re: Rauten zeichnen238Marty**11.01.17 20:45
    Re: Rauten zeichnen221Franki12.01.17 04:43
    Re: Rauten zeichnen252Manfred 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