mais dis-moi PascalCmoa, tu n'as rien oublié ?

sûr ?

"Bien que le langage PHP en soit à sa version 5, je n'aborde que la syntaxe et les possibilités offertent par PHP4."
ha daccord !
mais là je m'attendais à ce que tu ajoutes "J'ai seulement annoté par endroit certaines évolutions qui seraient éventuellement à signaler".
ben oui tu aurais pu l'ajouter (cf ci-après) !

Elektordi et malalam ont fait des commentaires qui appelent à la discussion. dommage que tu n'y participe pas !
ben oui ! n'a tu rien à nous dire de ton long et laborieux travail ? feignantise, timidité ?... modestie peut être !

et comme le dit micropoint "tu devrais commenter ton code. Il est vraiment désagréable de lire un code non comment(é)"
ben oui ! tu aurais pu nous en faire, des commentaires ! tu aurais même pu en faire des pages entières !
et ça ne t'aurait pas pris plus de temps que pour le code ! il suffisait de copier/coller le texte que tu as lu entre deux extraits de codes dans le manuel rédigé par Cyril Beaussier en juillet 2005 (http://beaussier.developpez.com/articles/php/mysql/blob/).

ce manuel fait 22 pages et est autrement plus instructif que le code sec.
tu devrais juste lire la page 2, car soit tu ne l'as pas lu, soit tu as de gros problèmes de compréhension.
les sites communautaires permettent la diffusion du savoir et des techniques informatiques, tu te sert de celui-ci comme faire-valoir d'un orgueil bien mal placé.
la nétiquette et la charte m'arrêtent là, dommage j'aurais sans doute pu t'apprendre un peu de vocabulaire.

salut,

je vous propose :

------------------
    ' format peut-être :
    ' d, D, f, F, g, G, t, T, u, U, m, r, s, y
    ' dd/MM/yyyy, etc.

    Public Function ConvertDate(ByVal dateToConvert As String, ByVal format As String) As String

        Try

            Return Date.Parse(dateToConvert).ToString(format)

        Catch
            Return String.Empty
        End Try

    End Function

    Public Function ConvertDate(ByVal dateToConvert As String, ByVal format As String, ByVal cultureName As String) As String

        Try

            Return Date.Parse(dateToConvert).ToString(format, New Globalization.CultureInfo(cultureName))

        Catch
            Return String.Empty
        End Try

    End Function
--------------

ce qui donne :
ConvertDate("13/03/1978", "D") ' --> lundi 13 mars 1978
ConvertDate("13/03/1978", "ddMMyyyy") ' --> 13031978
ConvertDate("13/03/1978", "D", "en-US") ' --> Monday, March 13, 1978

ben le formulaire qui s'affiche à l'execution de ton projet dans VB Express. comme je ne trouve pas le code correspondant je soupçonne une fonction de l'EDI, inconnue de moi.

un screenshot à :
http://img467.imageshack.us/img467/9559/direxplorer8wr.jpg

dans ton source je n'ai pas trouvé la trace du formulaire de test. il est caché ou ?

par ailleurs, il y a une question en cours à laquelle j'ai répondu en citant ce source. peut-être pourras-tu éclairer Thefada au sujet du FileSystemWatcher.
le post est ici :
http://www.vbfrance.com/forum.v2.aspx?ID=706966

(bizarre, comment ça bizarre ? il est très bien mon pseudo du show biz !)

;o)

salut,

je l'ai juste testé et je ne connaissais pas la version précédente mais cela me plait beaucoup (9/10) !

j'ai juste levé une erreur en essayant de parcourir le réseau :

| L'exception System.ArgumentException n'a pas été gérée
|   Message="Le nom de répertoire EntireNetwork n'est pas valide."
|   Source="System"
|   StackTrace:
|        à System.IO.FileSystemWatcher.set_Path()
|        à DirExplorerOCX.DirExplorer.TView_BeforeExpand()
|        dans DirExplorer.vb:ligne 427
    

salut,

bravo Willi ça tourne joliment et ce n'est pas s'en me rappeler DiskKeeper...

ton code me semble une excellente base de travail pour coder une appli de défrag !
d'autant qu'il y a encore plein de possibilités !

je l'ai déjà modifié en ne mettant que les disques fixes et en affichant le nom du volume. mais aussi en mettant à profit la proposition de ELDIM (lecteur du system sélectionné par défaut.

