Skip to main content
se añadieron 45 caracteres en el cuerpo
Origen Enlace

Estoy haciendo unas pruebas con este código, pero al ejecutarlo con puntos de interrupción, me di cuenta que se ejecuta dos veces:

tmBackup = Timer a 60.000 milisegundos.

Dim Thread_Backup As Thread

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    tmBackup.Enabled = True 'ACTIVA TIMER
    AddHandler tmBackup.Tick, AddressOf tmBackup_Tick
End Sub

Private Sub tmBackup_Tick(sender As Object, e As EventArgs) Handles tmBackup.Tick
    Thread_Backup = New Thread(New ThreadStart(AddressOf Ejecuta_Backup))
    Thread_Backup.IsBackground = True
    Thread_Backup.Start()
End Sub

Private Sub Ejecuta_Backup() 'SE EJECUTA DOS VECES
   If Now.DayOfWeek = 1 Then 
      If Now.Hour = 7 Then
         ... código
      End If           
   End If      
End Sub

Estoy haciendo unas pruebas con este código, pero al ejecutarlo con puntos de interrupción, me di cuenta que se ejecuta dos veces:

Dim Thread_Backup As Thread

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    tmBackup.Enabled = True 'ACTIVA TIMER
    AddHandler tmBackup.Tick, AddressOf tmBackup_Tick
End Sub

Private Sub tmBackup_Tick(sender As Object, e As EventArgs) Handles tmBackup.Tick
    Thread_Backup = New Thread(New ThreadStart(AddressOf Ejecuta_Backup))
    Thread_Backup.IsBackground = True
    Thread_Backup.Start()
End Sub

Private Sub Ejecuta_Backup() 'SE EJECUTA DOS VECES
   If Now.DayOfWeek = 1 Then 
      If Now.Hour = 7 Then
         ... código
      End If           
   End If      
End Sub

Estoy haciendo unas pruebas con este código, pero al ejecutarlo con puntos de interrupción, me di cuenta que se ejecuta dos veces:

tmBackup = Timer a 60.000 milisegundos.

Dim Thread_Backup As Thread

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    tmBackup.Enabled = True 'ACTIVA TIMER
    AddHandler tmBackup.Tick, AddressOf tmBackup_Tick
End Sub

Private Sub tmBackup_Tick(sender As Object, e As EventArgs) Handles tmBackup.Tick
    Thread_Backup = New Thread(New ThreadStart(AddressOf Ejecuta_Backup))
    Thread_Backup.IsBackground = True
    Thread_Backup.Start()
End Sub

Private Sub Ejecuta_Backup() 'SE EJECUTA DOS VECES
   If Now.DayOfWeek = 1 Then 
      If Now.Hour = 7 Then
         ... código
      End If           
   End If      
End Sub
se añadieron 124 caracteres en el cuerpo
Origen Enlace

Estoy haciendo unas pruebas con este código, pero al ejecutarlo con puntos de interrupción, me di cuenta que se ejecuta dos veces:

Dim Thread_Backup As Thread

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    tmBackup.Enabled = True 'ACTIVA TIMER
    AddHandler tmBackup.Tick, AddressOf tmBackup_Tick
End Sub

Private Sub tmBackup_Tick(sender As Object, e As EventArgs) Handles tmBackup.Tick
    Thread_Backup = New Thread(New ThreadStart(AddressOf Ejecuta_Backup))
    Thread_Backup.IsBackground = True
    Thread_Backup.Start()
End Sub

Private Sub Ejecuta_Backup() 'SE EJECUTA DOS VECES
   If Now.DayOfWeek = 1 Then 
      If Now.Hour = 7 Then
         ... código 
 se ejecuta dos veces  End If           
   End If      
End Sub

Estoy haciendo unas pruebas con este código, pero al ejecutarlo con puntos de interrupción, me di cuenta que se ejecuta dos veces:

Dim Thread_Backup As Thread

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    tmBackup.Enabled = True 'ACTIVA TIMER
    AddHandler tmBackup.Tick, AddressOf tmBackup_Tick
End Sub

Private Sub tmBackup_Tick(sender As Object, e As EventArgs) Handles tmBackup.Tick
    Thread_Backup = New Thread(New ThreadStart(AddressOf Ejecuta_Backup))
    Thread_Backup.IsBackground = True
    Thread_Backup.Start()
End Sub

Private Sub Ejecuta_Backup() 
  ... código se ejecuta dos veces
End Sub

Estoy haciendo unas pruebas con este código, pero al ejecutarlo con puntos de interrupción, me di cuenta que se ejecuta dos veces:

Dim Thread_Backup As Thread

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    tmBackup.Enabled = True 'ACTIVA TIMER
    AddHandler tmBackup.Tick, AddressOf tmBackup_Tick
End Sub

Private Sub tmBackup_Tick(sender As Object, e As EventArgs) Handles tmBackup.Tick
    Thread_Backup = New Thread(New ThreadStart(AddressOf Ejecuta_Backup))
    Thread_Backup.IsBackground = True
    Thread_Backup.Start()
End Sub

Private Sub Ejecuta_Backup() 'SE EJECUTA DOS VECES
   If Now.DayOfWeek = 1 Then 
      If Now.Hour = 7 Then
         ... código 
      End If           
   End If      
End Sub
Origen Enlace

VB.NET 2019 - Hilo se ejecuta dos veces

Estoy haciendo unas pruebas con este código, pero al ejecutarlo con puntos de interrupción, me di cuenta que se ejecuta dos veces:

Dim Thread_Backup As Thread

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    tmBackup.Enabled = True 'ACTIVA TIMER
    AddHandler tmBackup.Tick, AddressOf tmBackup_Tick
End Sub

Private Sub tmBackup_Tick(sender As Object, e As EventArgs) Handles tmBackup.Tick
    Thread_Backup = New Thread(New ThreadStart(AddressOf Ejecuta_Backup))
    Thread_Backup.IsBackground = True
    Thread_Backup.Start()
End Sub

Private Sub Ejecuta_Backup() 
  ... código se ejecuta dos veces
End Sub