fTool)=arrTypes.IndexOf ( Ab)=S.IdSubSub Current_objects (). TxtId.Text=S.Id.ToString.TxtTypeOfTool.Text=S.TypeOfToolSubSub showbuttons (ByVal lAdd As Boolean, ByVal lDel As Boolean, ByVal lFind As Boolean, ByVal lEdit As Boolean, _lSave As Boolean, ByVal lCancel As Boolean). BtnAdd.Enabled=lAdd.BtnDel.Enabled=lDel.BtnFind.Enabled=lFind.BtnEdit.Enabled=lEdit.BtnSave.Enabled=lSave.BtnCancel.Enabled=lCancelSubSub 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=arrTypes.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, False, True, True). Enabled=False.PlnNavigate.Enabled=False=1 () (True). TxtTypeOfTool.Focus () SubSub ShowBoxes (ByVal lShow). TxtTypeOfTool.ReadOnly=Not lShowSubSub ClearBoxes (). TxtId.Text=«». TxtTypeOfTool.Text=«» SubSub ReturnOldContentsBoxes () _objects () SubSub BtnDel_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.ClickMsgBox (« ; потокової вид » + S.TypeOfTool + « буде Відаль з файлу. » + VbCrLf + «Продовжіті?», _.YesNo + MsgBoxStyle.Question, «видалений увазі»)=MsgBoxResult.Yes Then.RemoveAt (CurrentIndex) () arrTypes.Count=0 Then.Id=1.TypeOfTool=« ; ». Add (New ToolType (S.Id, S.TypeOfTool)) Ab As New ToolType (S.Id, S.TypeOfTool)=arrTypes.IndexOf (Ab)=S.IdIf (). Position=0_objects () («Запис Відаль») IfSubSub RefreshObjects (). DataSource=Nothing.DataSource=arrTypes=CType (DataGrid1.BindingContext (arrTypes), CurrencyManager) SubSub BtnSave_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave . ClickLen (Me.TxtTypeOfTool.Text)=0 Then («Не введено назви!», MsgBoxStyle.Information, «Увага!"). TxtTypeOfTool.Focus () SubIf (True, True, True, True, False , False). Enabled=True.PlnNavigate.Enabled=True (nAddEdit)=0SubSub BtnEdit_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click (False, False, False, False, True, True ). Enabled=False.PlnNavigate.Enabled=False=2 (True). TxtTypeOfTool.Focus () SubSub BtnCancel_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click_objects () SubSub SaveToArrayList (ByVal nAddEdit As Byte) Case nAddEdit1.Id=nMaxId + 1.TypeOfTool=Me.TxtTypeOfTool.Text.Add (New ToolType (S.Id, S.TypeOfTool)). Position=arrTypes.Count - 1=nMaxId + 12.Id=CurrentTypeNumber . TypeOfTool=Me.TxtTypeOfTool.Text.TxtId.Text=S.Id.TxtTypeOfTool.Text=S.TypeOfToolAb As New ToolType (S.Id, S.TypeOfTool). Item (CurrentIndex)=AbSelect () _P () _objects ( ) (False) () («Записи Збереже») SubSub SaveAllToFile () BW As BinaryWriterFS As FileStreamaListEnum As IEnumerator=New FileStream («. Types.dat», System.IO.FileMode.Create, System.IO.FileAccess . Write)=New ...
