MS_11.04.2016

This commit is contained in:
SchreiberM
2016-04-13 12:12:51 +02:00
parent ef2a87d849
commit 5a1aaed2f4
11 changed files with 213 additions and 765 deletions

View File

@@ -377,7 +377,17 @@ Public Class frmConfig_Basic
End Sub
Private Sub txtTask_Popup_TextChanged(sender As Object, e As EventArgs) Handles txtTask_Popup.TextChanged
SaveMySettingsValue("Task_Popup_minutes", txtTask_Popup.Text, "ConfigMain")
Try
If IsNumeric(txtTask_Popup.Text) Then
Task_Popup_minutes = txtTask_Popup.Text
SaveMySettingsValue("Task_Popup_minutes", txtTask_Popup.Text, "ConfigMain")
End If
Catch ex As Exception
End Try
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click