Labels(3).Text = "информация о проекте."
Labels(4).Text = "Попрощаться с помощником."
End With
X = NewBalloon.Show
IfX = 1 Then
mes = MsgBox("Предприятие ООО 'СТИМУЛ-БРЕСТ' производит С/Х машины. Предприятие находится по адресу: 224022, г.Брест, Красный двор", vbInformation)
GoTo Begin
End If
IfX = 2 Then
mes = MsgBox("Таблица отображает информацию о продукции, которую производит данная фирма.", vbInformation)
GoTo Begin
End If
IfX = 3 Then
mes = MsgBox("Курсовой проект по теме'' Автоматизация работы предприятия ООО 'СТИМУЛ-БРЕСТ'. '' разработан студентом IV курса группы 8381 Бояревичем И.Н. ", vbOKOnly)
GoTo Begin
End If
If X = 4 Then
mes = MsgBox("Bye-bye!!!")
GoTo Begin
End If
End Sub
Public Sub Form_Load()
Dim MyMenu As CommandBar
Dim cbFileB As CommandBarPopup
Dim cbEditB As CommandBarPopup
Dim cbViewB As CommandBarPopup
Dim cbHelpB As CommandBarPopup
Dim cbInsertB As CommandBarPopup
Dim cbFormatB As CommandBarPopup
Dim cbOpenB As CommandBarButton
Dim cbSaveB As CommandBarButton
Dim cbExitB As CommandBarButton
' Создание строки главного меню
Set MyMenu = CommandBars.Add(Name:="KCmdBar", MenuBar:=True, Temporary:=True, Position:=msoBarTop)
' Создание меню Файл
Set cbFileB = MyMenu.Controls.Add(Type:=msoControlPopup)
cbFileB.Caption = "Файл"
' Создание меню Отчеты
Set cbEditB = MyMenu.Controls.Add(Type:=msoControlPopup)
cbEditB.Caption = "Отчёты"
' Создание меню Формы
Set cbViewB = MyMenu.Controls.Add(Type:=msoControlPopup)
cbViewB.Caption = "Формы"
' Создание меню Справка
Set cbHelpB = MyMenu.Controls.Add(Type:=msoControlPopup)
cbHelpB.Caption = "Помощь"
' Создание меню Файл
Set Печать = cbFileB.Controls.Add(Type:=msoControlButton)
Печать.Style = msoButtonCaption
Печать.Caption = "Печать..."
Печать.OnAction = "Печать"
MyMenu.Visible = True
Set cbExitB = cbFileB.Controls.Add(Type:=msoControlButton)
With cbExitB
Style = msoButtonCaption
Caption = "Выход"
OnAction = "Exit"
End With
MyMenu.Visible = True
Set cbSotrOtchet = cbEditB.Controls.Add(Type:=msoControlButton)
With cbSotrOtchet
Style = msoButtonCaption
Caption = "Неоплаченные счета"
OnAction = "Неоплаченные_счета"
End With
MyMenu.Visible = True
Set cbPostOtchet = cbEditB.Controls.Add(Type:=msoControlButton)
With cbPostOtchet
Style = msoButtonCaption
Caption = "Продажи по клиентам"
OnAction = "По_клиентам"
End With
MyMenu.Visible = True
Set cbTovarOtchet = cbEditB.Controls.Add(Type:=msoControlButton)
With cbTovarOtchet
Style = msoButtonCaption
Caption = "Продажи по товарам"
OnAction = "По_товарам"
End With
MyMenu.Visible = True
Set cbPost = cbViewB.Controls.Add(Type:=msoControlButton)
With cbPost
Style = msoButtonCaption
Caption = "Продукция"
OnAction = "товары"
End With
MyMenu.Visible = True
Set cbPostй = cbViewB.Controls.Add(Type:=msoControlButton)
With cbPostй
Style = msoButtonCaption
Caption = "Сотрудники"
OnAction = "Сотрудники"
End With
MyMenu.Visible = True
Set cbPostц = cbViewB.Controls.Add(Type:=msoControlButton)
With cbPostц
Style = msoButtonCaption
Caption = "Заказы_по_клиентам"
OnAction = "Заказы_по_клиентам"
End With
MyMenu.Visible = True
' Set cbPostк = cbViewB.Controls.Add(Type:=msoControlButton)
' With cbPostк
' .Style = msoButtonCaption
' .Caption = "Кто, где работает"
' .OnAction = "Кто-где_Форма_Меню"
' End With
' MyMenu.Visible = True
' Создание ассистента
Set FGq = cbHelpB.Controls.Add(Type:=msoControlButton)
FGq.Style = msoControlButton
FGq.Caption = "Показать помощника"
FGq.OnAction = "Аситсент"
Set FG = cbHelpB.Controls.Add(Type:=msoControlButton)
FG.Style = msoControlButton
FG.Caption = "О_предприятии"
FG.OnAction = "О_предприятии"
Set Sprav = cbHelpB.Controls.Add(Type:=msoControlButton)
Sprav.Style = msoControlButton
Sprav.Caption = "Справка"
Sprav.OnAction = "help"
End Sub