Új hozzászólás Aktív témák

• #3166 pmonitor aktív tag sztanozs #3165

  Új Válasz 2021-11-30 09:44:07 #3166

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  pmonitor

  aktív tag

  válasz sztanozs #3165 üzenetére

  Miért? A Form nem Control?

  szerk.:
  Valahogy így lehet ezt megcsinálni:
  Imports System.Threading
Public Class Form1

Public variable As Integer

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
BackgroundWorker1.RunWorkerAsync(Me)
Timer1.Start()
End Sub


Sub Update()
Text = variable
End Sub

Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim frm As Form1 = e.Argument
For i = 1 To 100
If (frm.InvokeRequired) Then frm.Invoke(New MethodInvoker(AddressOf Update), Nothing)
Thread.Sleep(1000)
Next
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
variable += 1
End Sub
End Class

Új hozzászólás Aktív témák