Blitting (VB enquiry)

["Tom Webb" <tom@thewebb.screaming.net>]

Hi all,

	I am having a total nightmare trying to incorporate blitting into my
program. I have a large picture box to represent the planets surface and a
small picture box to hold the graphic I want to blit onto the planets
surface. I run my blitting routine and nothing happens, no errors and no
blitting! :-0! I have been working on it for nearly a week now and am sure
there is a simple explaination for it. But for the life of me I cannot find
it!

	I beg you to put me out of my misery and give me a hand :-)

	The form is called main, the picture boxes are called picPlanet (the
planets surface) and picBuilding (the image I want to blit onto the planets
surface).

Here is the code.

Private Sub sprite_paint(x As Integer)
'Subroutine to paint a building
'x = the counter

'declarations
Dim retcode As Integer 'dummy return code
Dim xpix 'temporary x coord in pixel
Dim ypix 'temporary y coord in pixel

'inits
xpix = dx
ypix = dy

'now blit the sprite
retcode = BitBlt(Main.picPlanet.hdc, (Building(x).x), (Building(x).y), dx,
dy, Main.picBuilding.hdc, xpix, ypix, SRCCOPY)
End Sub

'The type declarations

Type BuildingType
    Name As String * 20             'The buildings name
    owner As Integer                'The buildings owner
    x As Integer                    'X location of the building
    y As Integer                    'Y location of the building
    Type As Integer                 'The buildings type
    Maximum_Capacity As Integer     'The maximum storage capacity of the
building
    Amount As Integer               'The Amount stored in the building
    Production As Integer           'The production of the building
    Maximum_Health As Integer       'The maximum health of the building
    Health As Integer               'The current health of the building
    Size As Integer                 'How big is the building
    Maximum_Soldiers As Integer     'The maximum number of soldiers
    Soldiers As Integer             'The current amount of soldiers
    Soldier_Type As Integer         'The type of of soldiers
End Type

=================================================================
The GameProgrammer.Com mailing list is for the open discussion
of any topic related to the art, science, and business of
programming games. This list is especially tolerant of beginners.
We were all beginners once

To SUBSCRIBE or UNSUBSCRIBE please visit:
http://gameprogrammer.com/mailinglist.html