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
SetFocus, Toolbox и формы
Представте, что есть некая программка. И визуально она похожа на Photoshop. То есть, слева находится панелька (Toolbox window) с кнопочками для выполнения различных действий. Так вот в чем вопрос:
1. как узнать или определенная форма открыта (то есть можна ли активизировать кнопки Toolbox'а).
2. Как после нажатия на соответствующюю кнопку активизировать форму, если она уже была открыта (передать ей фокус, что ли.) Пробовал Setfocus, ничего не получается. Возможно я не так пробовал.
Заранее благодарен!
На счет Focus.... ты нигде не показал своего и не сказал что хоть используешь (API, не API), нашел ли ты hWnd главного окна...
Цитата:
Originally posted by x_Coder
У меня вопрос на 1млн. долларов! Если сможете подскажите. Буду ОЧЕНЬ прзнателен.
1. как узнать или определенная форма открыта (то есть можна ли активизировать кнопки Toolbox'а).
2. Как после нажатия на соответствующюю кнопку активизировать форму, если она уже была открыта (передать ей фокус, что ли.)
У меня вопрос на 1млн. долларов! Если сможете подскажите. Буду ОЧЕНЬ прзнателен.
1. как узнать или определенная форма открыта (то есть можна ли активизировать кнопки Toolbox'а).
2. Как после нажатия на соответствующюю кнопку активизировать форму, если она уже была открыта (передать ей фокус, что ли.)
По п.1
Код:
По п.2
Код:
if FormIsOpen then
setWindowPos hWndMyForm', и другие параметры
endif
setWindowPos hWndMyForm', и другие параметры
endif
Боюсь Tiraspolsky у него задача немного по сложнее будет и твой код (в первой части) ему не подойдет, судя по всему ему надо добраться до чужой программы и там все понажимать... :)
Цитата:
Originally posted by SergeySV
Боюсь Tiraspolsky у него задача немного по сложнее будет и твой код (в первой части) ему не подойдет, судя по всему ему надо добраться до чужой программы и там все понажимать... :)
Боюсь Tiraspolsky у него задача немного по сложнее будет и твой код (в первой части) ему не подойдет, судя по всему ему надо добраться до чужой программы и там все понажимать... :)
Попрошу вопрошающего перспросить вопрос :D
Цитата:
Originally posted by SergeySV
Боюсь Tiraspolsky у него задача немного по сложнее будет и твой код (в первой части) ему не подойдет, судя по всему ему надо добраться до чужой программы и там все понажимать... :)
Боюсь Tiraspolsky у него задача немного по сложнее будет и твой код (в первой части) ему не подойдет, судя по всему ему надо добраться до чужой программы и там все понажимать... :)
Да, нет!
Мне это нужно для себя (для своей программы).
Цитата:
Originally posted by Tiraspolsky
По п.1
По п.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
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
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
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 - это идентификатор окна. А как ним пользоваться.
Читаю-читаю и никак не пойму суть проблемы. Если не трудно, выразите свой вопрос яснее... может быть и мысли появятся...
Да уж, я тоже тогда не втыкаю в чем трабл добраться до своего же окна и до своих же кнопок.. :()
Цитата:
Originally posted by SergeySV
Да уж, я тоже тогда не втыкаю в чем трабл добраться до своего же окна и до своих же кнопок.. :()
Да уж, я тоже тогда не втыкаю в чем трабл добраться до своего же окна и до своих же кнопок.. :()
Так, подскажите как добраться до определенного окна. Определить активное окно.
Структура программы:
Главное окно
Окно1 для ввода данных (Chiled)
Окно2 для ввода данных (Chiled)
Окно (Toolbox).
Как при нажатии на конкретную кнопку тулбокса определить ативную форму, и выполнить те или иные действия?
Код:
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.