32 lines
1.1 KiB
VB.net
32 lines
1.1 KiB
VB.net
Public Class Dashboard
|
|
Private Sub bt_einlesen_Click(sender As Object, e As EventArgs) Handles bt_einlesen.Click
|
|
mail_auslesen.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub bt_verarbeiten_Click(sender As Object, e As EventArgs) Handles bt_verarbeiten.Click
|
|
mail_sending.Show()
|
|
Me.Hide()
|
|
|
|
End Sub
|
|
|
|
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
|
If MessageBox.Show("Schließen?", "Close", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then
|
|
e.Cancel = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Dashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
lb_version.Text = My.Application.Info.Version.ToString
|
|
Timer_dienst.Start()
|
|
End Sub
|
|
|
|
Private Sub Timer_dienst_Tick(sender As Object, e As EventArgs) Handles Timer_dienst.Tick
|
|
If My.Settings.mail_auslesen = "0" Then
|
|
lb_Dienst.Text = "Dienst angehalten"
|
|
Else
|
|
lb_Dienst.Text = "Dienst wird ausgeführt"
|
|
End If
|
|
End Sub
|
|
|
|
End Class |