27 lines
936 B
VB.net
27 lines
936 B
VB.net
|
Public Class ManagerForm
|
|||
|
|
Private Sub ManagerForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|||
|
|
Me.Text = Main_Form.programName & Main_Form.programVer & "-ManagerForm"
|
|||
|
|
pnOnoff.BackColor = Color.Yellow
|
|||
|
|
|
|||
|
|
If Main_Form.mqttBroker = String.Empty Or Main_Form.mqttTopic = String.Empty Then
|
|||
|
|
pnOnoff.BackColor = Color.Red
|
|||
|
|
Else
|
|||
|
|
If Main_Form.mqttNowConnect Then
|
|||
|
|
pnOnoff.BackColor = Color.Green
|
|||
|
|
Else
|
|||
|
|
pnOnoff.BackColor = Color.Red
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub btnMqtt_Click(sender As Object, e As EventArgs) Handles btnMqtt.Click
|
|||
|
|
If MqttForm.ShowDialog = DialogResult.OK Then
|
|||
|
|
If Main_Form.mqttConnect() Then
|
|||
|
|
pnOnoff.BackColor = Color.Green
|
|||
|
|
Else
|
|||
|
|
pnOnoff.BackColor = Color.Red
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
End Class
|