Page 2 of 3
Re: Mega Paint Source
Posted: Wed Dec 08, 2010 2:41 pm
by Usman55
RunarM wrote: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?
Re: Mega Paint Source
Posted: Wed Dec 08, 2010 2:41 pm
by Usman55
RunarM wrote: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?
Re: Mega Paint Source
Posted: Thu Dec 09, 2010 6:29 pm
by RunarM
Usman55 wrote:
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
Re: Mega Paint Source
Posted: Fri Dec 10, 2010 3:53 am
by Usman55
Wait a minute, that's an advancement for mega paint, right? I was trying to do it on my paint application.
Re: Mega Paint Source
Posted: Fri Dec 10, 2010 9:31 pm
by Cheatmasterbw
I think that it may only work for the mega paint source.
Re: Mega Paint Source
Posted: Wed Apr 20, 2011 1:39 pm
by fabiohenrique
Veryyy gooooodddddd!!
Thk u!!
Re: Mega Paint Source
Posted: Wed Apr 20, 2011 10:19 pm
by Jg99
why is it so expensive
Re: Mega Paint Source
Posted: Wed Apr 20, 2011 10:37 pm
by Agust1337
Why do you keep bumping?
Re: Mega Paint Source
Posted: Thu Apr 21, 2011 4:24 am
by Zulf
Good lord 4 month bump.
Re: Mega Paint Source
Posted: Wed May 18, 2011 7:42 pm
by Cheatmasterbw
Jg99 wrote:why is it so expensive
this is a source for a project i have put a lot of effort into
