关键字:vb.net扑克在cards.dll

It does exist, but I don't know why I can't run it there. The code provided here is the paint on the panel. Nice net. Without a device context, gethdc is hidden by default. I can't find this method anywhere. Several points for attention: 1. Remember to initialize dll, function cdtInit. Two parameters, look online. 2. To redraw the panel, please use: panel1.invalid (). Public class form 1. Class form 1 inherits the system. Windows. Form. formdimpcards(3)ascarddimpascarddiasintegerdeclare closed _ Text ' style=' border : 1px solid rgba(128，128，128，1)； Display : None; background-color: rgba(255，255，255，1)' FunctioncdtInit()FunctioncdtInitLib ' cards . dll '(ByRef width as integer， _ ByRefheightAsInteger)asbooleandeclaurefunctioncdtddrawext()FunctioncdtDrawExtLib '

1)">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