sane79
Messages postés16Date d'inscriptionsamedi 28 octobre 2000StatutMembreDernière intervention24 septembre 2012
-
28 mars 2006 à 10:31
cs_vpoyo
Messages postés363Date d'inscriptionvendredi 14 février 2003StatutMembreDernière intervention20 avril 2010
-
28 mars 2006 à 17:01
'MsgBox(groupe.Controls("Newlibelle2").Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim l_controls As Control
Dim l_controls2 As Control
Dim i As Integer = 0
For Each l_controls In Me.TabPage2.Controls
If (l_controls.GetType Is GetType(GroupBox)) Then
Dim leslibelles(l_controls.Controls.Count / 2) As String
Dim lesvaleurs(l_controls.Controls.Count / 2) As String
For Each l_controls2 In l_controls.Controls
If (l_controls2.Name = "Newvaleurs" & (i).ToString()) Then
lesvaleurs(i) = l_controls2.Text
leslibelles(i) = l_controls2.Tag.Text
sane79
Messages postés16Date d'inscriptionsamedi 28 octobre 2000StatutMembreDernière intervention24 septembre 2012 28 mars 2006 à 10:35
voici mon source , et je voudrais à l'aide d'un second bouton, lire les valeurs qui ont été changer dans les textbox pour les ré-écrire dans le fichier xml
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xml_fichier As New GabXML(TextBox1.Text)
Dim nb_elts As Integer = xml_fichier.countElements("/INI/PARAMETRE")
Dim groupe As New GroupBox
groupe.Text = xml_fichier.getAttribute("/INI/PARAMETRE", "module")
groupe.Top = 50
groupe.Left = 16
groupe.Height = 20
groupe.Width = 330
TabPage2.Controls.Add(groupe)
For i As Integer = 0 To nb_elts - 1
Dim libelle As New Label
libelle.Name = "Newlibelle" + (i).ToString() 'defini le nom du text
libelle.Text = xml_fichier.getElementValue("/INI/PARAMETRE/LIBELLE", i)
libelle.Width = 150 'on defini la taille horizontale
libelle.Height = 25 'on defini la taille verticale
libelle.Top = 20 + i * libelle.Height
libelle.Left = 10
groupe.Controls.Add(libelle)
Dim valeurs As New TextBox
valeurs.Name = "Newvaleurs" + (i).ToString() 'defini le nom du text
valeurs.Text = xml_fichier.getElementValue("/INI/PARAMETRE/VALEUR", i)
valeurs.Width = 140 'on defini la taille horizontale
valeurs.Height = 25 'on defini la taille verticale
valeurs.Top = libelle.Top - 3
valeurs.Left = libelle.Left + libelle.Width + 10
groupe.Controls.Add(valeurs)
groupe.Height = groupe.Height + libelle.Height
Next
groupe.Height = groupe.Height + 10
TabControl1.Height = groupe.Height + 90
Me.Height = TabControl1.Height + TabControl1.Top * 2 + 35
End Sub