Sub tog_CheckedChange(checked As Boolean)
Dim index As Int
index = clv1.GetItemFromView(Sender)
Dim pnl As Panel
pnl = clv1.GetPanel(index)
Dim tog As ToggleButton
tog = pnl.GetView(2)
Dim btn As Button
btn = pnl.GetView(1)
If checked Then
Job2.Initialize("job2", Me)
Job2.Username = manager.GetString("user")
Job2.Password = manager.GetString("pass")
Job2.Download("http://"&ServerIp&":"&port&"/leds.cgi?led="&index)
Job2.Release
btn.Enabled = False
Else
Job2.Initialize("job2", Me)
Job2.Username = manager.GetString("user")
Job2.Password = manager.GetString("pass")
Job2.Download("http://"&ServerIp&":"&port&"/leds.cgi?led="&index)
Job2.Release
btn.Enabled = True
End If
End Sub