Comment utiliser cards.dll en vbnet 2010 [Résolu]

tirobut 16 Messages postés jeudi 7 juillet 2011Date d'inscription 22 juin 2012 Dernière intervention - 15 juin 2012 à 20:39 - Dernière réponse : tirobut 16 Messages postés jeudi 7 juillet 2011Date d'inscription 22 juin 2012 Dernière intervention
- 16 juin 2012 à 13:46
Bonsoir
j'ai longtemps cherché sans succès la façon d'utiliser les images des cartes se trouvant dans cards.dll, mais à part quelques programmes en VB6 je n'ai rien trouvé d'equivalent en VB2010. Et donc je sèche lamentablement.
Y aurait-il quelqu'un qui pourrait me donner quelques idées pour extraire ces petites images ?
Merci d'avance à ceux qui voudront bien me donner un coup de main.
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Utilisateur anonyme - 16 juin 2012 à 11:46
3
Merci
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

Merci Utilisateur anonyme 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 124 internautes ce mois-ci

Commenter la réponse de Utilisateur anonyme
cs_casy 7745 Messages postés mercredi 1 septembre 2004Date d'inscription 24 septembre 2014 Dernière intervention - 15 juin 2012 à 21:09
0
Merci
Si tu as le code VB6, tu peux essayer de le traduire.


[i][b]---- Sevyc64 (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i
Commenter la réponse de cs_casy
tirobut 16 Messages postés jeudi 7 juillet 2011Date d'inscription 22 juin 2012 Dernière intervention - 16 juin 2012 à 13:46
0
Merci
Bonjour
Merci pour ce code qui correspond en tous points à ce que je voulais.
J'espère pouvoir enfin réaliser ce jeu de cartes qui traine dans ma tête depuis fort longtemps.
Commenter la réponse de tirobut

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.