Bonjour,
Je voudrais couper la connexion internet de mon PC selon les heures, j'utilise un tableau de checkbox. Cependant, tout fonctionne parfaitement, par exemple pour Mardi à 18H00 sauf ... Pour les extrémités c'est à dire Lundi à 00H00, et Dimanche à 23H00 que je n'ai pas encore testé. Quand je change la date de mon PC sur lundi 00H00, le programme m'informe de cette erreur :
Voici le code que j'utilise pour la génération du tableau :Une exception non gérée du type 'System.IndexOutOfRangeException' s'est produite dans Monprogramme.exe
Informations supplémentaires : L'index se trouve en dehors des limites du tableau.
Le code pour la vérification de l'état de connexion :
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 Dim tab(6, 23) As CheckBox Dim x As Integer Dim y = 104 For jour = 0 To tab.GetLength(0) - 1 x = 216 For heure = 0 To tab.GetLength(1) - 1 x = x + 30 tab(jour, heure) = New CheckBox() tab(jour, heure).Left = x tab(jour, heure).Top = y tab(jour, heure).Width = 15 Me.Controls.Add(tab(jour, heure)) Next y = y + 35 Next End Sub
Avez-vous une idée de comment résoudre le problème ?
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 Dim Colonne As Integer = DateTime.Now.DayOfWeek - 1 Dim Heure As Integer = DateTime.Now.Hour - 1 If tab(Colonne, Heure).Checked And InternetDesactive = False Then CoupureInternet() InternetDesactive = True ElseIf tab(Colonne, Heure).Checked = False And InternetDesactive = True Then RemiseInternet() InternetDesactive = False End If If InternetDesactive = True Then LabelInternetActive.Text = "Internet activé :" & " Non" ElseIf InternetDesactive = False Then LabelInternetActive.Text = "Internet activé :" & " Oui" End If
Vous pouvez télécharger le projet de test en cliquant ici.
Cordialement.
Partager