Найти в Дзене
Шифратор

Свойства vb.net

Сейчас мы сделаем программку, в которой, при нажатии на кнопку, свойства текстового поля будут менятся. На форме размести текстовое поле(TextBox) и 3 кнопки(Button). У кнопок измени свойства Text: Button1 - свойство Text измени на 'Цвет' Button2 - свойство Text измени на 'Фон' Button1 - свойство Text измени на 'Текст вот код Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' При нажатии на кнопку 'Цвет': TextBox1.ForeColor = Color.Red ' Меняем цвет текста на красный End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' При нажатии на кнопку 'Фон': TextBox1.BackColor = Color.Black ' Меняеи цвет фона на черный': End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ' При нажатии на кнопку 'Текст': TextBox1.Text = "Изменение свойств" ' Меняем текст в текст. поле. End Sub

Сейчас мы сделаем программку, в которой, при нажатии на кнопку, свойства текстового поля будут менятся. На форме размести текстовое поле(TextBox) и 3 кнопки(Button). У кнопок измени свойства Text:

Button1 - свойство Text измени на 'Цвет'

Button2 - свойство Text измени на 'Фон'

Button1 - свойство Text измени на 'Текст

вот код

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' При нажатии на кнопку 'Цвет':

TextBox1.ForeColor = Color.Red ' Меняем цвет текста на красный

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' При нажатии на кнопку 'Фон':

TextBox1.BackColor = Color.Black ' Меняеи цвет фона на черный':

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ' При нажатии на кнопку 'Текст':

TextBox1.Text = "Изменение свойств" ' Меняем текст в текст. поле.

End Sub