RECHERCHE ICONES

frawid Messages postés 47 Date d'inscription samedi 2 novembre 2002 Statut Membre Dernière intervention 16 mars 2008 - 26 mars 2003 à 12:55
OBI76 Messages postés 28 Date d'inscription mardi 23 juillet 2002 Statut Membre Dernière intervention 4 janvier 2004 - 4 mai 2005 à 21:14
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/6549-recherche-icones

OBI76 Messages postés 28 Date d'inscription mardi 23 juillet 2002 Statut Membre Dernière intervention 4 janvier 2004
4 mai 2005 à 21:14
zavez ka mettre linux bande d'andouilles.....
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
24 avril 2003 à 14:31
Ces app fonctionnent en Exe chez moi.
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
26 mars 2003 à 13:37
Mes progs ont été testés sou Win98 et fonctionne, pour utiliser PrjReclass, PrjSearch doit être dans le même répertoire et PrjSearch doit être lancer pour généré les fichiers BMP contenant les icones. PrjReclass permet à Prj2 d'accéder plus vite aux fichiers. Prj2 a besoin de 2 rep : mem et recycled mis dans le rep de l'app. dans le rep mem, il faut mettre une icone (de préférence pas la 0) du rep de l'app.
frawid Messages postés 47 Date d'inscription samedi 2 novembre 2002 Statut Membre Dernière intervention 16 mars 2008
26 mars 2003 à 12:55
Salut NHenry
Malheureusement tes sources ne fonctionnent pas sous XP ou peut-être aussi sous d'autres Windows
Voici pour exemples quelques erreures.
'-------------------------------------------------------
Prj1.vbp = Err 52
Private Sub Form_Load()
i = 0
a = 0
Chem = App.Path
If Command$ <> "" Then
If Dir(Command$ + "*.*") <> "" Then
'-------------------------------------------------------
Prj2.vbp = Err 53
Private Sub Form_Load()
If App.PrevInstance = True Then End: Exit Sub
If Dir(App.Path + ".bmp") = "" Then
a = Shell("reclass.exe", vbNormalFocus)
'-------------------------------------------------------
PrjReclass.vbp ???
Recherche en cours...
Actuel =
il ne se passe rien !!!!
'-------------------------------------------------------
PrjSearch.vbp ???
Recherche d'icône; Label1 Reste 0 Rien ne se passe !!!
impossible de l'arreter:
1x. Ce programme ne répond pas. Terminer maintenant.
2x. Ce programme ne répond pas. Terminer maintenant.
3x. Ce programme ne répond pas. Terminer maintenant.
4x. Ce programme ne répond pas. Terminer maintenant.
5x. Ce programme ne répond pas. Terminer maintenant.
etc.
CTRL + Delete vous avez choisi de mettre sur un programme ne répond pas......
Je ne comprend pas et je le retourne a sa source, donc à NHenry.
Merci quand-même
Rejoignez-nous