dominic/Gaesteliste
1
0
Fork 0
Code Issues Pull requests Releases Activity

adds new entry only when clicked on OK (until now this also added an empty entry when clicked on cancel)

Browse source
This commit is contained in:
Dominic Reich 2016-03-20 00:05:00 +01:00
parent eee2a17e6d
commit 3da77b5380
3 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
.vs/Gästeliste/v14/.suo
View file

Binary file not shown.

6
Gästeliste/Gästeliste.vbproj
View file

@ -17,13 +17,13 @@
<PublishUrl>Z:\Gaesteliste\</PublishUrl>
<Install>true</Install>
<InstallFrom>Web</InstallFrom>
<UpdateEnabled>true</UpdateEnabled>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<MapFileExtensions>false</MapFileExtensions>
<InstallUrl>http://tools.dominicreich.com/Gaesteliste/</InstallUrl>
<UpdateUrl>http://tools.dominicreich.com/Gaesteliste/</UpdateUrl>
<SupportUrl>http://tmsn.at/%3ftools&amp;gaesteliste</SupportUrl>
@ -32,7 +32,7 @@
<PublisherName>Dominic Reich</PublisherName>
<MinimumRequiredVersion>1.0.0.0</MinimumRequiredVersion>
<OpenBrowserOnPublish>false</OpenBrowserOnPublish>
<ApplicationRevision>18</ApplicationRevision>
<ApplicationRevision>20</ApplicationRevision>
<ApplicationVersion>1.0.1.%2a</ApplicationVersion>
<UseApplicationTrust>true</UseApplicationTrust>
<CreateDesktopShortcut>true</CreateDesktopShortcut>

10
Gästeliste/frmMain.vb
View file

@ -142,7 +142,9 @@ Public Class frmMain
End With
Try
dt.Rows.Add(dr)
If oForm.DialogResult = vbOK Then
dt.Rows.Add(dr)
End If
Catch ex As Exception
MsgBox("Gast konnte nicht hinzugefügt werden." & vbCrLf & ex.Message)
End Try
@ -210,8 +212,8 @@ Public Class frmMain
End Sub
Private Sub statusVersionLabel_Click(sender As Object, e As EventArgs) Handles statusVersionLabel.Click
If statusVersionLabel.Tag = "update" Then
UpdateToolStripMenuItem_Click(statusVersionLabel, Nothing)
End If
'If statusVersionLabel.Tag = "update" Then
UpdateToolStripMenuItem_Click(sender, Nothing)
'End If
End Sub
End Class