setup deployement vb.net

Question

1. J'ai un projet en setup déployement, qui fonction très bien.
2. Aussi une applette xxx qui crée un serial number à partir de username (vérification de user name et serial number si c'est OK).
Ma question est : comment faire pour que cette applette soit appelle pendant l'installation de ce programme setup déployement (l'ide est de lance cette applette avent que le programme termine de s'installer). ?

naim1970

naim1970 · Answer

Mon problème est de faire entrer les données en dynamique.
Chaque worker possède un répertoire avec de 12 fichiers de tous les mois. Le but est de prendre les information depuis ces fichiers sans écraser les données du premier worker, car le code fais que le dernier worker écrase les données de tous les worker. 

Private Sub entreprises(ByVal word As String)

        Dim worker As String

Dim Temp As New FileStream(Application.StartupPath & "\Save	est.txt", FileMode.Open)  'Prendre les informations sur le fichier test.txt
        Dim Temp_Stream As New StreamReader(Temp)
        '
        Do Until Temp_Stream.Peek = -1 
            Val = Temp_Stream.ReadLine.Split("|")  'Le séparateur entre les noms 
            For i = 1 To Val.Length - 1

           worker = Val(i - 1) 'Faire un pas en arrière avent que ça dépasse la fin
            Next                                                                                            '
        Loop                                                                                                '
        Temp_Stream.Close()  'Fermeture du fichier
        Temp.Close()  'Fermeture du fichier

Dim objAccount As AccountsClassLibrary.Account
Dim objcont As AccountsClassLibrary.Account
 If m_Accounts.Count = 0 Then
   objAccount = New AccountsClassLibrary.Account
   objAccount.AccountName = "Janvier"
  Dim Fs_Janvier As New IO.FileStream(Application.StartupPath & "\Save" & worker & "\Janvier.hor1", FileMode.Open)
      Dim Str_Janvier As New IO.StreamReader(Fs_Janvier)
        Do Until Str_Janvier.Peek = -1
           Val = Str_Janvier.ReadLine.Split("|")

                If Val(2) = word Then
                    objAccount.CodeListings.Add(Val(0), Val(1), Val(2), Val(3), Val(4))
'C'est ici que toutes les données sont écrasées par le dernier worker !!!
                    End If
            Loop
            m_Accounts.Add(objAccount) 'Ajouter dans la librairie dynamique

            Str_Janvier.Close()
            Fs_Janvier.Close()

.
..
...

   objAccount = New AccountsClassLibrary.Account
   objAccount.AccountName = "Décembre"
   Dim Fs_Février As New IO.FileStream(Application.StartupPath & "\Save" & worker & "\Décembre.hor1", FileMode.Open)
     Dim Str_Décembre As New IO.StreamReader(Fs_Décembre)
      Do Until Str_Décembre.Peek = -1
           Val = Str_Décembre.ReadLine.Split("|")
           If Val(2) = word Then
              objAccount.CodeListings.Add(Val(0), Val(1), Val(2), Val(3), Val(4))
                End If
            Loop
            m_Accounts.Add(objAccount)

            Str_Février.Close()
            Fs_Février.Close()

            Me.TabControl.TabPages.Clear()

            For Each objAccount In m_Accounts
                Dim objTabPage As New TabPage(objAccount.AccountName)
                Dim objControl As New AccountsWindowsControlLibrary.UserControlAccounts
                objTabPage.Controls.Add(objControl)
                Me.TabControl.TabPages.Add(objTabPage)
                With objControl
                    .Dock = DockStyle.Fill
                    .Account = objAccount
                End With
            Next

        End If
    End Sub

naim1970

Setup deployement vb.net

1 réponse

Discussions similaires