naim1970
Messages postés26Date d'inscriptionmardi 15 juin 2004StatutMembreDernière intervention29 octobre 2008
-
22 juin 2004 à 21:13
naim1970
Messages postés26Date d'inscriptionmardi 15 juin 2004StatutMembreDernière intervention29 octobre 2008
-
31 juil. 2004 à 19:09
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
Messages postés26Date d'inscriptionmardi 15 juin 2004StatutMembreDernière intervention29 octobre 2008 31 juil. 2004 à 19:09
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