Как вывести текст (сообщение, комментарий) в строке состояния — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Application.StatusBar = "Вирус запущен"
Application.Caption = "В Багдаде всё спокойно"
ActiveWindow.Caption = ""
Для того, чтобы восстановить исходные значения, необходимо:
 
 
Application.StatusBar = False
iWorkbookName = ActiveWindow.Caption
  
'Здесь изменение в строке заголовка
 
Application.Caption = Empty
ActiveWindow.Caption = iWorkbookName ' (a).
 
Application.Caption = Empty
ActiveWindow.Caption = ThisWorkbook.Name 'ActiveWorkbook.Name ' (б).
Если существует вероятность, что строка состояния скрыта, то:
 
 
With Application
     .DisplayStatusBar = True
     .StatusBar = "Строка состояния"
End With

Похожие записи/страницы:

Leave a Comment