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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> MDI-интерфейс, Передача обьектов между формами 
:(
    Опции темы
Кирилл
Дата 16.12.2006, 16:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Подскажите плз:
Наткнулся я на совершенно новую для себя вещь - как передавать обьект между формами.
На MDI-форме у меня ToolBar, а на ней кнопка, и эту самую кнопку мне надо перетащить на обычную форму. А она пропадает, как только вылазит с ToolBar.
Как сделать???
PM MAIL   Вверх
Naghual
Дата 16.12.2006, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 26
Всего: 49
Что значит "перетащить"? Что-то я не совсем понял вопрос.


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


Шустрый
*


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

Репутация: 1
Всего: 1
Цитата(Naghual @  16.12.2006,  16:45 Найти цитируемый пост)
Что значит "перетащить"?

То и значит:
Код

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Opora(Ind).Left = Opora(Ind).Left + X - Opora(Ind).Width / 2
Opora(Ind).Top = Opora(Ind).Top + Y - Opora(Ind).Height / 2
end sub


Добавлено @ 17:01 
Кстати, при реретаскивании изображение сильно глючит. Как можно от этого избавиться? Ставить кнопке Visible = False, и после всех действий Visible = True не помогает.
PM MAIL   Вверх
Тутанхамец
Дата 16.12.2006, 18:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 6
Что-то типа того, как при разработке рисуешь контролы на форме?

Методом Move (или лефтом-топом) ты кнопку можешь перемещать только в пределах родительского окна - то бишь формы. Возможно, вот это тебе поможет:
Код

Screen.MousePointer = 99
Set Screen.MouseIcon = LoadPicture("c:\CDROM02.ICO")

Нарисуй иконку, которая изображает кнопку, при начале перетаскивания установи MousePointer и MouseIcon. А когда юзер отпустит "кнопку" над формой, создай там настоящую кнопку (новую). Не уверен, что в бейсике можно без повторного создания переместить контрол с одной формы на другую. 


--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
Кирилл
Дата 16.12.2006, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Спб, всё работает.
Но я не помял двух вещей:
1) Что такое Screen?
2) Для чего нужен Set?
Если обьяснишь, буду очень благодарен.
PM MAIL   Вверх
Тутанхамец
Дата 17.12.2006, 10:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 6
Хорошо, если действительно работает. smile
Screen - это такой объект, который позволяет тебе добраться до характеристик экрана типа его длины, высоты, количества твипов в каждом пикселе, указателей мыши и т.п. Подробнее ищи в инете или хэлпе. 
Set нужно писать всегда, если используешь "=" с объектами. Чтоб VB было легче отличать объекты от, допустим, числовых переменных. 


--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
Кирилл
Дата 17.12.2006, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Опять проблема smile  smile  smile 
Создаю я на ToolBar обьект Image, задаю св-во Picture, а рисунок не видно!!! В чём дело и что делать???
Блин, сначала казалось всё просто...
PM MAIL   Вверх
Naghual
Дата 17.12.2006, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 26
Всего: 49
Один топик - один вопрос!


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


Шустрый
*


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

Репутация: 1
Всего: 1
 smile  smile  smile Блин, чё я мучаюсь - поставить новую форму вместо ToolBar и всё!!! Нетак красиво, но сойдёт.
Кстати, держать эталон на основной форме как-то неудобно smile  smile  smile , можно без этого?
Хотя всё работает и так.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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