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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TextBox+Module 
:(
    Опции темы
Leonidas
Дата 1.6.2004, 16:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Есть проект с 10-ю формами. На каждой форме 1 Textox и
одна кнопка. Если кнопка на форме нажимается ,в Texfboxe пишется "выбор".Видна всегда только одна форма.Как при помощи модуля сделать так, чтобы на каждой форме (при ее открытии) в ТеxtBox стояло :"Уже выбрано". Спасибо!

PM MAIL   Вверх
boevik
Дата 1.6.2004, 17:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

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



Как вызываются формы?
К примеру можно сделать так:
Код

Load Form1
Form1.Text1.Text = "Уже выбрано"
Form1.Show


Но вообще то, не очень понял вопроса.


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Leonidas
Дата 1.6.2004, 17:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Прошу простить за ошибку.
Видна например Форма2. Вы нажимаете на ней кнопку1 и затем производите какие-то действия с елементами на этой форме.В результате этих действий открывается например форма 6 и в ней в Textboxe(таком-же как есть на всех остальных формах) стоит "выбрано",что указывает на то,что кнопка1,на форме2 была нажата.
PM MAIL   Вверх
boevik
Дата 1.6.2004, 17:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

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



И в чем вопрос? Как это сделать?
Смотри мой предедущий ответ.


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Leonidas
Дата 1.6.2004, 17:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



А если кнопка не нажата а форма (напр.3) открывается и в ТВ стоит "выбрано" согласно твоему коду
PM MAIL   Вверх
boevik
Дата 1.6.2004, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

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



А откуда открылась форма?


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Leonidas
Дата 1.6.2004, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Из любой формы.Ведь на каждой есть такая кнопка.
PM MAIL   Вверх
Naghual
Дата 1.6.2004, 18:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



10 одинаковых форм!? А зачем?
Не прощи ли работать с одной формой на основании определенной логики?

а вот ответ на твой вопрос:
private sub Command1_Click()
Me.Hide
Form2.Text1.Text = "Selected"
Form2.Show
end sub

Это сообщение отредактировал(а) Naghual - 1.6.2004, 18:13


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


Шустрый
*


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

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



Нет!!!Если нажата кнопка на любой из форм, то на любой из форм при ее открытии в TEXTBOX должно стоять "выбрано".
PM MAIL   Вверх
Naghual
Дата 2.6.2004, 10:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



В Модуле:
Код
Public ButtonClicked as Boolean


В Формах:
Код
Private Sub Command1_Click()
   ButtonClicked = True
End Sub

Private Sub Form_Load()
   If ButtonClicked Then
       Me.Text1.Text = "уже выбрано"
   End If
End Sub


И почему НЕТ?


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


Шустрый
*


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

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



Чего-то не хватает.Пример не работает.Попробовал:

Private Sub Form_Load()
If ButtonClicked = True Then
Me.Text1.Text = "уже выбрано"
End If
End Sub

Все равно не работает
PM MAIL   Вверх
Naghual
Дата 2.6.2004, 11:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Почему не работает? Как это ты так пробовал?
Тебе вообще что нужно?
Добавлено @ 11:24
Есть вариант что не работает.
Но в том случае если формы у тебя предварительно были загружены в память и ты их показываеш/скрываеш.
Тогда перенеси код из Form_Load в Form_Activate.
Помогло?


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


Шустрый
*


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

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



Кнопка1 не реагирует на клик
Добавлено @ 11:27
Есть уже готовый проект, но как подключить ссылку на файл, чтобы можно было проверить раотает или нет.
PM MAIL   Вверх
Naghual
Дата 2.6.2004, 11:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



тоесть как это?
ну напиши ты подробно что происходит и что тебе нужно.


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


Шустрый
*


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

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



НЕ помогло.С Form_Activate
аналогичо
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




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


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

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