Teamviewer, Brumm Brumm

Dokumentation/Main.vb

@@ -1286,6 +1286,15 @@ Public Class Main
         End If
     End Sub
 
+    Private Sub TeamviewerVerbindenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TeamviewerVerbindenToolStripMenuItem.Click
+        Dim Host2Connect As New cHost
+        Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
+        If Host2Connect.TeamviewerID.Length > 1 Then
+            Ext_Programme.StartTeamviewer(Host2Connect.TeamviewerID, Host2Connect.TeamviewerKennwort)
+        Else
+            MsgBox("TeamviewerID nicht eingepflegt!")
+        End If
+    End Sub
 
     Private Sub ObjektLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektLöschenToolStripMenuItem.Click
         If Tabelle = "TbL_Netzwerkclients" Then