Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.63
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.63 Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

ГЛАВА 13 ▼ Интернет

<! - -Dim а

Sub Button_onclick а = а + 1

DIV1.innerText = Int (а)

Можно убедиться, что в написании кодов на языках VBScript и Visual Basic .NET есть некоторые различия. Итак, мы дважды щелкнули первую кнопку, а сейчас запишем код для процедуры обработки событий Buttonl_onclick:

Dim а

Sub Buttonl_onclick

a = a + 1 DIV1.innerText = Int (a)

If DIV1. innerText = "Iй Then IMGl.src = _ "Зима.jpg"

If Divl.innerText = "2" Then Imgl.src = _ "водяные лилии.jpg"

If DIV1.innerText = "3" Then IMGl.src = _ "закат.jpg"

If DIV1.innerText = "4" Then IMGl.src = _

"голубые холмы.jpg" If DIV1.innerText = "4" Then Buttonl. _ disabled = True

If DIV1. innerText = "1" Then Button2. _ disabled = False End Sub

' Код для второй кнопки (обратный отсчет) Sub Button2_onclick а = а - 1

DIV1.innerText = Int (а) If DIV1.innerText = "3" Then IMGl.src _ = "закат.jpg"

If DIV1.innerText = "2" Then IMGl.src = "водяные _ лилии.jpg"

If DIV1. innerText = "1" Then IMGl.src = _ "зима.jpg"

If DIV1.innerText = "3" Then Buttonl. _ disabled = False

If DIV1.innerText = "0" Then IMGl.src = "" If DIV1.innerText = "0" Then Button2. _ disabled = True End Sub —>

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Создание браузера

В этих кодах используется условный оператор If...Then. То есть демонстрации каждого рисунка соответствует определенное количество щелчков. При показе последнего рисунка свойство кнопки Disabled меняется на True, и она перестает работать. Таким образом, отсчет прекращается. При обратном отсчете это свойство восстанавливается, и кнопка опять может нормально функционировать.

Графика

Элемент управления PictureBox

Самый простой способ размещения графики на форме -использование элемента управления PictureBox. Мы уже неоднократно упоминали этот элемент, так что лишь вкратце рассмотрим некоторые его свойства. Прежде всего, соотношение размеров рисунка и элемента. В окне Properties имеется свойство Size Mode, которое включает в себя следующие составляющие:


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta