GÉNÉRATEUR DE RÉPERTOIRES

Commentaire de NHenry le 14/03/2007 12:38:13 administrateur CS

Bonjour,

Dans FormApp.vb, j'ai vu que tu fais plusieurs fois le même code pour la même chose :

Private Sub TextDir_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles TextDir1.TextChanged,TextDir2.TextChanged 'à toi de compléter
    Dim lTxt as TextBox=directcast(sender,TextBox)
'        On Error Resume Next 'PAS DE ON ERROR en VB.NET
    try
        If Me.IsInitializing = True Then
            Return
        Else
            TmpChar = VB.Right(lTxt.Text, 1)
            TextFilter()
            lTxt.Text = VB.Left(lTxt.Text, Len(lTXT.Text) - 1) + TmpChar
            lTxt.SelectionStart = Len(lTxt.Text)
        End If
    Catch ex as Exception
    End Try
End Sub


A la place de tes SubDir1, SubDir2, ... utilise un tableau : Public SubDir(20)

Ne déclare des variables externe à ta classe (un form est une classe) qui si c'est strictement nécessaire.

Tu peux placer tes textbox dans un tableau pour y accéder plus facilement.

l'API MakeSureDirectoryPathExists est inutile, utilise IO.Directory.* 'regarde la doc

Met Option Strict à On, et transtype avec DirectCast, CType, TryCast

Recode ta foction TextFilter :

Private Function TextFilter() As String
    dim lReplace () as string=new string(){",",":","/";"<",">","*",".","+","-","?","!","%"}
    For Each lStr as String in lReplace
        TmpChar = Replace(TmpChar, lStr, "")
    Next
    Return TmpChar
End Function

Ta fonction DirectoryExist est inutile : IO.Directory.Exists

PAS DE GOTO DANS UNE APPLICATION VB.NET ni VB6 d'ailleur
Utilise Exit, Continue, Return à la place

Bon c'est déjà pas mal (mais pas fini, j'ai mon train à prendre), rebosse tout ça et reposte le tout.

Commentaire de Drikce06 le 15/03/2007 09:44:55

Salut en VB2005 utilisation de try catch ... au lieu de GoTo etc.
Sinon l'idée de la source est bonne d'autant plus qu'il y a pas longtemps je me suis tappé une vingtaine de répertoire à créer!