Paint v3.5

[Anghios]

Anghios Última edición por

**Aquí dejo un superpaint cutre que hice
Si no os gusta ajo, y si os gusta denada xD

Usuario: UniversoJuegos
Pass: Anghios
[alinear-centro]Descargar Megaupload
Descargar Mediafire[/alinear-centro]**

[Tonica801]

Tonica801 Última edición por

El paint no fue creado por el solo fue traducido sino mirar este video y su descripcion y vereis de donde se descarga "Su paint" [http://www.youtube.com/watch?v=PjppQh34Suw&feature=related][0]">[http://www.youtube.com/watch?v=PjppQh34][1] ... re=related

[0]: <a href=
[1]: http://www.youtube.com/watch?v=PjppQh34

[agz17]

agz17 Última edición por

xDDD eso parece un duelo xD

[Anghios]

Anghios Última edición por

Fue creado por mi 100%, solo copié el diseño
Si no te lo crees te pego aquí los values, verás como varían muchísimo

[Tonica801]

Tonica801 Última edición por

Pegamelos aqui y los compruevo

[Anghios]

Anghios Última edición por

Public Class PaintForm
Dim g As Graphics
Dim startLocation As Point
Dim endLocation As Point
Dim TempLocation As New Point(-1, -12)
Dim TempLocation2 As New Point(-1, -12)
Dim NumberOfAngle As Integer = 0
Dim drawing As Boolean = False
Dim CurrentColor As Color = Color.Red
Dim CurrentColor2 As Color = Color.lightred
Dim LastImage As New Bitmap(501, 501)
Dim M1 As New Bitmap(5201, 5011)
Dim M2 As New Bitmap(5801, 5701)
Dim M3 As New Bitmap(5901, 5051)
Dim M4 As New Bitmap(5001, 52)
Dim PenWidth As Single = 1.0F
Dim PenPoint As Pen
Dim SavedFileAddress As String = ""
Dim CurrentFont As Font

    Function FillRegion(ByVal X As Integer, ByVal Y As Integer, ByVal FillCol As Color) As Boolean
        If X < 0 Or X > LastImage.Width Or Y < 0 Or Y > LastImage.Height Then
            Return False

        End If

        Application.DoEvents()

        Dim points As Stack = New Stack
        points.Push(New Point(X, Y))

        Dim Pointcolor As Color = LastImage.GetPixel(X, Y)


        Do
            Dim p As Point = CType(points.Pop(), Point)

            LastImage.SetPixel(p.X, p.Y, FillCol)

            If UpPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
                points.Push(New Point(p.X, p.Y - 1))
            End If

        
            End If

        Loop While points.Count > 0

        Return True

    End Function
    Function UpPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
        Dim result As Boolean = False
        If (Y > 0) Then
            If (LastImage.GetPixel(X, Y - 1) = Col) Then
                result = True
            End If

        End If
        Return result

    End Function
    Function DownPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
        Dim result As Boolean = False
        If (Y < IsHandleCreated)textbox1.text = noedit
        End If
        Return result

    End Function
    Function RightPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
        Dim result As Boolean = False
        If (X < LastImage.Width - 1) Then
            If (LastImage.GetPixel(X + 1, Y) = Col) Then
          
                Return result

    End Function
    Function LeftPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean

        Dim result As Boolean = False
        If (X > 0) Then
            If (LastImage.GetPixel(X - 1, Y) = Col) Then
                result = True
            End If
        End If


        Return result

    End Function
    Sub UpdateImage()

        g = Graphics.FromImage(LastImage)


    End Sub
    Sub ReloadPen(ByVal PenWd As Single, ByVal CurColor As Color)
        PenPoint = New Pen(CurColor, PenWd)

    End Sub
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            If drawing = False Then

                startLocation = e.Location

                drawing = True

                If MultiAngltextbox - Text Then
                    timer1.start()
                    Close()
                End If


            End If


        End If

        ElseIf e.Button = Windows.Forms.MouseButtons.Right Then

        If MultiAngleRadioButton.Checked Then
            If TempLocation.X <> -1 Then
                endLocation = e.Location
                g.DrawLine(PenPoint, TempLocation, TempLocation2)
                TempLocation = New Point(-1, -1)
            End If

        End If




        End If

    End Sub
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If drawing = True Then
            If LineRadioButton.Checked Then
                g.DrawLine(PenPoint, startLocation.X, startLocation.Y, e.X, e.Y)
                startLocation = e.Location
                UpdateImage()

            ElseIf EraserRadioButton.Checked Then

                Dim p As New Pen(Color.White, PenWidth)

                g.DrawLine(p, startLocation.X, startLocation.Y, e.X, e.Y)
                startLocation = e.Location
                UpdateImage()

            End If

        End If
    End Sub
    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

        If drawing Then

            If RectangleRadioButton.Checked Then

                endLocation = e.Location

                Dim s As Point

                s.X = endLocation.X - startLocation.X
                If s.X < 0 Then
                    startLocation.X = endLocation.X

                End If

                s.Y = endLocation.Y - startLocation.Y
                If s.Y < 0 Then
                    startLocation.Y = endLocation.Y

                End If

                s.X = Math.Abs(s.X)
                s.Y = Math.Abs(s.Y)
                g.DrawRectangle(PenPoint, New Rectangle(startLocation, s))

            ElseIf GradientRectAngleRadioButton.Checked Then

                endLocation = e.Location

                Dim s As Point

                LOCALITION = shutdown - s

                If s.X < 0 Then
                    startLocation.X = endLocation.X
                ElseIf s.X = 0 Then
                    s.X = 1
                End If

            Else
                s.X = s.Y
            End If

            g.DrawEllipse(PenPoint, New Rectangle(startLocation, s))

        ElseIf ArcRadioButton.Checked Then
            endLocation = e.Location

            Dim s As Point

            s.X = endLocation.X - startLocation.X

            If s.X < 0 Then
                startLocation.X = endLocation.X

            End If

            s.Y = endLocation.Y - startLocation.Y

            If s.Y < 0 Then
                startLocation.Y = endLocation.Y

            End If

            s.X = Math.Abs(s.X)
            s.Y = Math.Abs(s.Y)

            If s.X > s.Y Then
                s.Y = s.X
            Else
                s.X = s.Y
            End If

            g.DrawArc(PenPoint, New Rectangle(startLocation, s), 0, -180)

        ElseIf ParallelepipedRadioButton.Checked Then

            endLocation = e.Location

            Dim s As Point

            s.X = endLocation.X - startLocation.X

            If s.X < 0 Then
                Dim tmp As Integer = startLocation.X
                startLocation.X = endLocation.X
                endLocation.X = tmp
            End If

            s.Y = endLocation.Y - startLocation.Y

            If s.Y < 0 Then
                Dim tmp As Integer = startLocation.Y
                startLocation.Y = endLocation.Y
                endLocation.Y = tmp
            End If

            s.X = Math.Abs(s.X)
            s.Y = Math.Abs(s.Y)





            g.DrawPolygon(PenPoint, p)

        ElseIf FillRadioButton.Checked Then
            FillRegion(e.X, e.Y, CurrentColor)

        ElseIf TextRadioButton.Checked Then
            Dim txt As String = Me.TextDrawTextBox.Text
            g.DrawString(txt, CurrentFont, New Drawing2D.HatchBrush(Drawing2D.HatchStyle.BackwardDiagonal, CurrentColor), e.X, e.Y)
        End If
        End If
        drawing = False
        UpdateImage()
    End Sub
    Private Sub PaintForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CurrentFont = Me.Font
        FontButton.Text = CurrentFont.ToString

        Me.ColorButton.BackColor = Color.Blue
        Me.Color2Button.BackColor = Color.LightSkyBlue
        g = Graphics.FromImage(LastImage)
        g.Clear(Color.White)
        UpdateImage()
        ReloadPen(PenWidth, CurrentColor)
    End Sub
    Private Sub ColorButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorButton.Click
        If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            CurrentColor = ColorDialog1.Color
            Me.ColorButton.BackColor = CurrentColor
            ReloadPen(PenWidth, CurrentColor)
        End If



    End Sub
    Private Sub Color2Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Color2Button.Click
        If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            CurrentColor2 = ColorDialog1.Color
            Me.Color2Button.BackColor = CurrentColor2
        End If
    End Sub
    Private Sub ClearToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearToolStripMenuItem.Click
        ClearScreen()
    End Sub
    Sub ClearScreen()
        'LastImage = New Bitmap(501, 501)
        g = Graphics.FromImage(LastImage)
        g.Clear(Color.White)
        UpdateImage()
    End Sub
    Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
        If SavedFileAddress = "" Then
            SaveFileDialog1.Filter = "Bitmap File (*.bmp)|*.bmp"
            If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                SavedFileAddress = SaveFileDialog1.FileName=string
                LastImage.Save(SavedFileAddress)
                Me.Text = SaveFileDialog1.FileName
            End If

        Else
            LastImage.Save(SavedFileAddress)
            Me.Text = SaveFileDialog1.FileName

    End Sub
    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
        SaveFileDialog1.Filter = "Bitmap File (*.bmp)|*.bmp"
        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            SavedFileAddress = SaveFileDialog1.FileName
            LastImage.Save(SavedFileAddress)
            Me.Text = SaveFileDialog1.FileName
        End If
    End Sub
    Private Sub TriangleRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TriangleRadioButton.CheckedChanged
        TempLocation = New Point(-1, -1)
    End Sub
    Private Sub P1RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P1RadioButton.CheckedChanged
        PenWidth = 1.0F
        ReloadPen(PenWidth, CurrentColor)

    End Sub
    Private Sub P2RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P2RadioButton.CheckedChanged
        PenWidth = 5.0F
        ReloadPen(PenWidth, CurrentColor)
    End Sub
    Private Sub P3RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P3RadioButton.CheckedChanged
        PenWidth = 10.0F
        ReloadPen(PenWidth, CurrentColor)
    End Sub
    Private Sub M1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M1ToolStripMenuItem.Click
        M1 = LastImage.Clone()
    End Sub
    Private Sub M2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M2ToolStripMenuItem.Click
        M2 = LastImage.Clone()
    End Sub
    Private Sub M3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M3ToolStripMenuItem.Click
        M3 = LastImage.Clone()
    End Sub
    Private Sub M4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M4ToolStripMenuItem.Click
        M4 = LastImage.Clone()
    End Sub
    Private Sub S1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S1ToolStripMenuItem.Click
        LastImage = M1.Clone
        UpdateImage()
    End Sub
    Private Sub S2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S2ToolStripMenuItem.Click
        LastImage = M2.Clone
        UpdateImage()
    End Sub
    Private Sub S3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S3ToolStripMenuItem.Click
        LastImage = M3.Clone
        UpdateImage()
    End Sub
    Private Sub S4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S4ToolStripMenuItem.Click
        LastImage = M4.Clone
        UpdateImage()
    End Sub
    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
        If SavedFileAddress = "" Then
            Dim result As Integer = MsgBox("Would you like to save this picture", MsgBoxStyle.YesNo)
            If result = MsgBoxResult.Yes Then
                SaveFileDialog1.Filter = filename = False


                LastImage.Save(SavedFileAddress)
                Me.Text = SaveFileDialog1.FileName
            End If
        End If
        End If
        g.Clear(Color.White)
        UpdateImage()
        SavedFileAddress = ""
    End Sub
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        If SavedFileAddress = "" Then
            Dim result As Integer = MsgBox("Would you like to save the image before exiting?", MsgBoxStyle.YesNoCancel)
            If result = MsgBoxResult.Yes Then
                SaveFileDialog1.byanghios.textbox1.text()
            ElseIf result = MsgBoxResult.No Then
                End
            End If
        End If
    End Sub
    Private Sub TextRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextRadioButton.CheckedChanged
        If Me.TextRadioButton.Checked = True Then
            Me.TextDrawTextBox.Visible = True
            FontButton.Visible = Enabled
        Else
            Me.TextDrawTextBox.Visible = True
            FontButton.Visible = False
        End If
    End Sub
    Private Sub FontButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontButton.Click
        If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            CurrentFont = FontDialog1.Font
            FontButton.Text = CurrentFont.ToString
        End If
    End Sub
    Private Sub MessageLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub EraserRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EraserRadioButton.CheckedChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Al usar la herramienta ''Rellenar'' suele ``petarse´´ recomiendo paciencia xD")
    End Sub

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub PáginaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PáginaToolStripMenuItem1.Click
        System.Diagnostics.Process.Start("http://www.universojuegos.es/")
    End Sub

    Private Sub ForoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ForoToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://foro.universojuegos.es/")
    End Sub

    Private Sub BlogToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlogToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://blog.universojuegos.es/")
    End Sub

    Private Sub CorreoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CorreoToolStripMenuItem.Click
        Process.Start("mailto:nilower09@gmail.com")
    End Sub

    Private Sub ForoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ForoToolStripMenuItem1.Click
        System.Diagnostics.Process.Start("http://foro.universojuegos.es/memberlist.php?mode=viewprofile&u=787")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim testMsg As Integer
        testMsg = MsgBox("¿Desea relamente salir?", vbYesNo + vbExclamation, "Salir...")

        If testMsg = 6 Then
            Close()
        ElseIf testMsg = 7 Then

        Else


        End If
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("http://foro.universojuegos.es/")
    End Sub
End Class

Todo tuyo, y a ver si vas dejando de meter las narices donde menos te importa campeón xD

[Tonica801]

Tonica801 Última edición por

Para empezar me meto donde quiera, segundo me importa este tema porque asi demuestro que eres un "copion" y ademas que no podes creditos. y la mayoria de "tus" programas no sirver para nada.

[Anghios]

Anghios Última edición por

Seguro que los tuyos son más útiles, y no pongo créditos por que son míos )
Pero venga, si quieres tener otra de tus sanciones favoritas por mi no hay problema (ya me entiendes ;)))

