Aide sur API Windows

Lone-wolf

XLDnaute Barbatruc

• 23 Septembre 2010

• #2

Re : Aide sur API Windows

Bonjour masterdisco,

merci pour cette precision. 😉

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Septembre 2010

• #3

Re : Aide sur API Windows

Bonjour,
Hello Masterdico,

Je me demande ce qui justifie le titre de la discussion, dans la question🙄

Happy ouine dose.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Septembre 2010

• #4

Re : Aide sur API Windows

Bonsoir Hasco, MDR!!! 😀😀😀

Happy ouine dose - Trad. Google = Je suis heureux, c'est ma ouintième dose. 😀



Petit problème avec ces lignes.

Dans le classeur j'ai beaucoup d'images. Dans le form, j'ai 13 images de base n°40 à 52.

Comment coder, si je mets les 52 images dans un nouveau dossier; oubien à partir d'une imagelist. Merci de ton aide.

Code:

dossier = ThisWorkbook.Path & "\"
fichier = Dir(dossier & "*.bmp")
For j = 40 To 52
UserForm1.Controls("Image" & j).Picture = LoadPicture(fichier)
Next j

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Septembre 2010

• #5

Re : Aide sur API Windows

Désolé, mais toujours fichier introuvable.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Septembre 2010

• #6

Re : Aide sur API Windows

Bonjour à tous

Lone-wolf
Tu ne t'es pas inspiré du code VBA présent Lien supprimé (utilisant LoadPicture en stockant les images directement dans l'Userform) dans la que j'ai faite dans un autre de tes fils 🙄

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Septembre 2010

• #7

Re : Aide sur API Windows

Bonjour Stapple,

non, dans ce post je m'exerce à faire autre chose.

En ce qui concerne le fichier pour le jeu de Poker, ça joue pas; imagine!
20 boutons sur le formulaire??? Comme je l'ai dit, visuellement ça serait pas beau.

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Septembre 2010

• #8

Re : Aide sur API Windows

Re

Lone-wolf
Je parlais juste du fait de stocker les images sur l'userform et non pas sur le HD
(en les masquant en réglant leur taille par exemple : 1x1)

Et ensuite lorsque que tu les affiches , tu leur rends leur taille normale.

C'est ce qu'illustrait la PJ que je cite dans mon précédent message.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Septembre 2010

• #9

Re : Aide sur API Windows

Stapple

Les images sont intégrée à partir des propriétés Images de l'Use la Forme. 😀

Mais le problème n'est pas là; c'est, comment dire à Excel qu'à chaque fois que je clic sur un chip il doit comptabilisé c'est clics, sachant que l'on peut pas donné de valeur à une image. 😕

J'ai modifier le code comme ceci:

Code:

For j = 1 To 52
    sens = IIf(j > 10, "Travers\", "Droite\")
    rdn = Int((Rnd() * (52 - ligneInsertion) + 1))
    [COLOR="Red"][B]txt[/B][/COLOR] = Fichier & "\" & sens & Range("B1:B65536").Value2(rdn, 1) & ".jpg"
    Sheets("Data").Range("B" & ligneInsertion) = Range("B1:B65536").Value2(rdn, 1)
    ligneInsertion = ligneInsertion + 1
    With UserForm1.Controls("Image" & j)
    .Picture = LoadPicture(txt)
    .Visible = True
    End With
Next j

Erreur 53 - Fichier introuvable

Si je change ("B1:B65536") par ("CartesDispos") il n'accepte pas Range.

 

Vote positif 0 Vote négatif