Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

SetFocus, Toolbox и формы

3.1K
26 января 2004 года
x_Coder
22 / / 26.01.2004
У меня вопрос на 1млн. долларов! Если сможете подскажите. Буду ОЧЕНЬ прзнателен.

Представте, что есть некая программка. И визуально она похожа на Photoshop. То есть, слева находится панелька (Toolbox window) с кнопочками для выполнения различных действий. Так вот в чем вопрос:
1. как узнать или определенная форма открыта (то есть можна ли активизировать кнопки Toolbox'а).
2. Как после нажатия на соответствующюю кнопку активизировать форму, если она уже была открыта (передать ей фокус, что ли.) Пробовал Setfocus, ничего не получается. Возможно я не так пробовал.
Заранее благодарен!
258
26 января 2004 года
SergeySV
1.5K / / 19.03.2003
Может тебе не надо нажимать на кнопку, а достаточно нажать комб. клавиш, в большинстве случаев это проще

На счет Focus.... ты нигде не показал своего и не сказал что хоть используешь (API, не API), нашел ли ты hWnd главного окна...
648
27 января 2004 года
Tiraspolsky
220 / / 23.07.2003
Цитата:
Originally posted by x_Coder
У меня вопрос на 1млн. долларов! Если сможете подскажите. Буду ОЧЕНЬ прзнателен.

1. как узнать или определенная форма открыта (то есть можна ли активизировать кнопки Toolbox'а).
2. Как после нажатия на соответствующюю кнопку активизировать форму, если она уже была открыта (передать ей фокус, что ли.)



По п.1

 
Код:
Dim frm as Form, hWndMyForm as long,FormIsOpen as boolean
FormIsOpen=false
for each frm in forms
    if frm.Caption="My Caption" then
       FormIsOpen=True
       hWndMyForm=frm.hwnd
    endif
next


По п.2
 
Код:
if FormIsOpen then
   setWindowPos hWndMyForm', и другие параметры
endif
258
27 января 2004 года
SergeySV
1.5K / / 19.03.2003
Боюсь Tiraspolsky у него задача немного по сложнее будет и твой код (в первой части) ему не подойдет, судя по всему ему надо добраться до чужой программы и там все понажимать... :)
575
27 января 2004 года
Birmingham
51 / / 20.09.2000
Цитата:
Originally posted by SergeySV
Боюсь Tiraspolsky у него задача немного по сложнее будет и твой код (в первой части) ему не подойдет, судя по всему ему надо добраться до чужой программы и там все понажимать... :)


Попрошу вопрошающего перспросить вопрос :D

3.1K
27 января 2004 года
x_Coder
22 / / 26.01.2004
Цитата:
Originally posted by SergeySV
Боюсь Tiraspolsky у него задача немного по сложнее будет и твой код (в первой части) ему не подойдет, судя по всему ему надо добраться до чужой программы и там все понажимать... :)


Да, нет!
Мне это нужно для себя (для своей программы).

3.1K
27 января 2004 года
x_Coder
22 / / 26.01.2004
Цитата:
Originally posted by Tiraspolsky


По п.1
 
Код:
Dim frm as Form, hWndMyForm as long,FormIsOpen as boolean
FormIsOpen=false
for each frm in forms
    if frm.Caption="My Caption" then
       FormIsOpen=True
       hWndMyForm=frm.hwnd
    endif
next

По п.2
 
Код:
if FormIsOpen then
   setWindowPos hWndMyForm', и другие параметры
endif



Вот мой код

Код:
Dim frm As Form
Dim hWndMyForm As Long
Dim FormIsOpen As Boolean

Private Sub cmdAddRecord_Click()
FormIsOpen = False
For Each frm In Forms
    If frm.Enter = "Ввід даних (СНГ)" Then
        FormIsOpen = True
        hWndMyForm = frm.hWnd
    End If
Next

If FormIsOpen Then
    setWindowPos hWndMyForm
End If

Data1.Recordset.AddNew
End Sub


Так вот, у меня вылазит ошибка компиляции. Мол "Неопределена Sub или Function". И указывает на
 
