Hey Community!
Ich habe im Internet einen Code entdeckt womit man auf seiner Form ein Gitternetzt Zeichnen kann:
Spoiler anzeigen
Funktioniert soweit auch perfekt und laggt auch nicht.
Nun möchte ich es aber so modifizieren, das es so wie im Visual Basic Editor ist, das heißt die Steuerelemente richten sich an diesem Raster aus.
Könntet Ihr mir vielleicht dabei helfen?
Danke im vorraus
Ich habe im Internet einen Code entdeckt womit man auf seiner Form ein Gitternetzt Zeichnen kann:
VB.NET-Quellcode
- Private spalten As Integer = 15
- Private reihen As Integer = 15
- Public Sub DrawLines(ByVal g As Graphics)
- Dim factorx As Double = (Panel1.ClientSize.Width / spalten) - (1 / spalten)
- Dim factory As Double = (Panel1.ClientSize.Height / reihen) - (1 / reihen)
- For y As Integer = 1 To reihen
- g.DrawLine(Pens.Green, 1, CInt(y * factory), Panel1.Width, CInt(y * factory))
- Next
- For x As Integer = 1 To spalten
- g.DrawLine(Pens.Green, CInt(x * factorx), 1, CInt(x * factorx), Me.Height)
- Next
- End Sub
- Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
- Me.Refresh()
- End Sub
- Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
- e.Graphics.Clear(Color.Black)
- DrawLines(e.Graphics)
- End Sub
Funktioniert soweit auch perfekt und laggt auch nicht.
Nun möchte ich es aber so modifizieren, das es so wie im Visual Basic Editor ist, das heißt die Steuerelemente richten sich an diesem Raster aus.
Könntet Ihr mir vielleicht dabei helfen?
Danke im vorraus
Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button
Für VB.NET Entwickler: Option Strict On nicht vergessen!
Für VB.NET Entwickler: Option Strict On nicht vergessen!