Teken programma II probeer 't

[WILLIAMXXX]

Hey,

Hier mijn nieuwe versie van het teken programma... Ik noem heb nu X Paint... Je kunt nu een groote voor de kwast/pen kiezen van 1 tot 128 je kunt met meerdere kleuren tekenen... Je kunt (nog) niet opslaan omdat dat niet lukte...

Zie bijlage:

 

[eeyk]

Goed Volgens mij Gebruik je de Zelfte source als Je webbrowser want het lijkt veel er op ik heb gebruik het all en sla het op via printscreen

 

[eeyk]

ik heb foutje ondekt hoe dikker hoe meer Die gaat stipperen

 

[WILLIAMXXX]

Ik denk dat je bedoelt hoe kleiner hoe meer die gaat stippelen?

 

[ninjaplayer]

verander dock van je "papier" naar fill.

 

[C Windows]

Ik weet niet in welke taal je het hebt geprogrammeerd, maar in VB kan je zo opslaan:

Private Sub Save()
Dim objBitmap as New Btimap
PictureBox1.DrawToBitmap(objBitmap, New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height)
objBitmap.Save("C:\Image.jpg")
End Sub

Het kan zijn dat er fouten in zitten, heb het ff met de losse pols geschreven...

 

[ninjaplayer]

Kan je geen ColorDialog gebruiken om de kleuren te kiezen? En het gedeelte waar je kan tekenen rekt niet uit wanneer je het gaat resizen. Je kan dan alles bij de anchor property uitzetten.
En misschien kan je een optie maken om het "papier" te vergroten of te verkleinen met een windowtje.

 

[WILLIAMXXX]

Graag geen commentaar meer! Het is een jaar geleden:

-Heb de source niet meer
-Als ik zin heb maak ik een nieuwe:thumb:

 

[sinic907]

Haha leuk prog
Wie weet mischien wel de toekomstige Photoshop ^^
Mischien kan je ook wel een button maken waar mee je afbeeldingen kan in voegen
En een seleteer button ..

 

[C Windows]

@WILLIAMXXX: je hebt nog wel de exe, dus als ik jou was zou ik Reflector downloaden waarmee je je source terug kan halen En nog een tip: ik weet niet hoe je tekent, maar als je Graphics gebruikt, zet dan de SmoothingMode op anti-aliasing... Je ziet het verschil

 

[WILLIAMXXX]

Ok, goede tip:thumb:

Voor de liefhebber de code:

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
    If (e.Button = MouseButtons.Left) Then
        Select Case Me.ToolStripComboBox1.SelectedIndex
            Case 0
                Me.DrawBrush = Brushes.Black
                Exit Select
            Case 1
                Me.DrawBrush = Brushes.White
                Exit Select
            Case 2
                Me.DrawBrush = Brushes.Red
                Exit Select
            Case 3
                Me.DrawBrush = Brushes.Orange
                Exit Select
            Case 4
                Me.DrawBrush = Brushes.Yellow
                Exit Select
            Case 5
                Me.DrawBrush = Brushes.Green
                Exit Select
            Case 6
                Me.DrawBrush = Brushes.Blue
                Exit Select
            Case 7
                Me.DrawBrush = Brushes.Indigo
                Exit Select
            Case 8
                Me.DrawBrush = Brushes.Violet
                Exit Select
            Case Else
                Interaction.MsgBox("Geen geldige kleur geselecteerd", MsgBoxStyle.Exclamation, "FOUT")
                Exit Select
        End Select
        Me.DrawGraphics.SmoothingMode = SmoothingMode.HighQuality
        Me.DrawGraphics.FillEllipse(Me.DrawBrush, e.X, e.Y, Conversions.ToInteger(Me.ToolStripTextBox1.Text), Conversions.ToInteger(Me.ToolStripTextBox1.Text))
        Me.PictureBox1.Image = Me.DrawBitmap
    End If
End Sub

Is niet de hele code maar alleen van de mouse move in the picturebox

 

[MartijnvBerkel]

Leuk gemaakt. :thumb:
Doet me denken aan deze tutorial:
http://www.cespage.com/vb/vbextut6.html

Mvg,
Flitskikker

 

[audi80]

het is niet erg dat je hem niet kunt opslaan. Want dan doe je gewoon print screen Dan naar paint, en knippen, plakken, klaar is kees

 

[Niekwoo10]

het is niet erg dat je hem niet kunt opslaan. Want dan doe je gewoon print screen Dan naar paint, en knippen, plakken, klaar is kees

waarom denk je dat hij zijn eigen paint maakt? om in paint het te gaan knippen en plakken:shocked:

 

[WILLIAMXXX]

Ondertussen weet ik al wel hoe je moet opslaan... Misschien als ik nog eens zin heb maak ik een nieuwe...:thumb: