* При перепечатке материалов ссылка на 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

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

Создание абстрактных членов
Разрешения
Стандартная система типов CTS
Извлечение данных XML из баз данных SQL Server 2000
Карринг (currying)
Локализация формы
Отладка элементов управления
Модификация и обновление данных
Автоматизация разработки
Архитектура данных ADO.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 | Создание формы. Регион сайта: Москва и Санкт-Петербург