More Cards

[Cyber_Warrior]

Here's the situation.

I start me program I want the cards to be delt start away. Can anyone see what I am doing wrong.

This code is just an example:

Global Function declareations

Declare Function cdtInit Lib "Cards32.dll" (dx As Long, dy As Long) As Long
Declare Function cdtDrawExt Lib "Cards32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal dx As Long, ByVal dy As Long, ByVal ordCard As Long, ByVal iDraw As Long, ByVal clr As Long) As Long
Declare Function cdtDraw Lib "Cards32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal iCard As Long, ByVal iDraw As Long, ByVal clr As Long) As Long
Declare Function cdtAnimate Lib "Cards32.dll" (ByVal hdc As Long, ByVal iCardBack As Long, ByVal X As Long, ByVal Y As Long, ByVal iState As Long) As Long
Declare Function cdtTerm Lib "Cards32.dll" () As Long

Code

Private Sub Form_Load()
        
    Dim CWidth As Long, CHeight As Long, temp As Integer
    cdtInit CWidth, CHeight
    
    Randomize
    
    temp = Int(51 * Rnd)
    
    cdtDraw Me.hdc, 0, 0, temp, ordFaces, Me.BackColor
    
End Sub

This is supposed to draw a random card in the top left corner of the form.

Thanks for your help

[Edited by Cyber_Warrior on 10-27-2000 at 01:12 AM]

[oetje]

After the line "cdtDraw Me.hdc, 0, 0, temp, ordFaces, Me.BackColor", add this code:

Me.Refresh

And set the autoredraw property of the form to true.

[Cyber_Warrior]

Thank you so much

I have looking for the answer for three weeks