Breadcrumbs

[Usman55]

How about something to make picturebox1 bigger/smaller:

*Picturebox2
*Timer

Code: Select all

 Private Sub SizeOfPicturebox1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SizeOfPicturebox1.Tick
        NumericUpDownResizeWidth.Value = PictureBox1.Width
        NumericUpDownResizeHeight.Value = PictureBox1.Height
        Button7.PerformClick()

    End Sub

    Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
        movement = True
        x = Windows.Forms.Cursor.Position.X - PictureBox1.Size.Width
        y = Windows.Forms.Cursor.Position.Y - PictureBox1.Size.Height

    End Sub

    Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
        If movement Then
            PictureBox1.Height = Windows.Forms.Cursor.Position.Y - y
            PictureBox1.Width = Windows.Forms.Cursor.Position.X - x
        End If
    End Sub

    Private Sub PictureBox2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp
        movement = False
    End Sub

Image (right)
http://i700.photobucket.com/albums/ww4/ ... Show-8.png

Dude, that doesn't works. Can you post that what things we have to put on the form?

[Usman55]

How about something to make picturebox1 bigger/smaller:

*Picturebox2
*Timer

Code: Select all

 Private Sub SizeOfPicturebox1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SizeOfPicturebox1.Tick
        NumericUpDownResizeWidth.Value = PictureBox1.Width
        NumericUpDownResizeHeight.Value = PictureBox1.Height
        Button7.PerformClick()

    End Sub

    Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
        movement = True
        x = Windows.Forms.Cursor.Position.X - PictureBox1.Size.Width
        y = Windows.Forms.Cursor.Position.Y - PictureBox1.Size.Height

    End Sub

    Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
        If movement Then
            PictureBox1.Height = Windows.Forms.Cursor.Position.Y - y
            PictureBox1.Width = Windows.Forms.Cursor.Position.X - x
        End If
    End Sub

    Private Sub PictureBox2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp
        movement = False
    End Sub

Image (right)
http://i700.photobucket.com/albums/ww4/ ... Show-8.png

Dude, that doesn't works. Can you post that what things we have to put on the form?

[RunarM]

Dude, that doesn't works. Can you post that what things we have to put on the form?

I got it working just fine ;O

[Usman55]

Wait a minute, that's an advancement for mega paint, right? I was trying to do it on my paint application.

[Cheatmasterbw]

I think that it may only work for the mega paint source.

[fabiohenrique]

Veryyy gooooodddddd!!

Thk u!!

[Jg99]

why is it so expensive

[Agust1337]

Why do you keep bumping?

[Zulf]

Good lord 4 month bump.

[Cheatmasterbw]

why is it so expensive

this is a source for a project i have put a lot of effort into