Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола
• Нов потребител
• Забравена парола
Клубове
• Dir.bg
• Взаимопомощ
• Горещи теми
• Компютри и Интернет
• Контакти
• Култура и изкуство
• Мнения
• Наука
• Политика, Свят
• Спорт
• Техника
• Градове
• Религия и мистика
• Фен клубове
• Хоби, Развлечения
• Общества
• Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 03:00 30.05.24 
Клубове/ Компютри и Интернет / Електронни таблици Пълен преглед*
Информация за клуба
Тема Re: inputbox [re: intermaniq]
Автор zhitov (член)
Публикувано04.08.11 09:33  



Пробвай това: 

Private Sub textbox1_enter()

Dim strbr As Integer

strbr = InputBox(prompt:="Въведете число, 0 за изход")

Do While strbr

    TextBox1 = Val(TextBox1.Value) + strbr

    strbr = InputBox(prompt:="Въведете число")



Loop



End Sub

Само дето пре мен InputBox забива, ако натиснеш Cancel или не въведеш нищо. Трябва да въведеш 0 (нула), за да затвориш InputBox-а и да видиш резултата.

Всъщност, забива заради това Dim strbr As Integer

Редактирано от zhitov на 04.08.11 09:37.



Цялата тема
ТемаАвторПубликувано
* inputbox intermaniq   29.07.11 15:00
. * Re: inputbox Naki   31.07.11 17:44
. * Re: inputbox intermaniq   01.08.11 23:34
. * Re: inputbox zhitov   04.08.11 09:33
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2024 Dir.bg Всички права запазени.