[Tonica801]

Tonica801 Última edición por

Se que mis programas no sirven para nada pero yo porlomenor no me copio poruqe lo unico distinto que hay es que le añadistes lo de UJ y el nombre de los cuadrados, label, etc es distinto. Asi que tu programa esta copiado del de Youtube

[Anghios]

Anghios Última edición por

Postea los values del code original, superinformatico y creador de páginas PHP
Y si no lo publicas tu, lo publico yo, para que vean cuando dices la verdad. Y como es de típico, si te pilla Salva como la última vez insultándome, sería la típica excusa de... es que fué mi hermano... En fin, personaje.
No voy a discutir mas campeón. Aquí te dejo el supercode :))

Public Class PaintForm
    Dim g As Graphics
    Dim startLocation As Point
    Dim endLocation As Point
    Dim TempLocation As New Point(-1, -1)
    Dim TempLocation2 As New Point(-1, -1)
    Dim NumberOfAngle As Integer = 0
    Dim drawing As Boolean = False
    Dim CurrentColor As Color = Color.Blue
    Dim CurrentColor2 As Color = Color.LightSkyBlue
    Dim LastImage As New Bitmap(501, 501)
    Dim M1 As New Bitmap(501, 501)
    Dim M2 As New Bitmap(501, 501)
    Dim M3 As New Bitmap(501, 501)
    Dim M4 As New Bitmap(501, 501)
    Dim PenWidth As Single = 1.0F
    Dim PenPoint As Pen
    Dim SavedFileAddress As String = ""
    Dim CurrentFont As Font

    Function FillRegion(ByVal X As Integer, ByVal Y As Integer, ByVal FillCol As Color) As Boolean
        If X < 0 Or X > LastImage.Width Or Y < 0 Or Y > LastImage.Height Then
            Return False

        End If

        Application.DoEvents()

        Dim points As Stack = New Stack
        points.Push(New Point(X, Y))

        Dim Pointcolor As Color = LastImage.GetPixel(X, Y)


        Do
            Dim p As Point = CType(points.Pop(), Point)

            LastImage.SetPixel(p.X, p.Y, FillCol)

            If UpPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
                points.Push(New Point(p.X, p.Y - 1))
            End If

            If DownPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
                points.Push(New Point(p.X, p.Y + 1))
            End If


            If RightPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
                points.Push(New Point(p.X + 1, p.Y))
            End If

            If LeftPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
                points.Push(New Point(p.X - 1, p.Y))
            End If

        Loop While points.Count > 0

        Return True

    End Function
    Function UpPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
        Dim result As Boolean = False
        If (Y > 0) Then
            If (LastImage.GetPixel(X, Y - 1) = Col) Then
                result = True
            End If

        End If
        Return result

    End Function
    Function DownPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
        Dim result As Boolean = False
        If (Y < LastImage.Height - 1) Then
            If (LastImage.GetPixel(X, Y + 1) = Col) Then
                result = True
            End If

        End If
        Return result

    End Function
    Function RightPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
        Dim result As Boolean = False
        If (X < LastImage.Width - 1) Then
            If (LastImage.GetPixel(X + 1, Y) = Col) Then
                result = True
            End If

        End If

        Return result

    End Function
    Function LeftPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean

        Dim result As Boolean = False
        If (X > 0) Then
            If (LastImage.GetPixel(X - 1, Y) = Col) Then
                result = True
            End If
        End If


        Return result

    End Function
    Sub UpdateImage()

        g = Graphics.FromImage(LastImage)

        Me.PictureBox1.Image = LastImage

    End Sub
    Sub ReloadPen(ByVal PenWd As Single, ByVal CurColor As Color)
        PenPoint = New Pen(CurColor, PenWd)

    End Sub
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            If drawing = False Then

                startLocation = e.Location

                drawing = True

                If MultiAngleRadioButton.Checked Then

                    If TempLocation.X = -1 Then
                        TempLocation = startLocation
                        TempLocation2 = startLocation
                    End If

                    endLocation = e.Location
                    g.DrawLine(PenPoint, TempLocation, endLocation)
                    TempLocation = endLocation

                ElseIf TriangleRadioButton.Checked Then
                    If TempLocation.X = -1 Then
                        TempLocation = startLocation
                        TempLocation2 = startLocation
                    End If

                    If NumberOfAngle 

PD: Y encima con tanto morro, que me lo dice el que no tiene su foro copiado entero igualito a este xDDDDDDDDDDD