In een picturebox teken ik ruitjes papier. Het formaat van het ruitjespapier is gekoppeld aan het formaat van de form.
Wat ik wil is als de form wordt vergroot of verkleind dat dan het ruitjespapier zich daaraan aanpast.
Ik heb dit geprobeerd met me.refresh, bij de Fm_Domain_SizeChanged methode, maar dat wil niet werken. Iemand enig idee hoe dit aan te pakken?
Code:
Imports System.Drawing.Graphics
Imports System.Math
Public Class Fm_Domain
Dim Pw, Ph, Fw, Fh, Pm As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Width = 810
Me.Height = 505
Fw = Me.Width
Fh = Me.Height
Pm = 20
Pw = Fw - 3 * Pm
Ph = Fh - 4 * Pm
Pc_Domain.Height = Ph
Pc_Domain.Width = Pw
Pc_Domain.Top = Pm
Pc_Domain.Left = Pm
Pc_Domain.BackColor = Color.White
End Sub
Private Sub Pc_Domain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Pc_Domain.Paint
Dim g As Graphics = e.Graphics
Dim clr1, clr2, clr3 As Pen
Dim q As Double
Dim Xas, Yas, i, j As Integer
Xas = Ph / 2
Yas = Pw / 2
clr1 = Pens.DarkGray
clr2 = Pens.LightGray
clr3 = Pens.Red
g.DrawLine(clr1, 0, Xas, Pw, Xas)
g.DrawLine(clr1, Yas, 0, Yas, Ph)
For i = -Pw To Pw Step Pw / 75
g.DrawLine(clr2, 0, i, Pw, i)
g.DrawLine(clr2, i, 0, i, Ph)
Next i
End Sub
Private Sub Fm_Domain_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
Me.Refresh()
Me.ResumeLayout()
End Sub
End Class