ПОНЯТНО О Visual Basic NET


Усложняем проект


Закройте проект ошибок. Скопируйте папку проекта «Красим форму» тут же, рядышком с собой внутри папки Visual Studio Projects. Переименуйте как-нибудь скопированную папку, например, «Красим форму 1». Над копией будем продолжать работу. Откройте проект из этой папки. Это можно сделать в Windows двойным щелчком по файлу проекта или решения. Обратите внимание, что от изменения названия папки имя проекта не изменилось.

Усложним проект. Пусть при щелчке по кнопке Button1 происходит что-нибудь еще, кроме изменения ширины полосы прокрутки, а именно три вещи:

  • В текстовом поле TextBox1 появляется текст  Ширина полосы = 100 
  • Исчезает второй элемент переключателя (RadioButton2).
  • Вторая кнопка (Button2) окрашивается в желтый цвет.

Для этого достаточно в процедуру добавить 3 оператора. Начнем по порядку.

Меняем текст в TextBox1. У текстового поля TextBox1 есть свойство Text, значением которого является текст в этом поле. Поэтому добавим в процедуру оператор

TextBox1.Text  =  "Ширина полосы = 100"

Запомните: В окне кода значение свойства Text для текстового поля и других объектов должно браться в двойные кавычки.

Привыкайте к похожим обозначениям в VB разных вещей (у нас это TextBox1 и Text) и будьте внимательны. Наш оператор можно перевести так: Содержимое текстового поля TextBox1 сделать таким –  Ширина полосы = 100.

Не думайте, что смысл слов  Ширина полосы = 100 что-то значит для компьютера. Во-первых, он по-русски не понимает, а во-вторых, что бы ни было написано внутри двойных кавычек, он в это не вдумывается и как приказ не воспринимает, а просто воспроизводит в текстовом поле. Чтобы проверить, можете написать внутри кавычек любую абракадабру и запустить проект.

Вот что у нас должно получиться:

Public Class Form1

    Inherits System.Windows.Forms.Form

Windows Form Designer generated code

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        HScrollBar1.Width = 100

        TextBox1.Text = "Ширина полосы = 100"




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