Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по созданию формы / 8 сообщений из 8, страница 1 из 1
09.02.2007, 11:28
    #34318333
konstsu
konstsu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по созданию формы
Создаю форму типа: Dim ff as New form1
и так их создается несколько и каждую надо как-то распознать
была идея: Dim ff(10) as New form1, что бы как-то просматривать что делаеться в каждой форме, но это не выход так как их может быть и 15 и 20 и т.д.
Следуя из этого хотел создать клон form1, но имя формы сделать уникальным, а не form1.
Вот такой вопрос.
Надеюсь объяснил понятно:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2007, 12:38
    #34318722
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по созданию формы
Различай их по hwnd.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2007, 14:08
    #34319251
Nikz
Nikz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по созданию формы
код модуля
Код: 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:33
    #34319400
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по созданию формы
Существует встроенная коллекция Forms, зачем еще одну городить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2007, 17:22
    #34320152
konstsu
konstsu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по созданию формы
AntonariyРазличай их по hwnd.
Хорошо, это понятно.
Как их перебрать и сделать нужную активной?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2007, 00:16
    #34320794
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по созданию формы
For Each frm In Forms
Какая из них нужная - решать тебе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2007, 11:08
    #34322981
konstsu
konstsu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по созданию формы
Всем спасибо :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2007, 12:15
    #34323305
konstsu
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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по созданию формы / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 692ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2164536]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 406ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 203ms
total:  692ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]