OCX, AFFICHAGE EN MINIATURES
fpinchon
Messages postés
15
Date d'inscription
dimanche 19 janvier 2003
Statut
Membre
Dernière intervention
15 juin 2003
-
30 mai 2003 à 02:34
rrr_zidane_8 Messages postés 2 Date d'inscription mardi 19 avril 2005 Statut Membre Dernière intervention 12 octobre 2006 - 12 oct. 2006 à 23:08
rrr_zidane_8 Messages postés 2 Date d'inscription mardi 19 avril 2005 Statut Membre Dernière intervention 12 octobre 2006 - 12 oct. 2006 à 23:08
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7264-ocx-affichage-en-miniatures
https://codes-sources.commentcamarche.net/source/7264-ocx-affichage-en-miniatures
12 oct. 2006 à 23:08
3 août 2005 à 01:05
a rectifier
11 févr. 2005 à 23:20
Public Property Let Path(ByVal New_Path As String)
--> File1.Path() = New_Path
PropertyChanged "Path"
End Property
une belle erreur drète la ou se trouve la fleche (-->)
bizzare
a part ca, beau travail
2 févr. 2005 à 14:11
29 janv. 2005 à 09:08
on local error resume next
en debut de la sub. Ce n'est pas le pied mais le File1.Path merdois serieux et je n'arrive pas a savoir pourquoi !!!
28 janv. 2005 à 22:49
merci a lavance
28 janv. 2005 à 22:42
File1.Path = PropBag.ReadProperty("Path", "")
bizzare
30 mai 2003 à 11:00
mais il faut enlever le controle Miniature puis le remettre
Sinon le prog est bien
30 mai 2003 à 04:00
etrange meme
30 mai 2003 à 02:47
en revanche, dans l'evenement du module Miniature :
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
je dois desactiver la ligne
File1.Path = PropBag.ReadProperty("Path", "")
sinon j'ai une erreur.
barvo pour cette source.
fredo
30 mai 2003 à 02:34