numéros d'importation de texte ou csv fichier et exécutez PerformClick()

Question

Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles 
Button3.Click 

Dim openFileDialog1 As New OpenFileDialog() 
openFileDialog1.Filter = "Csv Files|*.csv|txt Files|*.txt" 
openFileDialog1.Title = "Select a File to import numbers" 
Dim convert As String = "" 


If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then 
Using SR As New System.IO.StreamReader(openFileDialog1.FileName) 
Dim All_lines As String = SR.ReadToEnd 
convert = ("Button_" & All_lines) 
'Label43.Text = convert 
Me.Button_(convert).PerformClick() 
End Using 'closes file 
End If 
End Sub 

Je dispose d'un fichier csv avec des chiffres:

Je veux importer un Fichier CSV ou Txt avec sur chaque nouvelle ligne un nombre. Mon programme a des boutons correspondants

Je suis en train de lire chaque ligne et tout cela va bien je boutons de Button_0 à Button_36

Tout ce que je veux faire est Me.Button_ (numéro importé) .PerformClick() donc, avec chaque ligne je lis à partir du fichier Je veux créer

Me.Button_2.PerformClick() 
Me.Button_5.PerformClick() 
Me.Button_6.PerformClick() 
Me.Button_14.PerformClick() 
Me.Button_25.PerformClick() 
Me.Button_36.PerformClick() 

enter code here 

Je ne sais pas si cela est possible merci

Answer 1

je l'ai trouvé moi-même je utiliser des numéros fixes de 0-36 et de comparer par chaque ligne le nombre, et pour ce numéro fais un clic sur le bouton correspondant Ce fait exactement ce que je devais

Si openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Puis

 Using SR As New System.IO.StreamReader(openFileDialog1.FileName) 

      Do While SR.Peek() > -1 

       Dim Line As Integer = 0 
       Line = SR.ReadLine() 

       If Line = 0 Then 
        Me.Button_0.PerformClick() 

       End If 

       If Line = 1 Then 
        Me.Button_1.PerformClick() 

       End If 

       If Line = 2 Then 
        Me.Button_2.PerformClick() 

       End If 

       If Line = 3 Then 
        Me.Button_3.PerformClick() 

       End If 

       If Line = 4 Then 
        Me.Button_4.PerformClick() 

       End If 
       If Line = 5 Then 
        Me.Button_5.PerformClick() 

       End If 
       If Line = 6 Then 
        Me.Button_6.PerformClick() 

       End If 
       If Line = 7 Then 
        Me.Button_7.PerformClick() 

       End If 
       If Line = 8 Then 
        Me.Button_8.PerformClick() 

       End If 
       If Line = 9 Then 
        Me.Button_9.PerformClick() 

       End If 
       If Line = 10 Then 
        Me.Button_10.PerformClick() 

       End If 
       If Line = 11 Then 
        Me.Button_11.PerformClick() 

       End If 
       If Line = 12 Then 
        Me.Button_12.PerformClick() 

       End If 
       If Line = 13 Then 
        Me.Button_13.PerformClick() 

       End If 
       If Line = 14 Then 
        Me.Button_14.PerformClick() 

       End If 
       If Line = 15 Then 
        Me.Button_15.PerformClick() 

       End If 
       If Line = 16 Then 
        Me.Button_16.PerformClick() 

       End If 
       If Line = 17 Then 
        Me.Button_17.PerformClick() 

       End If 
       If Line = 18 Then 
        Me.Button_18.PerformClick() 

       End If 
       If Line = 19 Then 
        Me.Button_19.PerformClick() 

       End If 
       If Line = 20 Then 
        Me.Button_20.PerformClick() 

       End If 
       If Line = 21 Then 
        Me.Button_21.PerformClick() 

       End If 
       If Line = 22 Then 
        Me.Button_22.PerformClick() 

       End If 
       If Line = 23 Then 
        Me.Button_23.PerformClick() 

       End If 
       If Line = 24 Then 
        Me.Button_24.PerformClick() 

       End If 
       If Line = 25 Then 
        Me.Button_25.PerformClick() 

       End If 
       If Line = 26 Then 
        Me.Button_26.PerformClick() 

       End If 
       If Line = 27 Then 
        Me.Button_27.PerformClick() 

       End If 
       If Line = 28 Then 
        Me.Button_28.PerformClick() 

       End If 
       If Line = 29 Then 
        Me.Button_29.PerformClick() 

       End If 
       If Line = 30 Then 
        Me.Button_30.PerformClick() 

       End If 
       If Line = 31 Then 
        Me.Button_31.PerformClick() 

       End If 
       If Line = 32 Then 
        Me.Button_32.PerformClick() 

       End If 
       If Line = 33 Then 
        Me.Button_33.PerformClick() 

       End If 
       If Line = 34 Then 
        Me.Button_34.PerformClick() 

       End If 
       If Line = 35 Then 
        Me.Button_35.PerformClick() 

       End If 
       If Line = 36 Then 
        Me.Button_36.PerformClick() 

       End If 


      Loop