Vbflash

Soyez le premier à donner votre avis sur cette source.

Vue 4 842 fois - Téléchargée 708 fois

Description

If vous faut d'abord crée une série de boutons, les miens sont en flash.
IL y a plusieur technique pour inséré des images dans un Prog VB,
moi je ous propose de créer une feuille qui restera invisible ou vous allez incrire toute les images.
appelle-là img comme cela il suffira pour appelle une image écrire img.MonImage (un peu comme du html)

Source / Exemple :


'Nous avons créer les images Quit et QuitB

'#Bouton quitter
Private Sub Quit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Quit.Picture = img.QuitB.Picture
End Sub
	'!:: Si la souris survole le controle l'image change

'{#General
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Liste des pictures à mettre à jour
    Quit.Picture = img.QuitR.Picture
End Sub

'!:: Si la souris survole la partie vide de la feuille toute les images sont remis à zero.

Conclusion :


Lisez le code ...

Codes Sources

Ajouter un commentaire Commentaires
Ouaip... Sauf que si t'es rapide de la souris ou que t'as un contrôle placé près d'un de tes boutons et que tu le survole en sortant du bouton, le MouseMove de la form se produira pas et ton image ne disparaîtra pas...

Il vaut mieux utiliser les API SetCapture et ReleaseCapture afin de gérer le "MouseOut"...
pas mal, facile à comprendre, mais on peut aussi ajouter
les images en ressources!

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.