Bonjour,
cards.dll devant se trouver aux côtés de l'exécutable, voici un exemple qui affiche une dame de coeur sur ton formulaire selon la taille et la position voulue :
Option Strict On
Public Class Form1
Declare Function cdtInit Lib "cards.dll" (ByRef width As Integer, _
ByRef height As Integer) As Boolean
Declare 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 Integer) As Boolean
Declare Sub cdtTerm Lib "cards.dll" ()
'valeur peut prendre de 0 à 12 (as,2,3, ....,roi)
'ici je veux afficher une dame (11)
Dim m_Valeur As Integer = 11
'couleur peut prendre 0 à 3 (trèfle, carreau, coeur, pique)
'ici je veux du coeur (2)
Dim m_Couleur As Integer = 2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cdtInit(71, 96)
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
cdtTerm()
End Sub
Private Sub Me_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Try
Dim hdc As IntPtr = e.Graphics.GetHdc()
e.Graphics.ReleaseHdc()
'ceci est la formule du calcul de la carte
Dim Carte As Integer = m_Valeur * 4 + m_Couleur
'cdtDrawExt(hdc_fenetre, postion x, position y, largeur carte, _
' hauteur carte, carte, dos=1/face = 0, fond)
cdtDrawExt(hdc, 100, 50, 71, 96, Carte, 0, 0)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class