Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TextBox+1,2,3 ...... 
:(
    Опции темы
Leonidas
Дата 13.5.2004, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 77
Регистрация: 5.5.2004

Репутация: нет
Всего: нет
Есть форма с 10-ю кнопками по типу "Калькулятора",т.е. 1, 2 3 ...Есть 7 Texfbox. В каждый можно при помощи этих кнопок
ввести только одну цифру, и тут же Fokus переходит ко второму Texfbox и т.д. Помогите с кодом.
PM MAIL   Вверх
Piphon
Дата 13.5.2004, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 107
Регистрация: 30.3.2004
Где: Екатеринбург

Репутация: нет
Всего: 2
Код
Private Sub cmdCall_Click(Index As Integer)
   Static R As Integer
   
   txtCall(R).Text = Index
   
   If R = 6 Then R = -1
   R = R + 1
   txtCall(R).SetFocus
End Sub


Только вот я понять не могу, нафига тебе такой простой код??? Это же 2+2! Если тут не какой загибулины нет. Уточни что тебе нужно. notify.gif
--------------------
Non Progredi Est Regredi...
PM MAIL ICQ   Вверх
Akina
Дата 13.5.2004, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Piphon
Код
If R = 6 Then R = -1
R = R + 1


Я плакаль!

Код
R=(R+1) MOD 7


Это сообщение отредактировал(а) Akina - 13.5.2004, 15:17


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Некто
Дата 13.5.2004, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 11.5.2004

Репутация: нет
Всего: нет
Мне кажется, что Piphon забыл пояснить что кнопки текстбоксы надо объединить в два массива. Для этого им надо дать одинаковые имена.
PM MAIL   Вверх
Piphon
Дата 13.5.2004, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 107
Регистрация: 30.3.2004
Где: Екатеринбург

Репутация: нет
Всего: 2
Цитата(Akina @ 13.5.2004, 14:39)
Piphon
Код
If R = 6 Then R = -1
R = R + 1


Я плакаль!

Код
R=(R+1) MOD 7

Спасибо за коррекцию! Оправдываться не буду. Я...

Два массива TextBox и Caption.
--------------------
Non Progredi Est Regredi...
PM MAIL ICQ   Вверх
Гость_Leonidas
Дата 13.5.2004, 15:28 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
При попытке запустить п-му получаю:

Compile Error:
Prozedure declaration does not much description of event or prozedure having the same name

Не понятно ?
  Вверх
cardinal
Дата 13.5.2004, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
А можно и так:
Код
Private Sub cmdCall_Click(Index As Integer)
Static R As Integer
txtCall(R).Text = Index
If R = txtCall.UBound Then R = txtCall.LBound Else R = R + 1
txtCall(R).SetFocus
End Sub

smile.gif

Leonidas, держи проект:

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  kalkul.zip


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Гость_Leonidas
Дата 13.5.2004, 16:54 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Не могу скачать файл. Очень надо. Пришлите на
[email protected]
  Вверх
Гость_Leonidas
Дата 13.5.2004, 16:55 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Обнаружена ошибка. Если Вам неизвестны причины ошибки, попробуйте обратиться к разделам помощи.

Обнаружена ошибка:

Эта функция запрещена для Гостей
  Вверх
Piphon
Дата 13.5.2004, 17:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 107
Регистрация: 30.3.2004
Где: Екатеринбург

Репутация: нет
Всего: 2
Наверху есть ссылка подключится(войти) или что то в этом роде.
--------------------
Non Progredi Est Regredi...
PM MAIL ICQ   Вверх
cardinal
Дата 13.5.2004, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Ну ты хакер! А залогиниться не можешь тоже?


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Leonidas
Дата 13.5.2004, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 77
Регистрация: 5.5.2004

Репутация: нет
Всего: нет

Это ссылка наверху страницы.
Привет, Leonidas ( Выход )
Я почему-то все время "Гость"
PM MAIL   Вверх
cardinal
Дата 13.5.2004, 18:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
У тебя cookies не записываются или что-то по типа того. Посмотри в Сервис - > Настройки обозревателя - > Параметры сколько у тебя место под всякое там отведено. В этих делах я не спец. Поспрашивай в соседних разделах на форуме. В php например. Они там сетями занимаются thumbs-up.gif


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Leonidas
Дата 14.5.2004, 10:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 77
Регистрация: 5.5.2004

Репутация: нет
Всего: нет
Всем огромное СПАСИБО !!! Вот решение:

Private Sub cmdCall_Click(Index As Integer)
Static R As Integer
txtCall®.Text = Index
If R = txtCall.UBound Then R = txtCall.LBound Else R = R + 1
txtCall®.SetFocus
End Sub
PM MAIL   Вверх
Black_Star
Дата 14.5.2004, 23:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4
Люблю такие приколы, особенно если встречаешь их повсюду biggrin.gif
PM ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0675 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.