Cost=DataGrid2.Item (DataGrid2.CurrentCell.RowNumber, 4). Amount=DataGrid2.Item (DataGrid2.CurrentCell.RowNumber, 5). Country=DataGrid2.Item (DataGrid2.CurrentCell. RowNumber, 6). PictureM=DataGrid2.Item (DataGrid2.CurrentCell.RowNumber, 7) Ab As New Model (M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M. Country, M.PictureM)=arrModel.IndexOf (Ab)=M.IdSubSub current_objects (). TxtId.Text=M.Id.ToString.TxtIdNmb.Text=M.IdNmb.ToString.CmbType.SelectedIndex=M.IdNmb - 1 . TxtModel.Text=M.NameOfModel.TxtCost.Text=M.Cost.TxtAmount.Text=M.Amount.TxtCountry.Text=M.Country.TxtPictureM.Text=M.PictureMSubSub ShowButtons (ByVal lAdd As Boolean, ByVal lEdit As Boolean, ByVal lDel As Boolean, ByVal lSave As Boolean, ByVal lCancel As Boolean, ByVal lExit As Boolean, ByVal lFind As Boolean). BtnAdd.Enabled=lAdd.BtnEdit.Enabled=lEdit.BtnDel.Enabled=lDel.BtnSave.Enabled= lSave.BtnCancel.Enabled=lCancel.BtnExit.Enabled=lExit.BtnFind.Enabled=lFindSubSub ButtonFirst_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFirst.Click.UnSelect (cManager.Position). Position=0 . Select (cManager.Position) _P () _objects () SubSub ButtonPrev_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click.UnSelect (cManager.Position). Position -=1.Select (cManager . Position) _P () _objects () SubSub ButtonNext_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click.UnSelect (cManager.Position). Position +=1.Select (cManager.Position) _P () _objects () SubSub ButtonLast_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLast.Click.UnSelect (cManager.Position). Position=arrModel.Count - 1.Select (cManager.Position) _P ( ) _objects () SubSub BtnAdd_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click (False, False, False, True, True, True, False). Enabled=False.PlnNavigation.Enabled=False =1 () (True). TxtModel.Focus () SubSub DataGrid2_CurrentCellChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid2.CurrentCellChanged_P () _objects () SubSub ShowBoxes (ByVal lShow As Boolean). TxtModel. ReadOnly=Not lShow.CmbType.Enabled=lShow.TxtCost.ReadOnly=Not lShow.TxtCountry.ReadOnly=Not lShow.TxtAmount.ReadOnly=Not lShow.TxtPictureM.ReadOnly=Not lShowSubSub BtnEdit_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click (False, False, False, True, True, True, False). Enabled=False.PlnNavigation.Enabled=False=2 (True). TxtModel.Focus () SubSub ClearBoxes (). TxtId . Text=«». TxtIdNmb.Text=«». TxtCost.Text=«». TxtModel.Text=«». TxtAmount.Text=«». TxtCountry.Text=« ». TxtPictureM.Text =« ». CmbType.SelectedIndex=0SubSub RefreshObjects (). DataSource=Nothing.DataSource=arrModel=CType (DataGrid2.BindingContext (arrModel), CurrencyManager) SubSub BtnDel_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.ClickMsgBox («потокові модель оргтехніки» + M.NameOfModel + « буде Відаль з файлу. » + VbCrLf + «Продовжіті?», _.YesNo + MsgBoxStyle.Question, «видалений МОДЕЛІ»)=MsgBoxResult.Yes Then.RemoveAt (CurrentIndex) () arrModel.Count=0 Then.Id=1.IdNmb=1 . NameOfModel=«». TypeOfTool=«». Cost=«». Amount=1.Country=«». PictureM=«». Add (New Model (M.Id, M . IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM)) Ab As New Model (M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M . Cost, M.Amou...
