关键词:vb.net 扑克 cards.dll

网上的确有，不过不知道为什么我那里运行不了。这里提供的代码是paint在panel上的。.net真好啊，不用设备上下文，gethdc默认还是隐藏的……我找来找去都找不到这个方法……
几点注意：
1.记得要把dll初始化，function cdtInit。两个参数，在网上找吧。
2.要redraw panel，用：Panel1.Invalidate()。

Public Class Form1Class Form1
    Inherits System.Windows.Forms.Form
    Dim pcards(3) As card
    Dim p As card
    Dim i As Integer
    Declare Function cdtInit()Function cdtInit Lib "cards.dll" (ByRef width As Integer, _
    ByRef height As Integer) As Boolean
    Declare Function cdtDrawExt()Function cdtDrawExt Lib "cards.dll" (ByVal hdc As IntPtr, _
      ByVal x As Integer, ByVal y As Integer, ByVal dx As Integer, _
      ByVal dy As Integer, ByVal card As Integer, _
      ByVal suit As Integer, ByVal color As Long) As Boolean
    Declare Sub cdtTerm()Sub cdtTerm Lib "cards.dll" ()

    Public Structure cardStructure card
        Public face As Integer
        Public suit As Integer
        Public count As Integer
        Public faceup As Boolean
    End Structure


Windows 窗体设计器生成的代码#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.SuspendLayout()
        '
        'Panel1
        '
        Me.Panel1.Location = New System.Drawing.Point(8, 8)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(504, 336)
        Me.Panel1.TabIndex = 0
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(522, 360)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel1})
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.Name = "Form1"
        Me.Text = "Reminder"
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub Panel1_Paint()Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        Dim ct As Int16 = 0
        For ct = 1 To 3
            drawcard(pcards(ct), e.Graphics, 10 + ct * 20, 30, 75, 100)
        Next
        'For Each p In pcards
        'drawcard(p, e.Graphics, 10 + ct * 10, 30, 75, 100)
        'ct += 1
        'Next

    End Sub
    Private Sub drawcard()Sub drawcard(ByVal t As card, ByVal g As Graphics, ByVal x As Integer, _
     ByVal y As Integer, ByVal dx As Integer, ByVal dy As Integer)
        Dim hdc As IntPtr = g.GetHdc()
        Try
            Dim Card As Integer = t.suit * 4 + t.count
            cdtDrawExt(hdc, x, y, dx, dy, Card, 0, 0)
        Finally
            ' If Intellisense doesn't show this method 
            ' unhide advanced members in Tools|Options
            g.ReleaseHdc(hdc)
        End Try
    End Sub

    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cdtInit(75, 100)

        For i = 1 To 3
            pcards(i) = New card()
            With pcards(i)
                .suit = i
                .count = i + 1
            End With
        Next
        Panel1.Invalidate()
    End Sub
End Class