Aide sur API Windows

[Lone-wolf]

Bonjour au Forum,

j'ai ce code qui me cause problème (je m'éxerce), enfin... c'est plutôt
la ligne en rouge.

Sub pic()
Dim i As Long
Dim Img As String

Img = ThisWorkbook.Path & "\x.bmp"

For i = 1 To 10
[B][COLOR="Red"]UserForm1.Controls("Image" & i) = Img[/COLOR][/B]
Next i
End Sub

Pourquoi ça sonne Faux?

Merci d'avance.

 

[Lone-wolf]

Re : Aide sur API Windows

Bonjour masterdisco,

merci pour cette precision. 😉

 

[Guest]

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.

 

[Lone-wolf]

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.

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

 

[Lone-wolf]

Re : Aide sur API Windows

Désolé, mais toujours fichier introuvable.

 

[Staple1600]

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 🙄

 

[Lone-wolf]

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+

 

[Staple1600]

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.

 

[Lone-wolf]

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:

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.