Kleinigkeiten

Dokumentation/frmHostBearbeiten.vb

@@ -395,4 +395,12 @@
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         cExtProgramme.startlink(TxtLink.Text, "edge")
     End Sub
+
+    Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
+
+    End Sub
+
+    Private Sub MitHTTPSFuellen_Click(sender As Object, e As EventArgs) Handles MitHTTPSFuellen.Click
+        TxtLink.Text = "https://" & TxtIP.Text & "/"
+    End Sub
 End Class