nt, M.Country, M.PictureM)=arrTypes.IndexOf (Ab)=S.IdIf (). Position=0_objects () («Запис Відаль») IfSubSub BtnSave_Click (ByVal sender As System.Object , ByVal e As System.EventArgs) Handles BtnSave.ClickLen (Me.TxtModel.Text)=0 Then («Не введено назви МОДЕЛІ», MsgBoxStyle.Information, «Увага!"). TxtModel.Focus () SubIfLen ( Me.TxtCost.Text)=0 Then («Не введено вартості», MsgBoxStyle.Information, «Увага!"). TxtCost.Focus () SubIf (True, True, True, True, True, True, True) . Enabled=True.PlnNavigation.Enabled=True (nAddEdit)=0SubSub BtnCancel_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click (False, False, False, True, True, True, False) . Enabled=True.PlnNavigation.Enabled=True_objects () (True)=0SubSub SaveToArrayList (ByVal nAddEdit As Byte) Case nAddEdit1.Id=nMaxId + 1.IdNmb=Me.CmbType.SelectedIndex + 1.NameOfModel=Me.TxtModel.Text . TypeOfTool=Me.CmbType.SelectedItem.Cost=Me.TxtCost.Text.Amount=Me.TxtAmount.Text.Country=Me.TxtCountry.Text.PictureM=Me.TxtPictureM.Text.Add (New Model (M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM)). Position=arrModel.Count - 1=nMaxId + 12.Id=CurrentModelNumber.IdNmb=Me. CmbType.SelectedIndex + 1.NameOfModel=Me.TxtModel.Text.TypeOfTool=Me.CmbType.SelectedItem.Cost=Me.TxtCost.Text.Amount=Me.TxtAmount.Text.Country=Me.TxtCountry.Text.PictureM=Me. TxtPictureM.TextAb As New Model (M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM). Item (CurrentIndex)=AbSelect () _P ( ) _objects () (False) () («Записи Збереже») SubSub SaveAllToFile () BW As BinaryWriterFS As FileStreamaListEnum As IEnumerator=New FileStream («. officeequipment.dat», FileMode.Create, FileAccess.Write)=New BinaryWriter (FS). BaseStream.Seek (0, SeekOrigin.Begin)=arrModel.GetEnumeratoraListEnum.MoveNext (BW, aListEnum.Current) While.Close (). Close ()=NothingSubSub SaveRecord (ByVal writer As BinaryWriter, ByVal record As Model).Write(record.Id).Write(record.IdNmb).Write(record.NameOfModel).Write(record.TypeOfTool).Write(record.Cost).Write(record.Amount).Write(record.Country).Write(record.PictureM)SubSub BtnFind_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFind.Click.TxtSearchModel.Focus () bShowSearch=False Then=True.Text=«Завершити поиск». GroupBoxForSerch.Enabled=True=False.Text =«Пошук». GroupBoxForSerch.Enabled=FalseIf.Checked=True.Text=«». Text=«». Text=«» SubSub BtnDoSearch_Click (ByVal sender As System.Object, ByVal e As System . EventArgs) Handles BtnDoSearch.Click.UnSelect (cManager.Position) RadioButton1.Checked=True Then=Search (1, (Trim (Me.TxtSearchModel.Text)). ToUpper) Me.TxtSearchModel.Text=«» Then ( «Не введено жодних значення для поиска!», MsgBoxStyle.Information, «УВАГА!») IfIfRadioButton2.Checked=True Then=Search (2, (Trim (Me.TxtSearchCost.Text)). ToUpper) Me . TxtSearchCost.Text=«» Then («Не введено жодних значення для поиска!», MsgBoxStyle.Information, «УВАГА!») IfIfRadioButton3.Checked=True Then=Search (3, (Trim ( Me.TxtSearchCountry.Text)). ToUpper) Me.TxtSearchCountry.Text=«» Then («Не введено жодних значення для поиска!», MsgBoxStyle.Information, «УВАГА!») IfIfnPos>=0 Then.Position=nPos.Focus (). Select (nPos) («Запис Полтава |! », MsgBoxStyle.Information,« УВАГА! ») IfSubFunction Search (ByVal bField As Integer, ByVal sStr As String) As Integeritm As Object, i As IntegerCurA As New Model (0, 0,« »,« »,« », 0,« »,« »)=- 1=- 1bField=1 ThenEach itm In ar...
