Розробка автоматизованого робочого місця управління замовленнями у малому бізнесі (ПП "Сігма")
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
°(_Рисунок.МенюСписокЗаказчиков), 20, 20)
Try
Меню.DrawItems(e, mmnuСправочникЗаказчков, Ic)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Private Sub mmnuСправочникЗаказчков_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuСправочникЗаказчков.MeasureItem
Try
Меню.MeasureItems(e, mmnuСправочникЗаказчков)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Private Sub mmnuСправочникТовара_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles mmnuСправочникТовара.DrawItem
Dim TempIcon As New Icon(Application.StartupPath & "\IconMenu\Товар.ico")
Dim Ic As New Icon(Сервис.ВзятьStreamИзРесурса(_Рисунок.МенюТовар), 20, 20)
Try
Меню.DrawItems(e, mmnuСправочникТовара, Ic)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Private Sub mmnuСправочникТовара_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuСправочникТовара.MeasureItem
Try
Меню.MeasureItems(e, mmnuСправочникТовара)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Private Sub mmnuСправочникИзмерений_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles mmnuСправочникИзмерений.DrawItem
Dim TempIcon As New Icon(Application.StartupPath & "\IconMenu\Единицы измерения.ico")
Dim Ic As New Icon(Сервис.ВзятьStreamИзРесурса(_Рисунок.МенюЕдиницыИзмерения), 20, 20)
Try
Меню.DrawItems(e, mmnuСправочникИзмерений, Ic)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Private Sub mmnuСправочникИзмерений_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuСправочникИзмерений.MeasureItem
Try
Меню.MeasureItems(e, mmnuСправочникИзмерений)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Private Sub mmnuСправочникПоставщиков_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles mmnuСправочникПоставщиков.DrawItem
Dim TempIcon As New Icon(Application.StartupPath & "\IconMenu\Поставщики.ico")
Dim Ic As New Icon(Сервис.ВзятьStreamИзРесурса(_Рисунок.МенюПоставщики), 20, 20)
Try
Меню.DrawItems(e, mmnuСправочникПоставщиков, Ic)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Private Sub mmnuСправочникПоставщиков_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuСправочникПоставщиков.MeasureItem
Try
Меню.MeasureItems(e, mmnuСправочникПоставщиков)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Private Sub mmnuОПрограмме_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles mmnuОПрограмме.DrawItem
Dim TempIcon As New Icon(Application.StartupPath & "\IconMenu\О программе.ico")
Dim Ic As New Icon(Сервис.ВзятьStreamИзРесурса(_Рисунок.МенюОпрограмме), 20, 20)
Try
Меню.DrawItems(e, mmnuОПрограмме, Ic)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub
Private Sub mmnuОПрограмме_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles mmnuОПрограмме.MeasureItem
Try
Меню.MeasureItems(e, mmnuОПрограмме)
Catch ex As Exception
Err.Raise(Err.Number, ex.Source, ex.ToString, Err.HelpFile, Err.HelpContext)
End Try
End Sub