Tos alku:
Imports System.Drawing
Public Class Form1
Dim piirto As System.Drawing.Graphics 'määritellään toi juttu
Dim väri As New System.Drawing.Pen(Color.Blue) 'esitellään kynäja tos se piirto juttu:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 'suoritetaan heti aluksi
piirto = Me.CreateGraphics
piirto.DrawLine(väri, 20, 20, 40, 40) 'piirretään viiva
End SubTon pitäis piirtää viiva mut mitään ei näy
Vanhemmissa versioissa (VB5 tai VB6) täytyy lomakkeen olla näkyvillä tai AutoreDraw = True, jotta piirto näkyy. Koeta tuota piirtojuttua eri tapahtumaan kuin Form_Load.
Siirrä tuo viivan piirto Paint tapahtumaan. Eli koodina:
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawLine(väri, 20, 20, 40, 40)
End SubTää oli kyl ihan mun pikku moka... Katoin tota formii uudellee ja siin oli labeli pääl ku oli yks toinenki juttu siin samas koodis. Nyt pelittää :D
Aihe on jo aika vanha, joten et voi enää vastata siihen.