Вопрос по созданию формы / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по созданию формы

8 сообщений из 8, страница 1 из 1

Вопрос по созданию формы

#34318333

konstsu

Гость

Создаю форму типа: Dim ff as New form1
и так их создается несколько и каждую надо как-то распознать
была идея: Dim ff(10) as New form1, что бы как-то просматривать что делаеться в каждой форме, но это не выход так как их может быть и 15 и 20 и т.д.
Следуя из этого хотел создать клон form1, но имя формы сделать уникальным, а не form1.
Вот такой вопрос.
Надеюсь объяснил понятно:)

...

Рейтинг:

0 / 0

09.02.2007, 11:28

| Ответить | Цитировать | Написать

Вопрос по созданию формы

#34318722

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Различай их по hwnd.

...

Рейтинг:

0 / 0

09.02.2007, 12:38

| Ответить | Цитировать | Написать

Вопрос по созданию формы

#34319251

Nikz

Участник

Откуда: Нижний Новгород

Сообщения: 278

Рейтинг: 0 / 0

код модуля

Код: plaintext

1.
2.

Option Explicit

Public cForm1 As New Collection

на форме две кнопки
код формы

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Option Explicit

Private Sub Command1_Click()
    Dim frmForm1 As New Form1
    frmForm1.Show
End Sub

Private Sub Command2_Click()
    Dim i As Integer
    For i =  1  To cForm1.Count
        cForm1.Item(i).Caption = i
    Next i
End Sub

Private Sub Form_Load()
    cForm1.Add Me, "F" & Me.hWnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
    cForm1.Remove "F" & Me.hWnd
End Sub

теперь в коллекции лежат все экземпляры формы Form1, делай с ними чего хочешь.
если нужно обратиться к какой то конкретной форме - обращайся к ней как элементу коллекции.

...

Рейтинг:

0 / 0

09.02.2007, 14:08

| Ответить | Цитировать | Написать

Вопрос по созданию формы

#34319400

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Существует встроенная коллекция Forms, зачем еще одну городить?

...

Рейтинг:

0 / 0

09.02.2007, 14:33

| Ответить | Цитировать | Написать

Вопрос по созданию формы

#34320152

konstsu

Гость

AntonariyРазличай их по hwnd.
Хорошо, это понятно.
Как их перебрать и сделать нужную активной?

...

Рейтинг:

0 / 0

09.02.2007, 17:22

| Ответить | Цитировать | Написать

Вопрос по созданию формы

#34320794

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

For Each frm In Forms
Какая из них нужная - решать тебе.

...

Рейтинг:

0 / 0

10.02.2007, 00:16

| Ответить | Цитировать | Написать

Вопрос по созданию формы

#34322981

konstsu

Гость

Всем спасибо :)

...

Рейтинг:

0 / 0

12.02.2007, 11:08

| Ответить | Цитировать | Написать

Вопрос по созданию формы

#34323305

konstsu

Гость

Еще вопрос, код ниже, как сделакть так чтобы при перемещении предмета изменился размер формы, вообщем то он меняется, но когда сильно мышь дернишь(т.е. растояние начальной и конечной координата больше половины размеров Picture1), Picture1_MouseMove перестает работать.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = X & " " & Y
End Sub

Private Sub Form_Resize()
Me.Width = Picture1.Left + Picture1.Width +  200 
Me.Height = Picture1.Top + Picture1.Height +  800 
Me.Refresh
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button =  1  Then
Picture1.Top = Picture1.Top + Y - Picture1.Height /  2 
Picture1.Left = Picture1.Left + X - Picture1.Width /  2 
Label1.Caption = X & " " & Y
Call Form_Resize
End If
Call Form_MouseMove(Button, Shift, Picture1.Left + X, Picture1.Top + Y)
End Sub

...

Рейтинг:

0 / 0

12.02.2007, 12:15

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по созданию формы

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=34318333&tid=2164536]:	0ms
get settings:	6ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	179ms
get topic data:	8ms
get forum data:	2ms
get page messages:	43ms
get tp. blocked users:	1ms
others:	218ms

total:	478ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы