Saman_12
جمعه 10 خرداد 1392, 01:44 صبح
سلام.
میخوام وقتی کاربر میخواد برنامه رو ببنده دیتا رو تو ریجستری بریزم اما خطا میگره (یعنی نمیگره مگر اینکه تو try بزاریش) :
Private Sub FrmMain_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True
SaveOnClose()
e.Cancel = False
End Sub
Private Sub SaveOnClose()
Dim rowcount As Int32 = GetSetting(Application.ProductName, "DgvItems", "RowCount", 0)
If rowcount < Dgvmain.RowCount Then
If MsgBox("New items have not been saved yet. Are you want to save them?", _
MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
SaveDgvToRegistry(Application.ProductName, "DgvItems", Dgvmain)
End If
End If
End Sub
Public Sub SaveDgvToRegistry(Appname As String, Section As String, Dgv As DataGridView)
SaveSetting(Appname, Section, "RowCount", Dgv.RowCount)
For Each row As DataGridViewRow In Dgv.Rows
For Each cell As DataGridViewCell In row.Cells
SaveSetting(Appname, Section, "RIndex:" & row.Index & ";CName:" & cell.OwningColumn.Name, cell.Value.ToString)
Next
Next
End Sub
میخوام وقتی کاربر میخواد برنامه رو ببنده دیتا رو تو ریجستری بریزم اما خطا میگره (یعنی نمیگره مگر اینکه تو try بزاریش) :
Private Sub FrmMain_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True
SaveOnClose()
e.Cancel = False
End Sub
Private Sub SaveOnClose()
Dim rowcount As Int32 = GetSetting(Application.ProductName, "DgvItems", "RowCount", 0)
If rowcount < Dgvmain.RowCount Then
If MsgBox("New items have not been saved yet. Are you want to save them?", _
MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
SaveDgvToRegistry(Application.ProductName, "DgvItems", Dgvmain)
End If
End If
End Sub
Public Sub SaveDgvToRegistry(Appname As String, Section As String, Dgv As DataGridView)
SaveSetting(Appname, Section, "RowCount", Dgv.RowCount)
For Each row As DataGridViewRow In Dgv.Rows
For Each cell As DataGridViewCell In row.Cells
SaveSetting(Appname, Section, "RIndex:" & row.Index & ";CName:" & cell.OwningColumn.Name, cell.Value.ToString)
Next
Next
End Sub