'先添加clsCard.Cls

'以下是Form1.Frm

'基本代码

Option Explicit
Dim cd As clsCard

Private Sub Form_Load()
Set cd = New clsCard
cd.cdhdc = hdc
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set cd = Nothing
End Sub

'替换代码

Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 0 To 3

clsCard.Cls

Option Explicit
'==========================
'类模块名称: clsCard.Cls
'方法：
'cdtDrawBack    画背景
'cdtDrawBkGrnd 画牌虚框
'cdtDrawCard    画牌
'cdtDrawCardInvert 画反转牌
'cdtDrawCircle 画“圈”牌
'cdtDrawColored 画颜色牌
'cdtDrawRect    画矩形
'cdtDrawRectAndBkG

下载

鸣谢

张韶英

Option Explicit
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA

GetRndArray

Option Explicit
Dim A()
Private Function GetRndArray(SourceArray, GetNum As Integer) As Single()
'自定义函数，功能：从源数组里面随机获取指定个数的数字，返回数组。
'参数：SourceArray-源数组；GetNum-获取随机数字的个数。
'返回值：一个数组。
Randomize
Dim Dest() As Single, i As Integer, r As Integer, SrcNum As In

SetForegroundWindow

Option Explicit

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
'hwnd-要设置为最前

GetDesktopWindow

Option Explicit

Private Declare Function GetDesktopWindow Lib "user32" () As Long
'没有参数，返回值为桌面窗口句柄
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long

'因为窗体的标题栏有高度，所以需要使用获取客户区大小的函数。

Option Explicit
Dim R As RECT
Dim Ratio As Single
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function

GetWindowRect

Option Explicit
Dim hW As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
'