| |
Динамическое добавление панелей |
|
| |
Dim mypanel As Panel
Set mypanel = StatusBar1.Panels.Add() 'добавление панели
mypanel.AutoSize = sbrSpring 'установка свойства АвтоРазмер
mypanel.MinWidth = 1 'установка минимальной ширины
Set mypanel = StatusBar1.Panels.Add(, , , sbrCaps) 'добавление панели,
установка свойства включенной клавиши Caps
Set mypanel = StatusBar1.Panels.Add(, , , sbrNum) 'добавление панели,
установка свойства включенной клавиши Num
mypanel.Bevel = sbrInset
mypanel.Alignment = sbrRight 'установка выравнивания текста в
панели
StatusBar1.Panels(1).Text = "Status:" 'присвоение первой
панели заголовка
StatusBar1.Panels(2).Text = "" 'присвоение второй панели
заголовка
StatusBar1.Panels(1).AutoSize = sbrContents
|
|
| |
|
|
|
|