Forum studentów Informatyki Zaocznej na Uniwersytecie Opolskim
Offline
Odnośnie kratki, żeby nie zawierała błędu przy zmianie rozmiaru
Dim kartka As Graphics = Me.CreateGraphics Dim wysokosc_okna As Integer = Me.Height Dim szerokosc_okna As Integer = Me.Width Dim wieksza_wartosc As Integer kartka.Clear(Color.LightGray) If szerokosc_okna > wysokosc_okna Then wieksza_wartosc = Me.Width Else : wieksza_wartosc = Me.Height End If For j As Integer = 1 To wieksza_wartosc Step 20 For i As Integer = 10 To wieksza_wartosc Step 20 kartka.DrawLine(Pens.Red, 0, i, szerokosc_okna, i) kartka.DrawLine(Pens.Black, i, 0, i, wysokosc_okna) Next i kartka.DrawLine(Pens.Black, 0, j, szerokosc_okna, j) kartka.DrawLine(Pens.Red, j, 0, j, wysokosc_okna) Next j
Offline