From 504d06071110f8b489ff5462cdd6a994de2fd2fe Mon Sep 17 00:00:00 2001 From: Dominic Reich Date: Sun, 13 Mar 2016 12:45:40 +0100 Subject: [PATCH] adds deletion of row via rightclick, default colors for gridview --- .vs/Gästeliste/v14/.suo | Bin 53248 -> 53248 bytes Gästeliste/GästeDataSet.xsd | 2 +- Gästeliste/frmMain.Designer.vb | 141 ++++++++++++++++++-------------- Gästeliste/frmMain.vb | 23 ++++++ 4 files changed, 104 insertions(+), 62 deletions(-) diff --git a/.vs/Gästeliste/v14/.suo b/.vs/Gästeliste/v14/.suo index 8e9b65e9c94d03b791c3cb9da8f009f34d3d8010..11724ded4c7a6017b0a615fd6f218718137f1366 100644 GIT binary patch delta 2009 zcmeH{T}+!*7{{OUzWt&=X(%7FvaQ)5PB2YD)(Rmo#s<*{0_!?5n*jslBQ0b7iV|F_ z!wqp8tk14CXG)Xeg$XXaUP(;Y?TjKBX>#E&-+BSJ=M*JG2iR2h!&NM|CUQuh$9h&4C`>X$-She?mNQb6_&5 z1oR{I$(ly}^>@5$SD@D`LNvtvPJseMS3Razm1r5WXJ_fI)Byc!A8QO!yff{dlDA z#mWGTAeaRgz#O>9qRz&T>S}dySlZ8ZHR?YUz$gPG5F^)+RrEtJX7~r^PsM#uF$JA` z z7T2*P8QB6*(}-i0wXN&#|Em~$P~wmE!%fo9+}w(B*?jqXbR`i{Nl z<9{Vi6=Iny$FZsikUNTylU{`y=b<}3Hs5s%;?BDroA1UH^DCiXaCCas89T2f-aBdN zkoUCEtlJ)lVj%CbS{Nkir1RKdG(Tw!x^OABsVnc0Y;G$a`rMq?qZH!KZX3JS?WSIO z4Jqm;PGpX7Q%{9nX5PT}Gh6B+b!oZx1)n zsD<1#OifU3a=~iG_CoLtW0ORfnYQ_0`(e!GOW)9?Hx$0L@=S8IPn%DEY5M=*3kP5E z`@zo`h-}E3LR`A`NPNbYwTBjYJ>>n6ZTgsep_$jV)K*7+M0VEgR`k_iZ+-kHN<&Mn zj|e_?^>%IWPwH82Use-aGELlC|EYMH%QB5n2l!mZR27;C%X%Y2+iWxtXqOVVgAEOh z2akGM+`~;Cx2vVu`4~4=8&2czjvX0?ab{vH688JKqq~~FIpNe6uACEpc~w<~uQxwY YQrDh4>w9)F^wrh}AD+>y_1}r#0Cy<;@&Et; delta 1284 zcmd6mT}YEr7{|{!d-v(rG_|(OR&F9u=En*X12aSWFw)eS>>`zA);9MkCFWKxkciSf z-BmE&LX)6muXrQTsvGel3%at4?!4+!!7R1sYzw<6=%SzlKhFO-=Q;o9JrCy%Mr6T= zY|_ruhV`p!x@+(04)C)8y$Q=Kpa>8`EEM`>gUm@_RaSO97gsWn9ArC^j%?siCTFg7 zsMSa+vX1c@qDS3|q#-<~1^mKYc{4`Yqm6YC(+JQkucbAkjoo2pmm4xaFY3Up82a^x zC|dS2ENa#*94^OEbM9o^D^W<{px#q9+K{ptPG3CrmL>HvR6V3!@2 z1%!|5$PHu&2_c&X+7(LcB!AY1{5L+SKl_BUd^}qpU^HJ^&MQ!<;!gNEU{D+LcyJc& z`K4PB-VO`WhQN8#DG*HBZ7vMlhzIc^KE#i}2a{3Y4$?PMp6o9hE4guy5b33vQgNO} z_bf4a6IQjsm%U#V^{D!ow7OrR5{sEw$v{5-vb5jzzcmUltPEsZ| z>EZRgLU7gJk|r;nk%>+L#1XxucP>(34b#%};0Za@xI-}K+AWO@v@6Aa236(?iOq@> z7R-gw;f5_K{3+46D}kv8t$Cz`l#&C)N?h2fUUG@paMOn!vyyHoJ(vTZ?(3D4w2M>{ zs}y|L$27Hgq?{Zg`$#l$Okv{BCo#0K;-un5WJw*Lz%AzT2Tm?{91R^k&f>mKm^GKF z+U7Nh{f)VNeP8Ffqm|Ycug&AN*7iDjoIPDQcljN*@OY8V>$6$w-aN+1-oy0|CpjD$ zpP@0>Sycdr2_saS&3I!K6`xQDja5PQgn(=9@a}LS#LU%VND!Z~=$(eNf7=RU{9cJ) z_djgKqnMe7=i8vHsz@7s!6LUS+FQ#*o{uw6pIcyL+@5S`WXu4sVp}E4TT1^R_dEK$ Bi<$rc diff --git a/Gästeliste/GästeDataSet.xsd b/Gästeliste/GästeDataSet.xsd index c6c688e..04341e7 100644 --- a/Gästeliste/GästeDataSet.xsd +++ b/Gästeliste/GästeDataSet.xsd @@ -12,7 +12,7 @@ - + diff --git a/Gästeliste/frmMain.Designer.vb b/Gästeliste/frmMain.Designer.vb index 4bc8bcc..7c4e79a 100644 --- a/Gästeliste/frmMain.Designer.vb +++ b/Gästeliste/frmMain.Designer.vb @@ -24,9 +24,15 @@ Partial Class frmMain Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) - Me.GästeBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.GästeDataSet = New Gästeliste.GästeDataSet() Me.DataGridView1 = New System.Windows.Forms.DataGridView() + Me.mnuMain = New System.Windows.Forms.MenuStrip() + Me.HilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + 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) + Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.IDDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.NachnameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.VornameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -39,29 +45,16 @@ Partial Class frmMain Me.StammgastDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.BlockiertDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.AnmerkungDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.mnuMain = New System.Windows.Forms.MenuStrip() - Me.HilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - 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() + Me.GästeBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GästeDataSet = New Gästeliste.GästeDataSet() + Me.OnlineHilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.mnuMain.SuspendLayout() + Me.mnuContext.SuspendLayout() + CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'GästeBindingSource - ' - Me.GästeBindingSource.DataMember = "Gäste" - Me.GästeBindingSource.DataSource = Me.GästeDataSet - ' - 'GästeDataSet - ' - Me.GästeDataSet.DataSetName = "GästeDataSet" - Me.GästeDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False @@ -77,6 +70,57 @@ Partial Class frmMain Me.DataGridView1.Size = New System.Drawing.Size(818, 483) Me.DataGridView1.TabIndex = 4 ' + 'mnuMain + ' + Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.HilfeToolStripMenuItem}) + Me.mnuMain.Location = New System.Drawing.Point(0, 0) + Me.mnuMain.Name = "mnuMain" + Me.mnuMain.Size = New System.Drawing.Size(818, 24) + Me.mnuMain.TabIndex = 5 + Me.mnuMain.Text = "MenuStrip1" + ' + 'HilfeToolStripMenuItem + ' + Me.HilfeToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InfoToolStripMenuItem, Me.OnlineHilfeToolStripMenuItem, Me.ToolStripMenuItem1, Me.HilfePerEmailAnfordernToolStripMenuItem, Me.FehlerMeldenToolStripMenuItem}) + Me.HilfeToolStripMenuItem.Name = "HilfeToolStripMenuItem" + Me.HilfeToolStripMenuItem.Size = New System.Drawing.Size(44, 20) + Me.HilfeToolStripMenuItem.Text = "Hilfe" + ' + 'InfoToolStripMenuItem + ' + Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem" + Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(206, 22) + Me.InfoToolStripMenuItem.Text = "Info" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(203, 6) + ' + 'HilfePerEmailAnfordernToolStripMenuItem + ' + Me.HilfePerEmailAnfordernToolStripMenuItem.Name = "HilfePerEmailAnfordernToolStripMenuItem" + Me.HilfePerEmailAnfordernToolStripMenuItem.Size = New System.Drawing.Size(206, 22) + Me.HilfePerEmailAnfordernToolStripMenuItem.Text = "Hilfe per Email anfordern" + ' + 'FehlerMeldenToolStripMenuItem + ' + Me.FehlerMeldenToolStripMenuItem.Name = "FehlerMeldenToolStripMenuItem" + Me.FehlerMeldenToolStripMenuItem.Size = New System.Drawing.Size(206, 22) + Me.FehlerMeldenToolStripMenuItem.Text = "Fehler melden" + ' + 'mnuContext + ' + Me.mnuContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EintragLöschenToolStripMenuItem}) + Me.mnuContext.Name = "mnuContext" + Me.mnuContext.Size = New System.Drawing.Size(156, 26) + ' + 'EintragLöschenToolStripMenuItem + ' + Me.EintragLöschenToolStripMenuItem.Name = "EintragLöschenToolStripMenuItem" + Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(155, 22) + Me.EintragLöschenToolStripMenuItem.Text = "Eintrag löschen" + ' 'IDDataGridViewTextBoxColumn ' Me.IDDataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells @@ -172,49 +216,21 @@ Partial Class frmMain Me.AnmerkungDataGridViewTextBoxColumn.Name = "AnmerkungDataGridViewTextBoxColumn" Me.AnmerkungDataGridViewTextBoxColumn.Width = 200 ' - 'mnuMain - ' - Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.HilfeToolStripMenuItem}) - Me.mnuMain.Location = New System.Drawing.Point(0, 0) - Me.mnuMain.Name = "mnuMain" - Me.mnuMain.Size = New System.Drawing.Size(818, 24) - Me.mnuMain.TabIndex = 5 - Me.mnuMain.Text = "MenuStrip1" - ' - 'HilfeToolStripMenuItem - ' - Me.HilfeToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InfoToolStripMenuItem, Me.ToolStripMenuItem1, Me.HilfePerEmailAnfordernToolStripMenuItem, Me.FehlerMeldenToolStripMenuItem}) - Me.HilfeToolStripMenuItem.Name = "HilfeToolStripMenuItem" - Me.HilfeToolStripMenuItem.Size = New System.Drawing.Size(44, 20) - Me.HilfeToolStripMenuItem.Text = "Hilfe" - ' - 'InfoToolStripMenuItem - ' - Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem" - Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(206, 22) - Me.InfoToolStripMenuItem.Text = "Info" - ' - 'ToolStripMenuItem1 - ' - Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" - Me.ToolStripMenuItem1.Size = New System.Drawing.Size(203, 6) - ' - 'HilfePerEmailAnfordernToolStripMenuItem + 'GästeBindingSource ' - Me.HilfePerEmailAnfordernToolStripMenuItem.Name = "HilfePerEmailAnfordernToolStripMenuItem" - Me.HilfePerEmailAnfordernToolStripMenuItem.Size = New System.Drawing.Size(206, 22) - Me.HilfePerEmailAnfordernToolStripMenuItem.Text = "Hilfe per Email anfordern" + Me.GästeBindingSource.DataMember = "Gäste" + Me.GästeBindingSource.DataSource = Me.GästeDataSet ' - 'FehlerMeldenToolStripMenuItem + 'GästeDataSet ' - Me.FehlerMeldenToolStripMenuItem.Name = "FehlerMeldenToolStripMenuItem" - Me.FehlerMeldenToolStripMenuItem.Size = New System.Drawing.Size(206, 22) - Me.FehlerMeldenToolStripMenuItem.Text = "Fehler melden" + Me.GästeDataSet.DataSetName = "GästeDataSet" + Me.GästeDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'mnuContext + 'OnlineHilfeToolStripMenuItem ' - Me.mnuContext.Name = "mnuContext" - Me.mnuContext.Size = New System.Drawing.Size(61, 4) + Me.OnlineHilfeToolStripMenuItem.Name = "OnlineHilfeToolStripMenuItem" + Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(206, 22) + Me.OnlineHilfeToolStripMenuItem.Text = "Online-Hilfe" ' 'frmMain ' @@ -227,11 +243,12 @@ Partial Class frmMain Me.MainMenuStrip = Me.mnuMain Me.Name = "frmMain" Me.Text = "Gästeliste" - CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.mnuMain.ResumeLayout(False) Me.mnuMain.PerformLayout() + Me.mnuContext.ResumeLayout(False) + CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -259,4 +276,6 @@ Partial Class frmMain Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator Friend WithEvents FehlerMeldenToolStripMenuItem As ToolStripMenuItem Friend WithEvents mnuContext As ContextMenuStrip + Friend WithEvents EintragLöschenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents OnlineHilfeToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Gästeliste/frmMain.vb b/Gästeliste/frmMain.vb index 5e76542..310ff7b 100644 --- a/Gästeliste/frmMain.vb +++ b/Gästeliste/frmMain.vb @@ -2,6 +2,7 @@ Public Class frmMain Private _dataPath As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "Gästeliste.xml") + Private _rowIndex As Integer = 0 Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing Me.GästeDataSet.WriteXml(_dataPath) @@ -13,6 +14,10 @@ Public Class frmMain Catch ex As Exception ' do nothing, that file gets created when we close the application ;) End Try + + ' Setting colors of grids to some fancy ones :) + Me.DataGridView1.RowsDefaultCellStyle.BackColor = Color.Azure + Me.DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Beige End Sub Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoToolStripMenuItem.Click @@ -34,5 +39,23 @@ Public Class frmMain End If End Sub + Private Sub DataGridView1_CellMouseUp(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseUp + If e.Button = MouseButtons.Right Then + Me.DataGridView1.Rows(e.RowIndex).Selected = True + Me._rowIndex = e.RowIndex + Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(e.RowIndex).Cells(1) + Me.mnuContext.Show(Me.DataGridView1, e.Location) + mnuContext.Show(Cursor.Position) + End If + End Sub + Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click + If Not Me.DataGridView1.Rows(Me._rowIndex).IsNewRow Then + Me.DataGridView1.Rows.RemoveAt(Me._rowIndex) + End If + End Sub + + Private Sub OnlineHilfeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OnlineHilfeToolStripMenuItem.Click + Process.Start("http://tmsn.at/?tools&gaesteliste&hilfe") + End Sub End Class