[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: LordOfDark, NightBringer  
Visual Basic
NightBringerДата: Понедельник, 11.02.2008, 21:38 | Сообщение # 1
Несущий Ночь
Группа: Активные
Сообщений: 193
Репутация: 4
Замечания: 0%
Статус: Offline
Администратор, можешь написать команды...
(самому не догадаться)


Tenebre? Non ci sono tenebre, la luce è addle
Nekrons κερδισετε, Nekrons συλλαβει τον κοσμο. Αυτη η αρχαια πινακιδα Nekronov, οι οποιοι εχουν μονο K'tany!
Jive δεν θελουν, αλλα ισως.
Αρχικη - ημισυ του συνολου

 
XSSДата: Пятница, 02.05.2008, 13:16 | Сообщение # 2 | Сообщение отредактировал XSS - Пятница, 02.05.2008, 17:08
Продвинутый
Группа: Пользователи
Сообщений: 47
Репутация: 0
Замечания: 0%
Статус: Offline
Калькулятор:
Создаём 3 текстовых поля Label в самом верху формы. Пишем в первом Label: "Ввод первого числа". Второе Label: "Ввод второго числа". 3 Label: "Результат". Потом чуть чуть ниже создаём 3 текстовых поля, которые по умолчанию имеют название Text.номер поля.
Ещё ниже на 5-6 клеток создаём 4 кнопки: + - / *
Пишем их код:
Для кнопки +:

Private Sub Command1_Click()
Text1.Text = Val(Text1.Text ) + Val(Text2.Text)
End Sub

Аналогичным образом пишем код остальных кнопок.
Потом создаём кнокпи "Очистить" и "Закрыть".
Код для кнопки "Закрыть":

Private Sub Command5_Click()
End
End Sub

Для кнопки "Очистить":

Private Sub Command6_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
End Sub

Ну и фсё. Потом Открываем и кликаем. Проверяем работоспособность. Радуемся :))))


Cross Site Scripting.
 
  • Страница 1 из 1
  • 1
Поиск:


Используются технологии uCoz