# Re: 呼叫扑克牌之API函式为何?

Posted by 鳜怹绽 on May 08, 1998 at 03:58:40:

In Reply to: 呼叫扑克牌之API函式为何? posted by Michael on April 26, 1998 at 04:03:38:

: 请问API在设计扑克牌的API含式为何?
: 谢谢!
Option Explicit
DefInt A-Z

Global Const ordFaces = 0
Global Const ordBacks = 1
Global Const ordInvert = 2

Global Const ordCrossHatch = 53
Global Const ordPlaid = 54
Global Const ordWeave = 55
Global Const ordRobot = 56
Global Const ordRoses = 57
Global Const ordIvyBlack = 58
Global Const ordIvyBlue = 59
Global Const ordFishCyan = 60
Global Const ordFishBlue = 61
Global Const ordShell = 62
Global Const ordCastle = 63
Global Const ordBeach = 64
Global Const ordCardHand = 65
Global Const ordUnused = 66
Global Const ordX = 67
Global Const ordO = 68

Global Const ordClubs = 0
Global Const ordDiamonds = 13
Global Const ordHearts = 26
Global Const ordSpades = 39
Declare Function cdtInit Lib "cards.dll" (dx As Integer, dy As Integer) As Integer
Declare Function cdtDrawExt Lib "cards.dll" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal iCard As Integer, ByVal iDraw As Integer, ByVal clr As Long) As Integer
Declare Function cdtDraw Lib "cards.dll" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal iCard As Integer, ByVal iDraw As Integer, ByVal clr As Long) As Integer
Declare Function cdtAnimate Lib "cards.dll" (ByVal hDC As Integer, ByVal iCardBack As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal iState As Integer) As Integer
Declare Function cdtTerm Lib "cards.dll" Alias "CdtTerm" () As Integer

Follow Ups: