Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > TextBox+1,2,3 ......

Автор: Leonidas 13.5.2004, 13:34

Есть форма с 10-ю кнопками по типу "Калькулятора",т.е. 1, 2 3 ...Есть 7 Texfbox. В каждый можно при помощи этих кнопок
ввести только одну цифру, и тут же Fokus переходит ко второму Texfbox и т.д. Помогите с кодом.

Автор: Piphon 13.5.2004, 14:30

Код

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! Если тут не какой загибулины нет. Уточни что тебе нужно.

Автор: Akina 13.5.2004, 14:39

Piphon

Код

If R = 6 Then R = -1
R = R + 1

Я плакаль!

Код

R=(R+1) MOD 7

Автор: Некто 13.5.2004, 14:44

Мне кажется, что Piphon забыл пояснить что кнопки текстбоксы надо объединить в два массива. Для этого им надо дать одинаковые имена.

Автор: Piphon 13.5.2004, 15:22

Цитата(Akina @ 13.5.2004, 14:39)

Piphon

Код

If R = 6 Then R = -1
R = R + 1

Я плакаль!

Код

R=(R+1) MOD 7

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

Два массива TextBox и Caption.

Автор: Гость_Leonidas 13.5.2004, 15:28

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

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

Не понятно ?

Автор: cardinal 13.5.2004, 16:16

А можно и так:

Код

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

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

Автор: Гость_Leonidas 13.5.2004, 16:54

Не могу скачать файл. Очень надо. Пришлите на
netleo@web.de

Автор: Гость_Leonidas 13.5.2004, 16:55

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

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

Эта функция запрещена для Гостей

Автор: Piphon 13.5.2004, 17:03

Наверху есть ссылка подключится(войти) или что то в этом роде.

Автор: cardinal 13.5.2004, 17:04

Ну ты хакер! А залогиниться не можешь тоже?

Автор: Leonidas 13.5.2004, 17:24

Это ссылка наверху страницы.
Привет, Leonidas ( Выход )
Я почему-то все время "Гость"

Автор: cardinal 13.5.2004, 18:11

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

Автор: Leonidas 14.5.2004, 10:51

Всем огромное СПАСИБО !!! Вот решение:

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

Автор: Black_Star 14.5.2004, 23:42

Люблю такие приколы, особенно если встречаешь их http://forum.sources.ru/index.php?showtopic=54038