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 Sub
Ton 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 Sub
Tää 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.