Discussion :

[kek's]

Bonjour, J'ai un problème pour affecter une valeur a "controlselect" je souhaite prendre la valeur du datetimepicker et la stocker dans le tableau critere mais j'ai un souci avec controlselect qui ne veut pas prendre la valeur " et pareil pour la combobox.
Pour information, controlselect correspond au controle selectionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim controlselect As Control 
Dim critere(i,1) as string 
 // Variables globales

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged, DateTimePicker2.ValueChanged, DateTimePicker3.ValueChanged, DateTimePicker4.ValueChanged, DateTimePicker5.ValueChanged, DateTimePicker6.ValueChanged, DateTimePicker7.ValueChanged

        If TypeOf controlselect Is DateTimePicker Then

            critere (i,1) = controlselect.value.date.tostring //J'ai une erreur sur cette ligne 

        End If
        TextBox38.Text = critere(i, 1) // Je stocke la valeur  qui a été rentrée dans le tableau, dans une texbox pour avoir un apercu visuel 
    End Sub

 //Idem pour les combobox ci-dessous

 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged, ComboBox2.SelectedValueChanged, ComboBox3.SelectedValueChanged, ComboBox4.SelectedValueChanged, ComboBox5.SelectedValueChanged, ComboBox6.SelectedValueChanged, ComboBox7.SelectedValueChanged, ComboBox8.SelectedValueChanged, ComboBox9.SelectedValueChanged, ComboBox10.SelectedValueChanged, ComboBox11.SelectedValueChanged, ComboBox12.SelectedValueChanged, ComboBox13.SelectedValueChanged, 

        If TypeOf controlselect Is ComboBox Then

            critere(i, 1) = controlselect.selectedvalue  // erreur a ce niveau du code 

        End If
        TextBox38.Text = critere(i, 1) // Je stocke la valeur  qui a été rentrée dans le tableau, dans une texbox pour avoir un apercu visuel 
    End Sub

Merci d'avance pour vos réponses.

[nasty]

Bonjour

Ma boule de cristal est en greve, on peut avoir l'erreur?

Nasty

[tobba]

Peut être que tu doit convertir l'objet control en DateTimePicker avant d'utiliser ses méthodes et ses propriétés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
critere (i,1) = Ctype(controlselect,DateTimePicker).value.date.tostring

[kek's]

L'erreur est la suivante :

'Value' n'est pas un membre de 'system.windows.forms.control'

et tu remplace 'value' par 'selectedvalue' dans le code des comboboxs

Désolé

[kek's]

Merci tobba pour la solution sa fonctionne maintenant !