Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
32<br />
Next<br />
MsgBox список<br />
End Sub<br />
Sub ЕщеСтрокаМеню ()<br />
Set новоеМеню = CommandBars.Add (Name:="Игры", _<br />
Position:=msoBarFloating, MenuBar:=False, Temporary:=True)<br />
новоеМеню.Visible = True<br />
End Sub<br />
Sub НаполнениеСтрокиМеню ()<br />
Set меню = CommandBars (CommandBars.Count)<br />
Set новыйПункт = меню.Controls.Add (Type:=msoControlPopup)<br />
новыйПункт.Caption = "Информация"<br />
Set подпункт1 = новыйПункт.Controls.Add (Type:=msoControlPopup)<br />
подпункт1.Caption = "О меню"<br />
Set подпункт2 = новыйПункт.Controls.Add (Type:=msoControlPopup)<br />
With подпункт2<br />
.Caption = "О панелях"<br />
.Enabled = True<br />
.OnAction = "процедураИлиМакрос"<br />
End With<br />
End Sub<br />
Sub УдалениеМеню ()<br />
For Each меню In CommandBars<br />
If Not меню.BuiltIn And Not меню.Visible Then меню.Delete<br />
Next<br />
End Sub<br />
Sub ВосстановлениеМеню ()<br />
On Error Resume Next<br />
For i = 1 To CommandBars.Count<br />
CommandBars (i).Reset<br />
Next<br />
End Sub<br />
Панели инструментов<br />
<strong>VBA</strong> позволяет изменить изображение любой кнопки панели<br />
инструментов с помощью меню Вид .Панели инструментов .Настройка.<br />
При программировании панели инструментов рассматриваются как<br />
разновидности меню.<br />
Примеры<br />
Sub НоваяПанельИнструментов ()<br />
On Error GoTo ошибка<br />
Dim новаяПанель As CommandBar<br />
Set новаяПанель = CommandBars.Add (Name:="Игры", _<br />
Position:=msoBarFloating, MenuBar:=False, Temporary:=True)