Sujet Précédent Sujet Suivant

Problème d'enregistrage

cs_vb666 Messages postés 11 Date d'inscription vendredi 22 août 2003 Statut Membre Dernière intervention 25 août 2003 - 25 août 2003 à 13:55
cs_vb666 Messages postés 11 Date d'inscription vendredi 22 août 2003 Statut Membre Dernière intervention 25 août 2003 - 25 août 2003 à 15:35
j'ai mis dans une frame, 3 bouton. Chaque bouton on deux label. La frame a un scrollbars et les bouton servent a parcourir pour aller chercher le chemin d'accès et le mettre dans la label. Après il y a un dernier bouton valider qui est supposer copier tout ce qui est dans chaque label dans l'ordre respectif.
Le problème c'est que le programme sauvegarde seulement si j'ai pris le lien et je l'ai copier dans la label. Si j'utilise le bouton parcourir qui met exactement le même text dans la label, la sauvegarde ne marche pas pour les 3 autre.

Mon Code: 

Private Sub parcourir1_Click()
CommonDialog2.Filter = "All|*.*|"
CommonDialog2.ShowOpen
file = CommonDialog2.filename
Text2.Text = file
End Sub

Private Sub parcourir2_Click()
CommonDialog2.Filter = "All|*.*|"
CommonDialog2.ShowOpen
file = CommonDialog2.filename
Text4.Text = file
End Sub

Private Sub parcourir3_Click()
CommonDialog2.Filter = "All|*.*|"
CommonDialog2.ShowOpen
file = CommonDialog2.filename
Text6.Text = file
End Sub

Private Sub valider_Click()
Open "config.ini" For Output As #1
    Print #1, frmoption.Text1.Text
    Print #1, frmoption.Text2.Text
    Print #1, frmoption.Text3.Text
    Print #1, frmoption.Text4.Text
    Print #1, frmoption.Text5.Text
    Print #1, frmoption.Text6.Text
Close #1   ' Ferme le fichier
End Sub

Private Sub form_load()
Me.VScroll11.Max = 75
Me.VScroll11.Min = 1
Me.VScroll11.Value = 1
dec = CLng((Me.Frame11.Height - Me.Height) / Me.VScroll11.Max)
Me.VScroll1.Max = 75
Me.VScroll1.Min = 1
Me.VScroll1.Value = 1
dec = CLng((Me.Frame22.Height - Me.Height) / Me.VScroll1.Max)
End Sub

Private Sub VScroll11_Change()
Me.Frame11.Top = -Me.VScroll11.Value * dec
End Sub


j'ai aussi remplacer les bouton parcourir pour qu'il ouvre une autre feuille pour mettre le text dans une label afin de copier le lien dans text2 mais cela ne marche pas. On dirais que si j'appuis sur un bouton dans la frame, je ne peu pas enregistrer.

2 réponses

Réponse 1 / 2
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
25 août 2003 à 15:27
Ja pô conprend' quoi toi dire moi !!!!!!!!
Si j'ai bien compris, ton code tourne chez moi ...
Mais qu'est ce qui renseign eText1, Text3 et Text5 ?
Pourquoi passer par une variable 'file' pour ermplir test TextBox (Ce ne sont pas des Label, mais des textbox visiblement !)
Si vraiment tu as besoin de 'file' (mais je vois pas pourquoi avec ce bout de code) déclare la en type string, c'est plus mieux.
Et renomme tes controles !! Les nom du style TExt1, text2, text3, ... y a rien de pire pour cochonner un code
Christophe R.
0
Réponse 2 / 2
cs_vb666 Messages postés 11 Date d'inscription vendredi 22 août 2003 Statut Membre Dernière intervention 25 août 2003
25 août 2003 à 15:35
Le code en un peu plus clair

Private Sub parcourir1_Click()
CommonDialog2.Filter = "All|*.*|"
CommonDialog2.ShowOpen
file = CommonDialog2.filename
chemin-dacces1.Text = file
End Sub

Private Sub parcourir2_Click()
CommonDialog2.Filter = "All|*.*|"
CommonDialog2.ShowOpen
file = CommonDialog2.filename
chemin-dacces2.Text = file
End Sub

Private Sub parcourir3_Click()
CommonDialog2.Filter = "All|*.*|"
CommonDialog2.ShowOpen
file = CommonDialog2.filename
chemin-dacces3.Text = file
End Sub

Private Sub valider_Click()
Open "config.ini" For Output As #1
Print #1, frmoption.Nom1.Text
Print #1, frmoption.chemin-dacces1.Text
Print #1, frmoption.Nom2.Text
Print #1, frmoption.chemin-dacces2.Text
Print #1, frmoption.Nom3.Text
Print #1, frmoption.chemin-dacces3.Text
Close #1 ' Ferme le fichier
End Sub

Private Sub form_load()
Me.VScroll11.Max = 75
Me.VScroll11.Min = 1
Me.VScroll11.Value = 1
dec = CLng((Me.Frame11.Height - Me.Height) / Me.VScroll11.Max)
Me.VScroll1.Max = 75
Me.VScroll1.Min = 1
Me.VScroll1.Value = 1
dec = CLng((Me.Frame22.Height - Me.Height) / Me.VScroll1.Max)
End Sub


Private Sub VScroll11_Change()
Me.Frame11.Top = -Me.VScroll11.Value * dec
End Sub
0
Rejoignez-nous