Dim index As Integer = -1
For Each drive As DriveInfo In My.Computer.FileSystem.Drives
    If drive.DriveType = DriveType.Fixed Then
        index = cmbDrive.Items.Add(String.Format("{0} ({1})", drive.VolumeLabel, drive.Name))
        If drive.Name.StartsWith(System.Environment.SystemDirectory.Substring(0, 1)) = True Then
            cmbDrive.SelectedIndex = index
        End If
    End If
Next

je n'ai pas encore lu la classe graphique mais à la vue des commentaires précédents je suis confiant.

(et allez le deuxième 9/10 de la journée ! sur trois sources chargées c'est un excellent début de semaine !)

[Dalida]

salut à tous et bravo à ELDIM,

VB Express qui m'a signalé que
dans ta fonction fnValideAdvancedSearch, il n' y pas de clause As

par ailleurs, dans tes fonctions les Catch devraient retourner une valeur (Return False pour fnValideAdvancedSearch).

pour le reste, je trouve qu'il y a beaucoup de Try...Catch. c'est une excellente précaution mais qui a forcement un impact négatif sur les preformances comme dans cmdRech_Click qui appelle sbGetFilesAndDirectoriesFromRep. l'appel de la méthode est encapsulé dans un sandwich Try..Catch et la méthode est, elle aussi, encapsulé dans un bloc Try...Catch. pour moi il y a redondance. tu dois pouvoir en supprimer plusieurs comme ça.

pour le rafraichissement tu peux aussi mettre la propriété Visible du ListView à False avant le traitement, à True ensuite. ainsi le ListView n'est pas rafraichi (gain de temps) et si tu places par exemple un Label en dessous cela te permet d'afficher un message à l'utilisateur (genre : "Recherche en cours..."). il pourrait y avoir aussi le bouton annuler, de cette façon il n'est accessible que durant la recherche.

je me pose aussi la question de la nécessité des DoEvents, je trouve cette méthode assez brutale et elle doit diminuer les performances (d'autant qu'elle appliquée à chaque passage de boucle). dans la première version de ton code j'ai essayé de les enlever et tout semblait fonctionner, dis moi ce que tu en penses !

(9/10)

[Dalida]

salut,

je n'ai pas lu le code mais le petit essai que je viens de faire me laisse à penser que tu es parti sur de bonnes bases pour nous pondre quelquechose de bon !
je te félicite pour le boulot !

par contre j'ai trouvé un problème dans la réorganisation du bureau.
il faut préciser que mon bureau est partagé sur deux écrans et que l'écran gauche (le principale) à une barre d'outils (barre d'outils classique de l'explorateur) ancrée à sa droite.
j'ai lancé l'appli et décoché le "Dock à gauche".
les icônes de la partie droite du bureau disparaissent (oui, oui, disparaissent et non pas sont déplacés sur le bureau de l'écran principale).
ta barre viend s'ancrer à la droite de l'écran et prend bien en compte la largeur de ma barre d'outils (puisqu'elle laisse la bonne distance entre elle et le bord droit de l'écran). le problème c'est que ma barre d'outils est à gauche de la tienne. donc dans l'ordre et de gauche à droite : mon bureau, ma barre d'outils, ta barre, une bande de Bureau vide de la largeur de ma barre...
les formulaires ne prennent pas en compte ma barre d'outils et sont donc en partie cachés, en fait le bureau est redimensionné correctement mais ma barre d'outils est mal placée (à gauche de la tienne alors que ton appli lui a laissé la place à sa droite).
et lorsque je recoche "Dock à gauche", les icônes disparues de l'écran droit réapparaissent comme par magie alors que les fenêtres réduites de Messenger Plus (elles aussi sur l'écran secondaire) sont expulsées vers le principale...

voili, voilà, mon message est un peu long mais bon si ça peut servir...

salut,

alors la les gars, chapeau !

>zippro4012 : source rapide, efficace et propre. tu vas te prendre une excellente note dans la musette et tu l'auras pas volée !!!
;o)

>sebmafate : je viens de tester le "clic à travers". absolument génial ! je ne sais pas encore pour quoi mais c'est claire que je vais l'utiliser quelquepart!...
(je me demande ou tu peux bien pécher des commandes pareilles et surtout comment connaitre les paramètres !)

en tout cas, bravo et merci à tous les deux

ouuuuuups!

j'ai oublie le principale :

    Private Function ShouldSerializeCircleBackColor() As Boolean
        Return CircleBackColor.Equals(Color.Cornsilk
)
    End Function