VBNet - Форум - На форме 3 поля, помогите отредактировать код!

Вопрос: На форме 3 поля, помогите отредактировать код! Добавлено: 21.09.10 21:55

Автор вопроса: alexandermc

Option Compare Database
Dim x1 As Integer
Dim x2 As Integer
Dim x3 As Integer

Private Sub a1_KeyPress(KeyAscii As Integer)
x1 = a1.Text
End Sub
Private Sub b1_KeyPress(KeyAscii As Integer)
x2 = b1.Text
End Sub
Private Sub rez_Click()
x3 = x1 * x2
rez.Text = x3
End Sub

Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: alexandermc Вопросов: 8 Ответов: 22	Профиль \| \| #1	Добавлено: 21.09.10 21:56
	в поле "rez" - надо вывести результат! Ответить

Номер ответа: 2 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #2	Добавлено: 21.09.10 23:08
	выводи, а что не так?.. Ответить

Номер ответа: 3 Автор ответа: Eugy Вопросов: 0 Ответов: 73	Профиль \| \| #3	Добавлено: 21.09.10 23:26
	Скорее всего он не может обойти runtime error 2185 в ACCESS Я сто лет не открывал его редактор форм, и минут десять пребывал в ступоре. Короче,alexandermc Private Sub a1_Change() If Not (IsNull(b1)) Then rez = Val(a1.Text) * Val(b1) Else rez = 0 End If End Sub Private Sub b1_Change() If Not (IsNull(a1)) Then rez = Val(a1) * Val(b1.Text) Else rez = 0 End If End Sub Ответить

Номер ответа: 4 Автор ответа: alexandermc Вопросов: 8 Ответов: 22	Профиль \| \| #4	Добавлено: 22.09.10 00:48
	Eugy Спасибо дружище, очень выручил! Ответить

Номер ответа: 5 Автор ответа: ANALYST Вопросов: 3 Ответов: 12	Профиль \| \| #5	Добавлено: 24.09.10 19:05
	Option Explicit Dim x1 As Integer Dim x2 As Integer Dim x3 As Integer Private Sub a1_Change() If Len(a1.Text) > 0 Then x1 = a1.Text: rez_Click End Sub Private Sub b1_Change() If Len(b1.Text) > 0 Then x2 = b1.Text: rez_Click End Sub Private Sub rez_Click() x3 = x1 * x2 rez.Value = x3 End Sub Ответить

Номер ответа: 6 Автор ответа: alexandermc Вопросов: 8 Ответов: 22	Профиль \| \| #6	Добавлено: 24.09.10 21:12
	Спасибо что откликнулись! Ответить

Страница: 1 |