⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 2780.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<html>
  <head>
    <title>Re: 呼叫扑克牌之API函式为何?</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>Re: 呼叫扑克牌之API函式为何?</h1>
    </center>

<HR><p>
Posted by <a href="mailto:weihong_peng@hotmail.com">鳜怹绽</a> on May 08, 1998 at 03:58:40:<p>
In Reply to: <a href="2676.html"><b>呼叫扑克牌之API函式为何?</b></a> posted by Michael on April 26, 1998 at 04:03:38:<p>
: 请问API在设计扑克牌的API含式为何?<br>: 谢谢!<br>Option Explicit<br>DefInt A-Z<p>Global Const ordFaces = 0<br>Global Const ordBacks = 1<br>Global Const ordInvert = 2<p>Global Const ordCrossHatch = 53<br>Global Const ordPlaid = 54<br>Global Const ordWeave = 55<br>Global Const ordRobot = 56<br>Global Const ordRoses = 57<br>Global Const ordIvyBlack = 58<br>Global Const ordIvyBlue = 59<br>Global Const ordFishCyan = 60<br>Global Const ordFishBlue = 61<br>Global Const ordShell = 62<br>Global Const ordCastle = 63<br>Global Const ordBeach = 64<br>Global Const ordCardHand = 65<br>Global Const ordUnused = 66<br>Global Const ordX = 67<br>Global Const ordO = 68<p>Global Const ordClubs = 0<br>Global Const ordDiamonds = 13<br>Global Const ordHearts = 26<br>Global Const ordSpades = 39<br>    <br>Declare Function cdtInit Lib "cards.dll" (dx As Integer, dy As Integer) As Integer<br>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<br>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<br>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<br>Declare Function cdtTerm Lib "cards.dll" Alias "CdtTerm" () As Integer<p><p>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2780-->
</ul><!--end: 2780-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -