Private Enum Suits
Clubs& = 0
Diamonds& = 1
Hearts& = 2
Spades& = 3
End Enum
Private Enum CardFaces
face_Ace& = 0
face_Two& = 4
face_Three& = 8
face_Four& = 12
face_Five& = 16
face_Six& = 20
face_Seven& = 24
face_Eight& = 28
face_Nine& = 32
face_Ten& = 36
face_Jack& = 40
face_Queen& = 44
face_King& = 48
End Enum
Private Enum CardBacks
cb_CrossHatch& = 53
cb_Plaid& = 54
cb_Weave& = 55
cb_Robot& = 56
cb_Roses& = 57
cb_IvyBlack& = 58
cb_IvyBlue& = 59
cb_FishCyan& = 60
cb_FishBlue& = 61
cb_Shell& = 62
cb_Castle& = 63
cb_Beach& = 64
cb_CardHand& = 65
cb_Unused& = 66
cb_X& = 67
cb_O& = 68
End Enum
Private Enum Card
Front& = 0
Back& = 1
Highlighted& = 2
End Enum
'//Contructor
Private Declare Function cdtInit Lib "cards32.dll" (dx As Long, dy As Long) As Long
'//Terminator
Private Declare Sub cdtTerm Lib "cards32.dll" ()
'//Standard Drawing function
Private Declare Function cdtDraw Lib "cards32.dll" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal lSuit As Suits, ByVal lCard As Card, ByVal clr As Long) As Long
'//Extended Drawing function
Private 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 lSuit As Suits, ByVal lCard As Card, ByVal clr As Long) As Long
'//Aniation function to animate certain backs
Private Declare Function cdtAnimate Lib "cards32.dll" (ByVal hDC As Long, ByVal lBack As CardBacks, ByVal X As Long, ByVal Y As Long, ByVal lState As Long) As Long
wenn du das übersetzt haben willst sag bescheid,
dauert aber länger
