2.6.3.Элементы управления - Надпись


Элемент управления Label (Надпись) предназначен для отображения заголовков или короткого пояснительного текста. Основным свойством надписи является свойство caption, задающее отображаемый текст. Свойство Borderstyle задает стиль границы надписи. В надписи допустим вывод небольшого растрового изображения, ссылка на которое устанавливается свойством picture, а свойство TextAlign задает взаимное расположение рисунка и текста.

 

В следующем примере на форме имеются две надписи. У первой нет границы, а в качестве сообщения выводится текущая дата. У второй надписи граница имеется, и кроме сообщения о времени старта приложения в нее выводится растровое изображение. Записи в комментариях можно не прописывать в тексте программы, достаточно указать эти свойства через окно Properties.


Private Sub UserForm_Initialize()
'Label1.BorderStyle = fmBorderStyleNone
Label1.Caption = "Сегодня: " & Format(Date, "DD mmmm yyyy")
'Label2.BorderStyle = fmBorderStyleSingle
Label2.Caption = "Время старата программы: " & vbCr & Now()
'Label2.TextAlign = fmTextAlignRight
End Sub





Добавление на форму гиперссылки

 

На форму непосредственно нельзя добавлять гиперссылки, но это ограничение можно обойти с помощью надписи. Итак, расположите на форме надпись, а в модуле формы наберите код из листинга 6.8. Благодаря подчеркиванию (свойство Underline объекта Font), отображению текста синим цветом (свойство ForeColor), заданию пользовательского указателя в виде указывающего пальца (свойства MousePointer и Mouseicon), а также тому, что надпись подогнана под размер текста, создается визуальное впечатление наличия на форме гиперссылки. Далее остается только реализовать событие click надписи, в котором и осуществить непосредственно переход по гиперссылке.


' можно установить в окне свойств
Private Sub UserForm_Initialize()
Label1.Caption = "http://oksi-ac.ucoz.ru"
Label1.Font.Underline = True
Label1.Font.Size = 18
Label1.ForeColor = RGB(0, 0, 255)
Label1.MousePointer = fmMousePointerCustom
Label1.MouseIcon = LoadPicture("C:\WINDOWS\Cursors\harrow.cur")
End Sub
Private Sub Label1_Click()
Dim link As String
link = Label1.Caption
On Error GoTo m1
ThisWorkbook.FollowHyperlink Address:=link, NewWindow:=True
Unload Me
Exit Sub
m1:
MsgBox "Ошибка при открытии " & link
End Sub


  




 


ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map