timas, apieinstellungen, Mitarbeiterdetails

UID/frmAPIEinstellungen.vb

@@ -1,4 +1,5 @@
-Imports VERAG_PROG_ALLGEMEIN
+Imports System.Net
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmAPIEinstellungen
 
@@ -61,8 +62,31 @@ Public Class frmAPIEinstellungen
                     .Columns("api_description").HeaderText = "Beschreibung"
                     .Columns("api_description").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
+                    Dim c As New DataGridViewImageColumn
+                    c.Name = "isRunning" : c.HeaderText = "Online"
+                    c.Image = My.Resources.wait : c.ImageLayout = DataGridViewImageCellLayout.Zoom
+                    c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
+                    c.DefaultCellStyle.Tag = "Online"
+                    .Columns.Add(c)
+
+
+
+                    For Each r As DataGridViewRow In .Rows
+                        If r.Cells("api_url").Value Is DBNull.Value Then
+                            r.DefaultCellStyle.ForeColor = Color.Gray
+                        ElseIf CBool(r.Cells("api_active").Value) = False Then
+                            r.DefaultCellStyle.ForeColor = Color.Gray
+                        End If
+
+                        If r.Cells("api_url").Value IsNot DBNull.Value AndAlso CheckAddress(r.Cells("api_url").Value) Then
+                            DirectCast(r.Cells("isRunning"), DataGridViewImageCell).Value = My.Resources.ok
+                        Else
+                            DirectCast(r.Cells("isRunning"), DataGridViewImageCell).Value = My.Resources.del
+                        End If
+                    Next
                 End If
 
+
             End With
 
 
@@ -73,22 +97,6 @@ Public Class frmAPIEinstellungen
 
     End Sub
 
-    Private Sub TextBox1_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtSuche.PreviewKeyDown
-
-        Dim sqladdon As String = ""
-
-        If e.KeyCode = Keys.Enter Then
-            If txtSuche.Text <> "" Then
-                sqladdon &= " [api_program] like '%" & txtSuche.Text & "%' or  [api_url] like '%" & txtSuche.Text & "%'"
-            End If
-            loadDGV(sqladdon)
-        End If
-
-
-
-    End Sub
-
-
     Private Sub DataGridView_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles DataGridView.DefaultValuesNeeded
         Try
 
@@ -129,4 +137,33 @@ Public Class frmAPIEinstellungen
         End If
     End Sub
 
+    Private Sub Button1_Click(sender As Object, e As EventArgs)
+        If DataGridView.SelectedRows.Count = 0 Then Exit Sub
+
+
+
+    End Sub
+
+    Private Function CheckAddress(url As String) As Boolean
+        Try
+            If url = "" Then Return False
+            Dim request As WebRequest = WebRequest.Create(url)
+            Dim response As WebResponse = request.GetResponse()
+        Catch ex As Exception
+            Return False
+        End Try
+        Return True
+    End Function
+
+    Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
+        Dim sqladdon As String = ""
+
+        If e.KeyCode = Keys.Enter Then
+            If txtSuche.Text <> "" Then
+                sqladdon &= " [api_program] like '%" & txtSuche.Text & "%' or  [api_url] like '%" & txtSuche.Text & "%'"
+            End If
+            loadDGV(sqladdon)
+        End If
+
+    End Sub
 End Class