* При перепечатке материалов ссылка на www.SeoLiga.ru обязательна! RSS



Создание формы
8 февраля 2009

*• Как создать форму
1. Создайте новый проект Windows Forms. Поместите на форму элементы управле-
ния, перечисленные в таблице 8-4, и установите для них свойства, указанные в
этой таблице.
Таблица 8-4. Элементы управления и их свойства
Элемент управления
Label 1
Label2
Label3
Text Box 1
TextBox2
TextBox3
Button 1
Свойство
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
ReadOnly
Name
Text
Значение
IblQuantity
Quantity
Ibl Price
Price
IblTotal
Total
txtQuantity
(пустая строка)
txtPrice
(empty)
txtTotal
(пустая строка)
True
btnAdd
Add Order
Button2
Button3
Button4
UstBoxl
Name
Text
Name
Text
Name
Text
Name
Значение
btnClear
Clear Order
btnClearAll
Clear All Orders
btnPrint
Print
IstOrders
2. Напишите обработчики для событий KeyPress элементов управления txtPrice и
txtQuantity, проверяющие нажатие цифровых клавиш. Вот пример подобного об-
работчика для поля txtPrice:
Visual Basic .NET
Private Sub txtPrice_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles txtPrice.Keypress
If Char.IsNumber(e.KeyChar) = False Then
e.Handled = True
End If
End Sub
Visual C#
private void txtPrice_KeyPress{object sender,
System.Windows.Forms.KeyPressEventArgs e)
{
if (char.IsNumber(e.KeyChar) =- false)
e.Handled = true;
3. Напишите обработчик события Click для кнопки btnAdd. Он должен умножать
значения полей txtQuantity и txtPrice и отображать результат как денежную сумму
в текстовом поле ixtTotal. Кроме того, он должен добавлять строку, содержащую
количество и цену товара, а также итоговую сумму, в список IstOrder. Вот при-
мерный код этого обработчика:
Visual Basic .NET
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnAdd.Click
Dim Total As Single
Total - Single.ParseftxtQuantity.Text) -
Single.Parse(txtPrice.Text)
txtTotal.Text = Forrnat(Total, "Currency")
Dim TotalString As String
TotalString - txtQuantity.Text & " x " & txtPrice.Text & " = "
& txtTotal.Text()
IstOrders.Items.Add(TotalString)
End Sub
Visual C#
private void btnAdd_Click(object sender, System.EventArgs e)
{
float Total;
Total - float.Parse(txtOuantity.Text) *
float.Parse(txtPrice.Text);
txtTotal.Text = Total.ToStringC'C");
string TotalString;
TotalString - txtQuantity.Text + " x " + txtPrice.Text + " = " +
txtTotal.TextO;
IstOrders.Items.Add(TotalString);
}
4. Создайте обработчики для событий btnClearw btnClearAll. Первый сбрасывает
значения только текстовых полей, а второй — сбрасывает значения и текстовых
полей, и элементов списка.
Visual Basic .NET
Private Sub btnClear_CHck(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles btnClear.Click
txtQuantity.Text = "0"
txtPrjce.Text = "0"
txtTotal.Text = Format(0, "Currency")
End Sub
Private Sub btnClearAll_Click(ByVal sender As System.Object.
ByVal e As System.EventArgs) Handles btnClearAll.Click
txtQuantity.Text = "0"
txtPrice.Text - "0"
txtTotal.Text = Format(0, "Currency")
IstOrders. Items.ClearQ
End Sub
Visual C#
private void btnClear_Click(object sender, System.EventArgs e)
{
txtQuantity.Text = "0";
txtPrice.Text = "0";
txtTotal.Text = O.ToStringC'C");
}
private void btnClearAll_Click(object sender, System.EventArgs e)
{
txtQuantity.Text = "0";
txtPrice.Text = "0";
txtTotal.Text = O.ToStringC'C'1);
IstOrders.Items.Clear();
}
5. Сохраните и протестируйте проект. Форма будет вычислять стоимость заказа и
добавлять результат в список, расположенный внизу формы.

Теги: .NET

Статьи по теме:

Массивы
Формы, элементы управления и меню
Специальные возможности и элементы управления Windows Forms
Свойства, доступные только для чтения или только для записи
Запись трассировочных данных в журнал событий
Реализация полиморфизма через интерфейсы
Общие (статические) члены
Распространение приложений через Интернет
Разрешения
Создание проекта установочной программы
Свойства Font, Cursor и BackGroundlmage
Создание класса строго типизированного набора на основе класса CollectionBase
Добавление элементов управления на панель Toolbox
Решения .NET
Извлечение из сопутствующих сборок ресурсов, специфичных для культуры
| .NET | Pavel |
 


Пн Вт Ср Чт Пт Сб Вс
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31


     



Rambler's Top100

Данный сайт или домен продается ICQ: 403-353-727

© 2009 Seoliga.ru | .NET | Создание формы. Регион сайта: Москва и Санкт-Петербург