Код:
setWindowPos hWndMyForm


Насколько я понял, то hWndMyForm - это идентификатор окна. А как ним пользоваться.
575
28 января 2004 года
Birmingham
51 / / 20.09.2000
Читаю-читаю и никак не пойму суть проблемы. Если не трудно, выразите свой вопрос яснее... может быть и мысли появятся...
258
28 января 2004 года
SergeySV
1.5K / / 19.03.2003
Да уж, я тоже тогда не втыкаю в чем трабл добраться до своего же окна и до своих же кнопок.. :()
3.1K
28 января 2004 года
x_Coder
22 / / 26.01.2004
Цитата:
Originally posted by SergeySV
Да уж, я тоже тогда не втыкаю в чем трабл добраться до своего же окна и до своих же кнопок.. :()


Так, подскажите как добраться до определенного окна. Определить активное окно.
Структура программы:
Главное окно
Окно1 для ввода данных (Chiled)
Окно2 для ввода данных (Chiled)
Окно (Toolbox).

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

648
11 марта 2005 года
Tiraspolsky
220 / / 23.07.2003
Так вот, у меня вылазит ошибка компиляции. Мол "Неопределена Sub или Function". И указывает на
 
Код:
setWindowPos hWndMyForm


Насколько я понял, то hWndMyForm - это идентификатор окна. А как ним пользоваться. [/QUOTE]

setWindowPos - это функция API.
 
Код:
Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


· hWnd
Identifies the window.

· hWndInsertAfter
Identifies the window to precede the positioned window in the Z order. This parameter must be a window handle or one of the following values:
HWND_BOTTOM
Places the window at the bottom of the Z order. If the hWnd parameter identifies a topmost window, the window loses its topmost status and is placed at the bottom of all other windows.
HWND_NOTOPMOST
Places the window above all non-topmost windows (that is, behind all topmost windows). This flag has no effect if the window is already a non-topmost window.
HWND_TOP
Places the window at the top of the Z order.
HWND_TOPMOST
Places the window above all non-topmost windows. The window maintains its topmost position even when it is deactivated.

· X
Specifies the new position of the left side of the window.

· Y
Specifies the new position of the top of the window.

· cx
Specifies the new width of the window, in pixels.

· cy
Specifies the new height of the window, in pixels.

· uFlags
Specifies the window sizing and positioning flags. This parameter can be a combination of the following values:
SWP_DRAWFRAME
Draws a frame (defined in the window’s class description) around the window.
SWP_FRAMECHANGED
Sends a WM_NCCALCSIZE message to the window, even if the window’s size is not being changed. If this flag is not specified, WM_NCCALCSIZE is sent only when the window’s size is being changed.
SWP_HIDEWINDOW
Hides the window.
SWP_NOACTIVATE
Does not activate the window. If this flag is not set, the window is activated and moved to the top of either the topmost or non-topmost group (depending on the setting of the hWndInsertAfter parameter).
SWP_NOCOPYBITS
Discards the entire contents of the client area. If this flag is not specified, the valid contents of the client area are saved and copied back into the client area after the window is sized or repositioned.
SWP_NOMOVE
Retains the current position (ignores the X and Y parameters).
SWP_NOOWNERZORDER
Does not change the owner window’s position in the Z order.
SWP_NOREDRAW
Does not redraw changes. If this flag is set, no repainting of any kind occurs. This applies to the client area, the nonclient area (including the title bar and scroll bars), and any part of the parent window uncovered as a result of the window being moved. When this flag is set, the application must explicitly invalidate or redraw any parts of the window and parent window that need redrawing.
SWP_NOREPOSITION
Same as the SWP_NOOWNERZORDER flag.
SWP_NOSENDCHANGING
Prevents the window from receiving the WM_WINDOWPOSCHANGING message.
SWP_NOSIZE
Retains the current size (ignores the cx and cy parameters).
SWP_NOZORDER
Retains the current Z order (ignores the hWndInsertAfter parameter).
SWP_SHOWWINDOW
Displays the window.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог