BleepingComputer.com: Using Picture Boxes

Jump to content

Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Using Picture Boxes Please Help (I am a beginner)

#1 User is offline   TH0RN 

  • Member
  • PipPip
  • Find Topics
  • Group: Members
  • Posts: 28
  • Joined: 02-October 08
  • Gender:Male

Posted 25 October 2008 - 07:37 PM

In VB 6.0, I am making an application that is similar to paint. I have made some code that makes a dot appear when you click and move. This appears below:

Private Sub picpaint_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
Well = True
picpaint.PSet (X, y)
End Sub

Private Sub picpaint_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
If Well = True Then
picpaint.PSet (X, y)
End If
End Sub

Private Sub picpaint_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)
Well = False
End Sub

This, however, makes a circular dot. Is there any way that I can make this dot a square?

#2 User is offline   Keithuk 

  • Distinguished Member
  • PipPipPipPipPip
  • Find Topics
  • Group: Members
  • Posts: 800
  • Joined: 25-January 07
  • Gender:Male

Posted 01 November 2008 - 10:39 AM

View PostTH0RN, on Oct 26 2008, 12:37 AM, said:

Is there any way that I can make this dot a square?


I have a little painter app will allow you to draw circles, rectangles, rectangles with round edges, floodfill and lines with all the difference colours and thicknesses you want to use. But I can't upload it here for some reason. :flowers:

If you are new to VB then I would suggest you join a VB only forum there are loads about, read my sig. :thumbsup:
Keith

Martin2k

Windows ME (spare computer)
Windows XP 2002 Professional SP3 (desktop computer)
Windows Vista Home Premium SP2 (laptop computer)

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

1 User(s) are reading this topic
0 members, 1 guests, 0 anonymous users