Drawing, Graphics, and Images VB6: Difference between revisions

From Free Knowledge Base- The DUCK Project
Jump to navigation Jump to search
← Older editNewer edit →
No edit summary
mNo edit summary
Line 1: Line 1:
== Controls ==
== VB6 Controls and Methods ==


=== PictureBox: Picture Box Control ===
=== PictureBox: Picture Box Control ===
Line 5: Line 5:
   pMainShip.Picture = LoadPicture(Trim(App.Path) & "\" & "sc001.bmp")
   pMainShip.Picture = LoadPicture(Trim(App.Path) & "\" & "sc001.bmp")


 
=== Draw ===
 
== Draw ==


*              Rectangle 100,100,200,200
*              Rectangle 100,100,200,200
Line 13: Line 11:
*              RoundRect 220,300,350,400
*              RoundRect 220,300,350,400
*              Line 250,400,500,400
*              Line 250,400,500,400
=== PaintPicture ===
Copy an image from a control such as a PictureBox and put it anywhere on a form.  Useful for animation.  BitBlt does the same thing as PaintPicture but faster.  BitBlt discussed later.  Bitblt is basically equal in speed to paintpicture when using the .picture method of a picture box. Bitlblt is faster when using the .image property of picture box control with paintpicture.
object.PaintPicture source, x1, y1, w1, h1, x2, y2, w2, h2, opcode


 
 

Revision as of 23:23, 10 February 2008

VB6 Controls and Methods

PictureBox: Picture Box Control

 pMainShip.Picture = LoadPicture(Trim(App.Path) & "\" & "sc001.bmp")

Draw

  • Rectangle 100,100,200,200
  • Ellipse 110,110,190,190
  • RoundRect 220,300,350,400
  • Line 250,400,500,400

PaintPicture

Copy an image from a control such as a PictureBox and put it anywhere on a form. Useful for animation. BitBlt does the same thing as PaintPicture but faster. BitBlt discussed later. Bitblt is basically equal in speed to paintpicture when using the .picture method of a picture box. Bitlblt is faster when using the .image property of picture box control with paintpicture. 

object.PaintPicture source, x1, y1, w1, h1, x2, y2, w2, h2, opcode


 

Animation and API Calls

BitBlt

Option Explicit

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub cmdBitBlt_Click()
  Me.Cls
  BitBlt Me.hDC, 0, 0, picBitBlt.ScaleWidth, picBitBlt.ScaleHeight, picBitBlt.hDC, 0, 0, vbSrcCopy
End Sub


 

 

Retrieved from "http://wiki.robotz.com/index.php?title=Drawing,_Graphics,_and_Images_VB6&oldid=2127"