Difference between revisions of "Drawing, Graphics, and Images VB6"
From Free Knowledge Base- The DUCK Project: information for everyone
m |
|||
| 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 01:23, 11 February 2008
Contents
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
