Hallo Zusammen,
bin für mein Programm gerade bisschen am Testen und habe kaum Ahnung von grafischen Erstellungen.
Zu meiner Überlegung was ich machen will:
Ich möchte Rechtecke und Linien untereinander und nebeneinander zeichnen lassen.
Eigentliche Datenquelle ist ein Structure mit verschiedenen Daten (denke für die Thematik hier unrelevant).
In meinem Test zeichne ich einfach 5 Rechtecke mit festem Abstand untereinander. Da mein y größer ist als mein Panel in das ich Zeichne, müsste ich dieses Scrollen können habe das auch schon mit AutoScroll probiert tut aber nicht , denke das liegt einfach an falscher Benutzung/fehlender Kenntnisse vielleicht hat da jemand einen Tipp.
Ausserdem würde ich gerne hinein und herauszoomen einfach mit zwei buttons + - möchte aber keine Faktoren in jede Zeile in der ich zeichne einbinden wollen, da ich recht viele verschiedene grafische Objekte habe.
Zum Code: Graf1 ist ein Panel
Für ein paar Tipps wäre ich dankbar.
bin für mein Programm gerade bisschen am Testen und habe kaum Ahnung von grafischen Erstellungen.
Zu meiner Überlegung was ich machen will:
Ich möchte Rechtecke und Linien untereinander und nebeneinander zeichnen lassen.
Eigentliche Datenquelle ist ein Structure mit verschiedenen Daten (denke für die Thematik hier unrelevant).
In meinem Test zeichne ich einfach 5 Rechtecke mit festem Abstand untereinander. Da mein y größer ist als mein Panel in das ich Zeichne, müsste ich dieses Scrollen können habe das auch schon mit AutoScroll probiert tut aber nicht , denke das liegt einfach an falscher Benutzung/fehlender Kenntnisse vielleicht hat da jemand einen Tipp.
Ausserdem würde ich gerne hinein und herauszoomen einfach mit zwei buttons + - möchte aber keine Faktoren in jede Zeile in der ich zeichne einbinden wollen, da ich recht viele verschiedene grafische Objekte habe.
VB.NET-Quellcode
- Imports System.Drawing.Drawing2D
- Public Class Form1
- Public Grafik As Graphics
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim i As Integer = 0
- Do While Not i = 250
- Grafik = Graf1.CreateGraphics
- Grafik.DrawRectangle(Pens.Black, 20, 20 + i, 100, 30)
- i = i + 50
- Loop
- End Sub
- End Class
Zum Code: Graf1 ist ein Panel
Für ein paar Tipps wäre ich dankbar.