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

Ваш аккаунт

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

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

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

Можно ли в обычном Exelевском макросе использовать функции WinAPI

30K
20 марта 2009 года
asmel
50 / / 05.03.2009
Например при помощи функции MoveWindow переместить окно открытого "Калькулятор плюс". Если не сложно пример простенького кода. Заранее благодарен.
275
20 марта 2009 года
pashulka
985 / / 19.09.2004
Код:
Private Declare Function FindWindow _
        Lib "user32.dll" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos _
        Lib "user32.dll" ( _
        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
       
Private Sub Test()

    Dim ihWnd As Long
 
    ihWnd = FindWindow(vbNullString, "Калькулятор")
    'Укажите класс окна и/или его заголовок

    If ihWnd <> 0 Then
       SetWindowPos ihWnd, 0&, 25&, 10&, 0&, 0&, &H1 ' Or &H40
       'Укажите новое месторасположение окна ( X, Y )
    Else
       MsgBox "Окно не найдено", vbCritical, ""
    End If

End Sub
30K
23 марта 2009 года
asmel
50 / / 05.03.2009
PASHULKA спасибо! Кому интересно, по этой ссылке http://msoffice.nm.ru/faq/macros/winapi.htm#faq325 можно в этом плане много чего найти.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог