Card games

[Andrew Empson]

Hi

Just for fun, I've written a sample program which includes functions in a module for drawing any card back or front, shuffling, dragging and dropping and basically anything else I thought people might need to make a card game. I've heard Cards32.dll can draw the cards, but all the other bits you might need you have to do yourself. This should make it simpler.

If anybody wants the sample, send me an email, and I'll send it back to them

[Andrew Empson]

If anyone else is interested, please let me know.

[RCharlton]

but I have tried to make the card drag along with the mouse by

Public tempX As Single
Public tempY As Single

Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Source.Move X - tempX, Y - tempY
End Sub

Private Sub Card_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lRetVal As Long
lRetVal = ShowCursor(False)
tempX = X
tempY = Y
End Sub

Private Sub Card_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Source.Left = Source.Left + X - tempX
Source.Top = Source.Top + Y - tempY
End Sub

and

Card.DragIcon = imglist.Listimages(4).ExtractIcon

The first works very slowly, but the drag icon is whatever a standard icon size is.

Could you please help.

Richard CHarlton

[Andrew Empson]

Are you using my sample?
Here is how I drag cards using my module:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    'Prepare for Dragging
    If Button = 1 Then
        Oldx = x
        Oldy = y
        toDrag = GetCard(x, y)
        Dragged = False
        BeginDrag Me, toDrag
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    'Drag in progress
    Dim xx As Single
    Dim yy As Single
    If Button = 1 Then
        If toDrag > -1 Then
            xx = Pack(toDrag).xPos
            yy = Pack(toDrag).yPos
            xx = xx + (x - Oldx)
            yy = yy + (y - Oldy)
            Drag Me, xx, yy
            Dragged = True
            Oldx = x
            Oldy = y
        End If
    End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    'Flip the clicked card, or Drag complete
    If Dragged = True Then
        ToTop toDrag
        ReleaseDrag
        Me.Cls
        DrawPack Me
    Else
        Card = GetCard(x, y)
        If Card > -1 Then
            Pack(Card).Face = Not Pack(Card).Face
            DrawPack Me
        End If
    End If
    toDrag = -1
    Dragged = False
End Sub

There are some form-level variables I haven't mentioned in this scrap. Try painting the cards directly onto the form or a picture box and using MouseMove events on the object rather than drag methods to move the cards.

[RCharlton]

With your code, how can you tell when the card being dragged is over another card? Also could you please send me the modules which you have referred to.

Thank you very very much


Richard Charlton

[Andrew Empson]

Hi Richard.

My routine includes a GetCard function, which you supply the X and Y positions, and it returns the card at that position. Send me your email address, and I'll forward it to you.

[email protected]

[RCharlton]

In my first reply on this post, I said that my original code worked but was very slow. Perhaps this could be to do with my using a picture box - maybe an image would refresh faster.

Anyone like to (dis)agree with me? (please)


Thank you

Richard Charlton