Cały czas się z tym trudzę i nic :/
Programista utracił kod, więc nie ma jak mi pomóc. Skorzystałem z reflectora, jednak wywala mi błędy przy kompilacji. Naśladowałem kroki w filmiku i znalazlem się w momencie, gdzie posiadam ogromny kod.
Są w nim sensowne fragmenty
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
If (Strings.InStr(Me.Button3.Text, "Rozpocznij", CompareMethod.Binary) > 0) Then
Me.Button3.Text = "Zatrzymaj"
Me.threadComments = New Thread(New ThreadStart(AddressOf Me.lapkiOdpowiedz))
Me.threadComments.Start
Else
Me.Button3.Text = "Rozpocznij"
Me.threadComments.Abort
End If
End Sub
Ale i też takie, z którymi nie wiem co zrobić:
Me.Label16.TabIndex = &H10
Me.Label16.Text = "Ilość:"
point2 = New Point(&H27, 290)
Me.NumericUpDown7.Location = point2
num = New Decimal(New Integer() { &HF423F, 0, 0, 0 })
Me.NumericUpDown7.Maximum = num
num = New Decimal(New Integer() { 1, 0, 0, 0 })
Me.NumericUpDown7.Minimum = num
Me.NumericUpDown7.Name = "NumericUpDown7"
size2 = New Size(120, 20)
Me.NumericUpDown7.Size = size2
Me.NumericUpDown7.TabIndex = 15
num = New Decimal(New Integer() { 1, 0, 0, 0 })
Me.NumericUpDown7.Value = num
Me.GroupBox9.Controls.Add(Me.Button32)
Me.GroupBox9.Controls.Add(Me.Button29)
Me.GroupBox9.Controls.Add(Me.Button30)
Me.GroupBox9.Controls.Add(Me.Button31)
Me.GroupBox9.Controls.Add(Me.ListBox7)
Me.GroupBox9.Controls.Add(Me.Label12)
Me.GroupBox9.Controls.Add(Me.Button28)
Me.GroupBox9.Controls.Add(Me.TextBox6)
point2 = New Point(&HFF, &H13)
Me.GroupBox9.Location = point2
Me.GroupBox9.Name = "GroupBox9"
size2 = New Size(370, 140)
Me.GroupBox9.Size = size2
Me.GroupBox9.TabIndex = 9
Me.GroupBox9.TabStop = False
Me.GroupBox9.Text = "Powody (0)"
point2 = New Point(10, &H71)
Me.Button32.Location = point2
Me.Button32.Name = "Button32"
size2 = New Size(&H4B, &H17)
Me.Button32.Size = size2
Me.Button32.TabIndex = 15
Me.Button32.Text = "Zapisz"
Me.Button32.UseVisualStyleBackColor = True
Takze utknalem i nie wiem co zrobic, by w jakis sposob wyjs z tego bagna ;/