Cards32.DLL – A Library of Card Bitmaps / Functions for VB

Click here for a larger image.

How to use Card32.dll

In order to use this dll file you have to reference it in your
project. I’m certain that all of you reading this know how to
do this, but in case your not sure here are the steps.

1. Main menu in VB – choose ‘Project’
2. Then choose ‘References’
3. Put a check in the box next to the correct library file. (Cards32.dll)
4. If the Cards32.dll is not listed hit ‘browse’ to locate it.

Now that you have it referenced by your project you can use it in your code.
In ‘General’ section of your form add the line

    ‘ you can use whatever name you want
    Dim TheDeck as clsCards

    Private Sub Form_Load()
        Set TheDeck = New clsCards

        ‘retrieve the image of the card
        Set Image1(0).Picture =
TheDeck.SetCardImage(0)

‘ set the style of the back of the card
        TheDeck.SetCardStyle (0)
        ‘ retrieve the image of the back of the card
        Set Image2(0).Picture =
TheDeck.SetCardBack
        ‘ retrieve the image of the Top of the card
        Set imgTop(0).Picture = TheDeck.SetCardTop
        ‘ retrieve the image of the Side of the card
        Set imgSide(0).Picture =
TheDeck.SetCardSide
    End Sub

There are 2 other methods used in this dll file which are:

1. GetCardSuit(x as Integer) as String
2. GetCardValue(x as Integer) as String

GetCardSuit(x as Integer) as String
    This will return the suit of the card in the form of a string.
   The string that is returned is UPPERCASE
   SPADES, CLUBS, DIAMONDS, HEARTS

GetCardValue(x as Integer) as String
    This will return the value of the card in the form of a string.
    The string that is returned is UPPERCASE.
    ACE, 2 – 10, JACK, QUEEN, KING

download zipped project files (and helpfiles) – 120k