Professional Paint [Code Source]

[imane-usa]

This is a Professional Paint with some features from Photoshop.
You can learn how to deal with pictures using VB 6.
Here's a picture :


You can dowload the source from Attachment Files
Or
This is an external link [Mediafire]
http://www.mediafire.com/?1r3jaapk2f4b3o5



Enjoy !!

[Joacim Andersson]

Moved to the CodeBank forum

[Joacim Andersson]

Nice work. I did notice that the scrollbars gets placed wrong though. The problem is that when you calculate the position of the scrollbars you use the Height and Width of the Form and subtract an arbitrary number from that, which I guess places the scrollbars correctly on your computer. The thing is that the height of the title bar of the Form and the border size may be different on different computers. What you should use is the ScaleWidth and ScaleHeight of the Form instead since that is the client size of the Form (where you can actually put controls).

      If .Visible Then
        .Left = Me.ScaleWidth - .Width
        If hscPaint.Visible Then
          .Height = Me.ScaleHeight - fraColor.Height - hscPaint.Height
        Else
          .Height = Me.ScaleHeight - fraColor.Height
        End If
      End If

The above is for the vertical scrollbar and the following for the horizontal one:

        If vscPaint.Visible Then
          .Width = Me.ScaleWidth - fraTools.Width - vscPaint.Width 
        Else
          .Width = Me.ScaleWidth - fraTools.Width 
        End If

[imane-usa]

Nice work. I did notice that the scrollbars gets placed wrong though. The problem is that when you calculate the position of the scrollbars you use the Height and Width of the Form and subtract an arbitrary number from that, which I guess places the scrollbars correctly on your computer. The thing is that the height of the title bar of the Form and the border size may be different on different computers. What you should use is the ScaleWidth and ScaleHeight of the Form instead since that is the client size of the Form (where you can actually put controls).

      If .Visible Then
        .Left = Me.ScaleWidth - .Width
        If hscPaint.Visible Then
          .Height = Me.ScaleHeight - fraColor.Height - hscPaint.Height
        Else
          .Height = Me.ScaleHeight - fraColor.Height
        End If
      End If

The above is for the vertical scrollbar and the following for the horizontal one:

        If vscPaint.Visible Then
          .Width = Me.ScaleWidth - fraTools.Width - vscPaint.Width 
        Else
          .Width = Me.ScaleWidth - fraTools.Width 
        End If

ouh Thanks man , that was so nice

[mjohnlq]

very good!
in my computer
If .Visible Then
.Left = Me.ScaleWidth - .Width
....
is better than
If .Visible Then
.Left = Me.Width - .Width - 110
,,,

[imane-usa]

very good!
in my computer
If .Visible Then
.Left = Me.ScaleWidth - .Width
....
is better than
If .Visible Then
.Left = Me.Width - .Width - 110
,,,

Thanks mjohnlq

[Bonnie West]

Impressive!

[imane-usa]

Impressive!

Thanks Bonnie