BinaryWriter (FS). BaseStream.Seek (0, SeekOrigin.Begin)=arrTypes.GetEnumerator () aListEnum.MoveNext (BW, aListEnum.Current) While.Close (). Close ()=NothingSubSub SaveRecord (ByVal writer As BinaryWriter, ByVal record As ToolType). Write (record.Id). Write (record.TypeOfTool) SubSub DataGrid1_CurrentCellChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged_P () _objects () SubSub BtnFind_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFind.ClickbShowSearch=False Then.Enabled=True=True.Text=«Завершити поиск». Enabled=False=False.Text=«Пошук» If.TxtSearchTypeOfTool.Text=«». TxtSearchTypeOfTool.Focus () SubSub BtnDoSearch_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDoSearch.Click.UnSelect (cManager.Position) Len (Me.TxtSearchTypeOfTool. Text)> 0 Then=Search (Trim ((Me.TxtSearchTypeOfTool.Text). ToUpper)) nPos>=0 Then.Position=nPos.Focus (). Select (nPos) («Запис | Полтава», MsgBoxStyle.Information, « ; Увага!" ) If (« Не введено жодних значення »+« для поиска », MsgBoxStyle.Information,« Увага! ») IfSubFunction Search (ByVal sStr As String) As Integeritm As Object, i As IntegerCurA As New ToolType (0," ")=- 1=- 1Each itm In arrTypes +=1=itmString.Compare (sStr, 0, (CurA.TypeOfTool). ToUpper, 0, Len (sStr), False)=0 Then =iFunctionIfFunctionSub BtnExit_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click.Close () SubSub DataGrid1_Navigate (ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid1. NavigateSubClass
