diff --git a/.vs/Gästeliste/v14/.suo b/.vs/Gästeliste/v14/.suo index 708ac3a..8e9b65e 100644 Binary files a/.vs/Gästeliste/v14/.suo and b/.vs/Gästeliste/v14/.suo differ diff --git a/Gästeliste/frmMain.Designer.vb b/Gästeliste/frmMain.Designer.vb index 6eeb266..4bc8bcc 100644 --- a/Gästeliste/frmMain.Designer.vb +++ b/Gästeliste/frmMain.Designer.vb @@ -45,6 +45,7 @@ Partial Class frmMain Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() Me.HilfePerEmailAnfordernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FehlerMeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuContext = New System.Windows.Forms.ContextMenuStrip(Me.components) CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -210,6 +211,11 @@ Partial Class frmMain Me.FehlerMeldenToolStripMenuItem.Size = New System.Drawing.Size(206, 22) Me.FehlerMeldenToolStripMenuItem.Text = "Fehler melden" ' + 'mnuContext + ' + Me.mnuContext.Name = "mnuContext" + Me.mnuContext.Size = New System.Drawing.Size(61, 4) + ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -252,4 +258,5 @@ Partial Class frmMain Friend WithEvents HilfePerEmailAnfordernToolStripMenuItem As ToolStripMenuItem Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator Friend WithEvents FehlerMeldenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuContext As ContextMenuStrip End Class diff --git a/Gästeliste/frmMain.resx b/Gästeliste/frmMain.resx index a09904a..5629d5f 100644 --- a/Gästeliste/frmMain.resx +++ b/Gästeliste/frmMain.resx @@ -126,6 +126,9 @@ 303, 17 + + 407, 17 + diff --git a/Gästeliste/frmMain.vb b/Gästeliste/frmMain.vb index 1fe4a99..5e76542 100644 --- a/Gästeliste/frmMain.vb +++ b/Gästeliste/frmMain.vb @@ -21,4 +21,18 @@ Public Class frmMain oForm.Dispose() oForm = Nothing End Sub + + Private Sub HilfePerEmailAnfordernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HilfePerEmailAnfordernToolStripMenuItem.Click + If MsgBox("Dies startet dein Emailprogramm, um mir eine Email zu schreiben", vbOKCancel) = vbOK Then + Process.Start("mailto:Dominic%20Reich%20?subject=[FEWO%20Gästeliste]%20Bitte%20um%20Hilfe&body=Hallo%20Dominic,%0Aich%20brauche%20Hilfe%20bei%20%0A%0A--%20%0AEmail%20über%20das%20Programm%20'Gästeliste'%20erstellt.") + End If + End Sub + + Private Sub FehlerMeldenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FehlerMeldenToolStripMenuItem.Click + If MsgBox("Dies öffnet deinen Browser und führt dich zur Github-Issues Seite." + Chr(13) + "Ein Github-Konto ist zwingend erforderlich!", vbOKCancel) = vbOK Then + Process.Start("https://github.com/freefallcid/Gaesteliste/issues") + End If + End Sub + + End Class