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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Передача знач. переменных, Ошибка в коде 
V
    Опции темы
Кирилл
Дата 12.12.2006, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Подскажите, плз(и желательно побыстрее, очень надо)
Объявляю переменную в модуле:
Код

Public lst_scale_value As Integer

Далее при МдиФорм_лоаде:
Код

lst_scale_value = 1

И в другой процедуре(Комбо1_КейПрессед) это значение = 0
Что не так?!!! smile 
PM MAIL   Вверх
Naghual
Дата 12.12.2006, 20:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Все должно быть так.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Кирилл
Дата 12.12.2006, 20:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Хороший ответ smile 
Корирую весь код
Код

Private Sub MDIForm_Load()
    kx = 20
    ky = 20
    lst_valueX = Form1.HScroll.Value
    lst_valueY = Form1.VScroll.Value
    lst_scale_value = 1
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        On Error GoTo 1
            For i = 0 To ind
                Form1.profil(i).X1 = Form1.profil(i).X1 / lst_scale_value * (Val(Combo1.Text) * 0.01)
                Form1.profil(i).X2 = Form1.profil(i).X2 / lst_scale_value * (Val(Combo1.Text) * 0.01)
                Form1.profil(i).Y1 = Form1.profil(i).Y1 / lst_scale_value * (Val(Combo1.Text) * 0.01)
                Form1.profil(i).Y2 = Form1.profil(i).Y2 / lst_scale_value * (Val(Combo1.Text) * 0.01)
            Next i
    End If
    lst_scale_value = Val(Combo1.Text) * 0.01
1:
End Sub

Надеюсь на вас. Сам уже не знаю что и думать smile .

Это сообщение отредактировал(а) Кирилл - 12.12.2006, 20:49
PM MAIL   Вверх
Naghual
Дата 12.12.2006, 20:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Ну так а что должно быть то?
Ты же задаеш ей новое значение в строке 6 и 19.

Это сообщение отредактировал(а) Naghual - 12.12.2006, 20:50


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Кирилл
Дата 12.12.2006, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Но уже на 13-й её значение = 0
PM MAIL   Вверх
Naghual
Дата 12.12.2006, 20:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Я повторил твой код - у меня оно равно 1.

Добавлено @ 21:01 
Строка 19 сработает в любом случае! Не только при Enter!
Проблема может быть только в этом.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Кирилл
Дата 12.12.2006, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Да, это моя ошибка  smile . Я ввожу Техт с клавы, а ето тоже KeyPress! поставил End If после 19-й строки - всё ОК. Спасибо что помог разобраться.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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