| Вопрос: Это наверно API функция | Добавлено: 06.03.07 11:58 |
Автор вопроса:  KreAtoR
|
| Можно ли в ВБ сделать так чтоб два окна были прилеплены к друг другу. Наглядный пример это Винамп. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 06.03.07 12:45 |
| Самое просто через таймер, что-бы в нем была описана позиция второго окна по отношению к главному, например. | ||
|
Номер ответа: 2 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 06.03.07 12:57 |
|
Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long ' дескриптора активного окна Dim hactive As Long Private Sub Command1_Click() Form2.Show End Sub Private Sub Timer1_Timer() Dim ruka As Long ruka = Form1.hWnd hactive = GetActiveWindow() If ruka = hactive Then Form2.Top = Form1.Top Form2.Left = Form1.Left + Form1.Width Form2.Width = 4330 '************************************ Else On Error Resume Next If Form2.Visible = False Then Exit Sub Form1.Top = Form2.Top Form1.Left = Form2.Left - Form2.Width Form1.Width = 4330 End If End Sub создай две формы, на перврой расположи таймер, интервал 10(например) и еще 1 CommandButton/ Пробуй |
||
|
Номер ответа: 3 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #3 | Добавлено: 06.03.07 13:16 |
| Спасибо все работает. Примного благодарен | ||
|
Номер ответа: 4 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #4 | Добавлено: 06.03.07 13:37 |
| еще вопрос, а как указать чтоб окно было снизу | ||
|
Номер ответа: 5 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #5 | Добавлено: 06.03.07 13:47 |
|
А ты сам, что не пишешь?
Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long ' дескриптора активного окна Dim hactive As Long Private Sub Command1_Click() Form2.Show End Sub Private Sub Timer1_Timer() Dim ruka As Long ruka = Form1.hWnd hactive = GetActiveWindow() If ruka = hactive Then Form2.Top = Form1.Top + Form1.Height Form2.Left = Form1.Left '+ Form1.Width '************************************ Else On Error Resume Next If Form2.Visible = False Then Exit Sub Form1.Top = Form2.Top - Form1.Height Form1.Left = Form2.Left '- Form1.Width End If End Su |
||
|
Номер ответа: 6 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #6 | Добавлено: 06.03.07 13:54 |
ага сенкс. Я,я пишу тока молодой еще не опытный 
знаю тока как кнорку поставить да при ее помощи окно отрыть но вам спасибо уже многому набрался от вас
P.S. с кем поведешься от того и наберешься
|
||
Страница: 1 |