Visual Basic 6. Руководство разработчика



         

Использование гиперссылок в приложениях - часть 3


On Error Resume Next

If UCase(Right$(URL,8)) <> "DEMO.HTM" Then Cancel = True

Position = InStr(URL, "#")

Shape = Mid$(URL, Position + 1)

If Shape = "circle" Then

VBForm.CIs

VBForm.Circle(VBForm.Width / 2, VBForm.Height / 2), _

VBForm.Height / 3

VBForm.Label1.Caption = "Circle(Width / 2, Height / 2), 

  _

   Height / 3"

End If

If Shape = "box" Then

VBForm.Cls

VBForm.Line(VBForm.Width / 4, VBForm.Height / 4) _

 -Step(VBForm.Width / 2, VBForm.Height / 2), , В VBForm.Label1.Caption = "Line(Width / 4, Height / 4) _

 -Step(Width / 4, Height / 4), , В"

End If

End Sub

Первый оператор отслеживает ошибку и указывает Visual Basic проигнорировать ошибки и продолжать выполнение со следующего оператора. Понятно, что ошибка непременно произойдет, так как обе привязки гиперссылок неправильные. Поэтому установка значения параметра Cancel в True отменяет передвижение. Условный оператор If проверяет, что другие (возможно допустимые) гиперссылки не отменены. Затем программа исследует последнюю часть адреса URL (правее символа #). Если это строка - "circle", то программа рисует окружность на форме VBForm и воспроизводит команду для рисования окружности на элементе управ­ления Label. Если строка - "box", то рисует квадрат на форме и воспроизводит соответствующую команду на Labell.

Можно изменить приложение, добавив другие возможности, поместив подробную справочную информацию в HTML-документ и включив демонстрацию примеров. Описанный подход нельзя считать элегантным, поскольку гиперссылки не стали частью интерфейса Visual Basic. Приложение, тем не менее, показывает, как включить функциональные возможности гиперссылок в приложения Visual Basic.




Содержание  Назад  Вперед