Hi everyone,
I?m having the following problem. I have a windows form application with 2 main forms, one of them is master form and the second one is the UNDO form, in the first form i input images in the datagridview based on the numeric key pressed, the second form is the undo form where i can delete the column that has the wrong value to continue inserting new values(Images). The problem is, the input works ok, but when i use the undo everything goes to hell, the grid loses it?s column names and after that inserting new values causes a lot of errors. Thanks every one for the help.
The form 1 code is bellow.
The form 2 code
I?m having the following problem. I have a windows form application with 2 main forms, one of them is master form and the second one is the UNDO form, in the first form i input images in the datagridview based on the numeric key pressed, the second form is the undo form where i can delete the column that has the wrong value to continue inserting new values(Images). The problem is, the input works ok, but when i use the undo everything goes to hell, the grid loses it?s column names and after that inserting new values causes a lot of errors. Thanks every one for the help.
The form 1 code is bellow.
VB.NET:
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.NumPad7 'Resultado para dragon
dgv_totais.CurrentCell = Nothing
'dgv_totais.ColumnHeadersVisible = False
'dgv_totais.RowHeadersVisible = False
If txt_col_fullResult.Text = "0" Then
dgv_totais.Rows(0).Cells(0).Value = Image.FromFile("C:\Display\Images\vermelho.bmp")
dgv_totais.Rows(1).Cells(0).Value = Image.FromFile("C:\Display\Images\branco.bmp")
dgv_totais.Rows(2).Cells(0).Value = Image.FromFile("C:\Display\Images\branco.bmp")
Dim fulltie As New DataGridViewImageColumn() With {.Width = 52, .Name = Val(txt_col_fullResult.Text) + 1}
dgv_totais.Columns.Add(fulltie)
dgv_totais.FirstDisplayedScrollingColumnIndex = txt_col_fullResult.Text
lbl_totDragon.Text = Val(lbl_totDragon.Text) + 1
txt_Tot_dragon.Text = lbl_totDragon.Text
txt_col_fullResult.Text = Val(txt_col_fullResult.Text) + 1
txt_undo.Text = txt_col_fullResult.Text
'txt_undo.Text = Val(txt_col_fullResult.Text) + 1
txt_ver_last.Text = "1"
frm_resultado.Show()
Else
'dgv_totais.ColumnHeadersVisible = False
'dgv_totais.RowHeadersVisible = False
dgv_totais.Rows(0).Cells(txt_col_fullResult.Text).Value = Image.FromFile("C:\Display\Images\vermelho.bmp")
dgv_totais.Rows(1).Cells(txt_col_fullResult.Text).Value = Image.FromFile("C:\Display\Images\branco.bmp")
dgv_totais.Rows(2).Cells(txt_col_fullResult.Text).Value = Image.FromFile("C:\Display\Images\branco.bmp")
lbl_totDragon.Text = Val(lbl_totDragon.Text) + 1
Dim fulltie As New DataGridViewImageColumn() With {.Width = 52, .Name = Val(txt_col_fullResult.Text) + 1}
dgv_totais.Columns.Add(fulltie)
dgv_totais.FirstDisplayedScrollingColumnIndex = txt_col_fullResult.Text
txt_col_fullResult.Text = Val(txt_col_fullResult.Text) + 1
txt_Tot_dragon.Text = lbl_totDragon.Text
txt_undo.Text = txt_col_fullResult.Text
'txt_undo.Text = Val(txt_col_fullResult.Text) + 1
txt_ver_last.Text = "1"
frm_resultado.Show()
End If
dgv_totais.Rows(1).Cells(txt_col_fullResult.Text).Value = Image.FromFile("C:\Display\Images\branco.bmp")
dgv_totais.Rows(2).Cells(txt_col_fullResult.Text).Value = Image.FromFile("C:\Display\Images\branco.bmp")
dgv_totais.Rows(0).Cells(txt_col_fullResult.Text).Value = Image.FromFile("C:\Display\Images\branco.bmp")
Case Keys.NumPad3
frm_undo.Show()
Case Keys.NumPad4
frm_newShoe.Show()
End Select
End SubThe form 2 code
VB.NET:
Private Sub frm_undo_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.Return
'-------------------------------------------------------------------------------------------------------------------------------
'+++++ DRAGON ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'-------------------------------------------------------------------------------------------------------------------------------
If frm_main.txt_ver_last.Text = "1" And frm_main.txt_Tot_dragon.Text = "1" Then
'frm_main.dgv_totais.Columns.RemoveAt(0)
'frm_main.dgv_totais.Update()
frm_main.dgv_totais.Rows(0).Cells(0).Value = Image.FromFile("C:\Display\Images\branco.bmp")
frm_main.dgv_totais.Rows(1).Cells(0).Value = Image.FromFile("C:\Display\Images\branco.bmp")
frm_main.dgv_totais.Rows(2).Cells(0).Value = Image.FromFile("C:\Display\Images\branco.bmp")
'Dim fulltie As New DataGridViewImageColumn() With {.Width = 52, .Name = frm_main.txt_col_fullResult.Text}
'frm_main.dgv_totais.Columns.Add(fulltie)
frm_main.dgv_totais.FirstDisplayedScrollingColumnIndex = Val(frm_main.txt_col_fullResult.Text) - 1
frm_main.lbl_totDragon.Text = Val(frm_main.lbl_totDragon.Text) - 1
frm_main.txt_col_fullResult.Text = "1"
frm_main.txt_Tot_dragon.Text = "0"
frm_main.txt_undo.Text = Val(frm_main.txt_col_fullResult.Text) + 1
frm_main.txt_ver_last.Text = "0"
Me.Close()
End If
If frm_main.txt_ver_last.Text = "1" And frm_main.txt_Tot_dragon.Text > "1" Then
frm_main.dgv_totais.Columns.RemoveAt(Val(frm_main.txt_col_fullResult.Text) - 1)
'frm_main.lbl_totDragon.Text = Val(frm_main.lbl_totDragon.Text) - 1
frm_main.txt_Tot_dragon.Text = Val(frm_main.txt_Tot_dragon.Text) - 1
'frm_main.txt_undo.Text = frm_main.txt_col_fullResult.Text
'frm_main.txt_col_fullResult.Text = Val(frm_main.txt_col_fullResult.Text) - 1
frm_main.dgv_totais.Rows(0).Cells(frm_main.txt_col_fullResult.Text).Value = Image.FromFile("C:\Display\Images\branco.bmp")
frm_main.dgv_totais.Rows(1).Cells(frm_main.txt_col_fullResult.Text).Value = Image.FromFile("C:\Display\Images\branco.bmp")
frm_main.dgv_totais.Rows(2).Cells(frm_main.txt_col_fullResult.Text).Value = Image.FromFile("C:\Display\Images\branco.bmp")
'frm_main.dgv_totais.Rows(0).Cells(frm_main.txt_undo.Text).Value = Image.FromFile("C:\Display\Images\branco.bmp")
'frm_main.dgv_totais.Rows(1).Cells(frm_main.txt_undo.Text).Value = Image.FromFile("C:\Display\Images\branco.bmp")
'frm_main.dgv_totais.Rows(2).Cells(frm_main.txt_undo.Text).Value = Image.FromFile("C:\Display\Images\branco.bmp")
frm_main.txt_col_fullResult.Text = Val(frm_main.txt_col_fullResult.Text) - 1
frm_main.txt_ver_last.Text = "0"
Me.Close()
End If
Case Else
Me.Close()
End Select
Me.Close()
End Sub
