Setup deployement vb.net

Signaler
Messages postés
26
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
29 octobre 2008
-
Messages postés
26
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
29 octobre 2008
-
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

1 réponse

Messages postés
26
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
29 octobre 2008

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\test.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