Problème boucle visual basic vb
Résolu
Profil bloqué
-
Profil bloqué -
Profil bloqué -
Bonjour,
J'aimerai empêcher ce timer de tourner en boucle ( code visual basic)
voici le code du timer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TextBox1.Text.Contains("del") Then
MsgBox("Code dangereux détecté !", MsgBoxStyle.Critical)
Else
MsgBox("Code non dangereux")
End If
Timer2.Start()
aider moi s'il vous plait c'est urgent
J'aimerai empêcher ce timer de tourner en boucle ( code visual basic)
voici le code du timer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TextBox1.Text.Contains("del") Then
MsgBox("Code dangereux détecté !", MsgBoxStyle.Critical)
Else
MsgBox("Code non dangereux")
End If
Timer2.Start()
aider moi s'il vous plait c'est urgent
A voir également:
- Problème boucle visual basic vb
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
2 réponses
Bonjour,
Pas facile de comprendre avec les éléments que tu donne, surtout que tu démarre un deuxième timer.
Toute fois je pense te donner une piste...
Pas facile de comprendre avec les éléments que tu donne, surtout que tu démarre un deuxième timer.
Toute fois je pense te donner une piste...
If TextBox1.Text.Contains("del") Then
MsgBox "Code dangereux détecté !", MsgBoxStyle.Critical
ElseIf Text <> "" Then
MsgBox ("Code non dangereux")
timer1.Enabled = False
Timer2.Start()
End IfA+
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim alltext As String = "", lineoftext As String = ""
OpenFileDialog1.Filter = "All Files | *.*"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then
End If
Try
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1)
lineoftext = LineInput(1)
alltext = alltext & lineoftext & vbCrLf
Loop
TextBox1.Text = alltext
Catch
Finally
FileClose()
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TextBox1.Text.Contains("del") Then
MsgBox("Code dangereux détecté !", MsgBoxStyle.Critical)
ElseIf Text <> "" Then
MsgBox("Code non dangereux")
Timer1.Enabled = False
Timer2.Start()
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If TextBox1.Text.Contains("Copy C:\") Then
MsgBox("Code dangereux détecté !", MsgBoxStyle.Critical)
Else
MsgBox("Code non dangereux")
End If
Timer2.Stop()
End Sub
End Class