* При перепечатке материалов ссылка на www.SeoLiga.ru обязательна!
Создание формы
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. Сохраните и протестируйте проект. Форма будет вычислять стоимость заказа и добавлять результат в список, расположенный внизу формы.
