Hvordan lage et paint program?

[Hayer]

Hei alle sammen

Jeg lurte på om noen poste en trail eller forklare(Med litt kodesnutter etc.)

om hvordan man lagde et paint program som f.eks har en fast størelse på

800x600...

[Moskus]

Du finner en del kildekode her:

http://www.planetsourcecode.com/vb/scripts...rt=Alphabetical

 

[Hayer]

De kodene var litt for vanskling/komplisert for meg

Ander forslag?

[aadnk]

En svært enkel variant er å simpelthen lage en bildeboks til denne oppløsningen, kalle den picPaint, og deretter legge inn følgende kode:

 

Private Sub picPaint_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

 

    ' Tilbakestill posisjon

    picPaint.Line (X, Y)-(X, Y)

 

End Sub

 

Private Sub picPaint_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

 

    ' Dersom venstre musetast er nedtrykket,

    If Button = 1 Then

        ' ... tegner vi en linje fra forrige posisjon.

        picPaint.Line -(X, Y), vbBlack ' Endre vbBlack til den ønskede fargen

    End If

 

End Sub

Bruk DrawWidth, DrawMode samt den siste paramenteren i Line-prosedyren til å endre utseendet på pennen.

[Hayer]

Jeg mener sånn med toolsbox som å lage en box å sånt jeg... Noe sånne coder?

[Harald Staff]

De kodene var for vanskelige og kompliserte, sa du jo nettopp.

Du er en raring du, Hayer.