Ich hab neue Wasserfarben!
Oh.. Ich male immernoch mit GDI+
Hey,
ich habe vor ein paar Wochen angefangen, ein wenig mit GDI+ zu spielen und wollte euch nun auch mal den Einstieg mit diesem kleinen Tutorial vereinfachen =)
Aufbau
- Einfache Linien >>malen<<
- Ein Rechteck und weitere geometrische Formen
- Abschluss
Teil 1: Einache Linien >>malen<<
Man kennt es ja von den Grafikbibliotheken in z.B. C++:
alles ist aufwendig, schwer zu verstehen und braucht folglich viel Zeit.
Nicht so in VB.NET mit GDI+!
Ich werde zuerst mal den ganzen Code posten und ihn dann in Teilen erklären.
|
Visual Basic Quellcode
|
1
2
3
4
5
6
|
Dim graphic As Graphics
Dim p As Pen
graphic = Me.CreateGraphics()
p = New Pen(System.Drawing.Color.Black, 10)
grahic.DrawLine(p, 0, 0, Me.Width, Me.Height)
|
Nun zur Erklärung
|
|
Visual Basic Quellcode
|
1
2
|
Dim graphic As Graphics
Dim p As Pen
|
Sind erstmal Variablen, die wir zum Zeichnen brauchen.
Das Pen-Objekt sollte sich von selbst erklären, es beinhaltet später die Eigenschaften des
>>Stiftes
<<, mit dem wir zeichnen.
Das Graphics-Object stellt u.A. die Funktionen bereit, die wir zum Zeichnen brauchen.
|
|
Visual Basic Quellcode
|
1
|
graphic = Me.CreateGraphics()
|
Mit Me.CreateGraphics() stellt sich die Form als
>>Papier
<< für unsere Zeichnung zur verfügung.
|
|
Visual Basic Quellcode
|
1
|
p = New Pen(System.Drawing.Color.Black, 10)
|
Wir
>>suchen uns einen Stift aus
<< , in unserem Fall soll es ein 10 Pixel (ja, hier wird in Pixeln gerechnet) großer, schwarzer Buntstift sein.
|
|
Visual Basic Quellcode
|
1
|
graphic.DrawLine(p, 0, 0, Me.Width, Me.Height)
|
Wir fangen an zu zeichnen. Wir wollen einen Strich von dem Punkt a(0|0) nach b(Me.Width|Me.Height)(z.B. b(100|100)) mit dem vorhin gewählten Stift(p) zeichnen.
Die Punkte sind in einem gedachten Koordinatensystem(von links oben ausgehend.).
ACHTUNG: Man kann eine "Malaktion" nicht durch den MyBase.Load-Handler auslösen!!
Teil 2: Ein Rechteck und weitere geometrische Formen
|
|
Visual Basic Quellcode
|
1
2
3
4
|
Dim graphic As Graphics = Me.CreateGraphics
Dim pen As New Pen(Color.Black, 1)
Dim rec As New Rectangle(1, 1, 100, 100)
graphic.DrawRectangle(pen, rec)
|
|
|
Visual Basic Quellcode
|
1
2
|
Dim graphic As Graphics = Me.CreateGraphics
Dim pen As New Pen(Color.Black, 1)
|
Gleiches verfahren wie vorher, nur kürzer.
|
|
Visual Basic Quellcode
|
1
|
Dim rec As New Rectangle(1, 1, 100, 100)
|
Wir erzeugen ein vorerst nicht sichtbares Rechteck, welches wir später am Punkt p(0|0) mit Höhe 100 Pixel und Breite 100 Pixel zeichnen möchten
|
|
Visual Basic Quellcode
|
1
|
graphic.DrawRectangle(pen, rec)
|
Das sollte sich wohl von selbst erklären.
Ja, die Graphics-Instanz stellt für jede geom.(nicht-dreidimensionale, afaik) Form eine draw-Funktion bereit.
Unten auf
der Seite gibt es eine schöne Tabelle an Funktionen.
Teil 3: Abschluss
So, ich habe hier noch eine kleine Funktion für ein Gitter mit 5² Pixeln unterteilung geschrieben
|
|
Visual Basic Quellcode
|
1
2
3
4
5
6
7
8
9
10
11
|
Dim graphic As Graphics = Me.CreateGraphics
Dim pen As New Pen(Color.Black, 1)
For i As Integer = 0 To Me.Width
graphic.DrawLine(pen, i, 0, i, Me.Height)
i += 4
Next
For i As Integer = 0 To Me.Height
graphic.DrawLine(pen, 0, i, Me.Width, i)
i += 4
Next
|
Hoffe ihr konntet was lernen =)
lg.
PS: Ich weiß, es ist nichts besonderes für die, die es können, aber für Leute die das nicht können...
~Edit: Wenn ihr das anseht, dann bitte auch Feedback abgeben..
Zitat
Ich hab neue Wasserfarben!
Hier klicken für weitere Informationen
)
Donnerstag, 9. Februar 2012, 03:49
Zum Seitenanfang
