Visual Basic

Luc Pattyn wrote:

that would be good, if only it got displayed on top of this forum so all can see it.

dim P as ProgressBar = new ProgressBar()

P.Value = 42

dim P as ProgressBar = new ProgressBar()
dim Q as ProgressBar = P
P.Value = 42
Q.Value = 13

Public myProgressBars as Hashtable

myProgressbars.Add(currentName, New ProgressBar())

Dim myProgressBars As Hashtable
Dim myLoop as integer

 For myLoop = 0 To (RobotRecordsCount - 1)

            currentName = (Mafia_Wars_ManagerDataSet.Robots(myLoop).Name)


  'Create a progressbar
          myProgressBars.Add(currentName,New ProgressBar())

          With CType(myProgressBars(currentName), ProgressBar)
              .Location = New Drawing.Point(ProgBarPosVer, lblposHoz)
              .Name = "Prog" + currentName
              .Width = 300
              .Height = 20
              .Minimum = 0
              .Maximum = 30
          End With

          TabControl1.TabPages(0).Controls.Add(CType(myProgressBars(currentName),ProgressBar))

CType(myProgressbars(progName),ProgressBar).Value = x

Dim myProgressBars as New Dictionary(Of String, ProgressBar)
  ...
With myProgressBars(aName)
  ...
myProgressBars(aName).value = x

Dim reader As XmlReader = XmlReader.Create(xml)

      Button btn = new Button();
      btn.Name = "SomeName1";
      btn.Click += new EventHandler(btn_Click);

      Button btn = new Button();
      btn.Name = "SomeName2";
      btn.Click += new EventHandler(btn_Click);
.
.
.
And so one

Button btn = sender as Button;
System.Windows.Forms.Timer timer = new System.Windows.Forms.Timer();
timer.Tag = btn.Name;

timer.Tick += new EventHandler(timer_Tick);

System.Windows.Forms.Timer timer = sender as System.Windows.Forms.Timer;

switch(timer.Tag.ToString()){
  case "buttonName":
    break;
}

Public Class Form1

    Private lstButtons As New List(Of Button)
    Private lstTimers As New List(Of Timer)
    'create array of integers for timer intervals
    Private arrIntegers() As Integer = {25, 46, 91, 38, 50}

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For i As Integer = 0 To 4
            Dim newButton As New Button
            newButton.Name = i
            newButton.Text = "Button " & i
            newButton.Width = 75
            newButton.Height = 25
            newButton.Left = 10
            newButton.Top = 10 + (25 * i) + (5 * i)
            newButton.Parent = Me
            newButton.Visible = True
            AddHandler newButton.Click, AddressOf ButtonsClick
            lstButtons.Add(newButton)
            Dim newTimer As New Timer
            newTimer.Interval = arrIntegers(i)
            AddHandler newTimer.Tick, AddressOf TimersTick
            lstTimers.Add(newTimer)
        Next

    End Sub

    Private Sub ButtonsClick(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim intIndex As Integer = CInt(CType(sender, Button).Name)
        lstTimers(intIndex).Start()

    End Sub

    Private Sub TimersTick(ByVal sender As Object, ByVal e As System.EventArgs)

        CType(sender, Timer).Stop()
        MsgBox(CType(sender, Timer).ToString)

    End Sub

End Class

Dim t As New Threading.Thread(AddressOf myThread)

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        t.Start()
    End Sub

    Private Sub myThread()
        Do
            'Work to be done
            '....

            ' Waits 5 seconds before next iteration
            Threading.Thread.Sleep(New TimeSpan(0, 0, 5))
            'Or for miliseconds use this: Threading.Thread.Sleep(500)
        Loop
    End Sub