ПОНЯТНО О Visual Basic NET (том 3)


Создание Web-страниц со сценариями в VB - часть 2


Рис. 23.9

Теперь перейдите в ее окно кода. Оно имеет такой вид, как на Рис. 23.10.

Рис. 23.10

Процедура Page_Load – аналог процедуры Form_Load в проекте приложения Windows. Пока там ничего нет. Добавьте туда какой-нибудь код, например:

        Button1.BackColor = Color.Yellow

Запустите проект. Вы увидите, что он запустился в окне Internet Explorer в виде Web-страницы. Действительно, кнопка стала желтой. Закройте страницу.

Продолжим эксперимент. Двойной щелчок по кнопке в режиме проектирования создает привычным образом в окне кода заготовку процедуры, в которую мы добавляем, например, такой текст:

        Label1.Text = "Привет!"

Запустите проект. Проверьте работу кнопки.

Итак, мы научились в VB создавать простейшие Web-страницы. Теперь вернемся к задаче о слонах. Всю работу с файлами и метками вы программируете совершенно так же, как в приложении Windows, то есть вам достаточно использовать уже изученный материал.

Вот как будет выглядеть теперь процедура Page_Load:

Imports System.IO

Public Class WebForm1

    Inherits System.Web.UI.Page

Web Form Designer generated code

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Button1.BackColor = Color.Yellow

        Dim Файл As String = "C:\INFORMAT.TXT"

        Dim Счетчик As Integer

        If Not File.Exists(Файл) Then

            Dim Запись As New StreamWriter(Файл)

            Запись.WriteLine(0)

            Запись.Close()

        End If

        Dim Чтение As New StreamReader(Файл)

        Счетчик = Чтение.ReadLine

        Чтение.Close()

        If Счетчик = 0 Then

            Label2.Text = "Вы здесь ни разу не были"

        Else

            Label2.Text = "Вы здесь были " & Счетчик & " раз."

        End If

        Счетчик = Счетчик + 1

        Dim Запись1 As New StreamWriter(Файл)

        Запись1.WriteLine(Счетчик)

        Запись1.Close()

    End Sub

End Class

Пояснения: Первый оператор If проверяет, существует ли на диске нужный файл, и если не существует, создает его и записывает туда 0. Следующие три оператора считывают число из файла в переменную Счетчик. Следующий оператор If занят получением нужного текста в метке 2. Оператор

        Счетчик = Счетчик + 1

получает значение счетчика для записи в файл, а последние три оператора эту запись осуществляют.

Запустите проект. Проверьте его работу.

Если вы создаете Web-страницу, как Web-приложение при помощи Visual Basic .NET, то при ее функционировании в Интернете используются новые, сложные и совершенные механизмы. Так, например, на смену языку HTML приходит язык XML. Объяснение этих механизмов я оставляю за бортом книги.




Начало  Назад  Вперед



Книжный магазин