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



         

Методы объекта - часть 3


'(Введите URL, который вы хотите посетить)

window.frames(0).location.href = newURL

End Sub

Вводимые URL должны быть полными, включая протокол. Чтобы перейти на страницу Microsoft, введите URL http://home.microsоft.com, а не просто home.microsoft.com.

VB6 в действии: страница Calendar.htm

Страница (рис. 21.10) создана только с использованием сценария. Календарь, сгенерированный кодом VBScnpt на клиентском компьютере, отображает дни текущего месяца. Задавая различные даты, можно создавать календари на любой месяц.

Настоящий календарь не реагирует на щелчки мыши, но можно легко превратить даты в гиперсвязи, которые указывают на документы с информацией, специфичной для каждой даты.

Чтобы понять код этого приложения, необходимо иметь элементарные знания о формировании таблиц с помощью HTML-тегов.

Рис. 21.10. Календарь, созданный с использованием кода VBScnpt

Программа 21.9. Сценарий для страницы Calendar

<HTML>

<HEAD>

<TITLE>New Page</TITLE>

<SCRIPT LANGUAGE="VBSCRIPT">

Dim imonth, thisdate, nextday, cday

imonth=month (date)

document.bgcolor="#COCOCO"

document.write "<CENTER>"

document.write "<FONT FACE='Verdana' SIZE=5>"

     document.write MonthName(Month(date) ) &   " " & Year(date)

document.write "<P>"

document.write "<TABLE CELLPADDING=10 BORDERXTR>"

document.write "<TD><B>Sun<TD><B>Mon<TD><B>Tue<TDXB>Wed<TD><B>Thu<TD><B>Fri<TD><B>Sat"

document.write "<TR>"

thisdate=DateSerial(year(date), month(date), 1)

nextday=1

For cday=1 to 7

If WeekDay(thisdate)>cday Then

document.write "<TDX/TD>"

else

  document.write"<TD ALIGN=CENTERXFONT SIZE=3>" & nextday & "</TD>"

  nextday=nextday+l

  thisdate=DateSerial(year(date), imonth, nextday)

End If




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