Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Форма ON-TOP Добавлено: 18.07.03 12:18  

Автор вопроса:  ZoomerSD | ICQ: 148640473 

вот есть такой код для того чтобы формак была поверх всех окон,:

Private Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal x%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal F%) As Integer
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const flags = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Private Sub Command1_Click()
res = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags) 'Форма on-top
End Sub
Private Sub Command2_Click()
res = SetWindowPos(Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, flags) 'Форма non-on-top
End Sub

когда я жму на Command1, у меня вылетает ошибка Owerflow, что делать?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 ZeroX



ICQ: 220401330 

Вопросов: 47
Ответов: 406
  Профиль | | #1 Добавлено: 18.07.03 12:23
Private Declare Function SetWindowPos Lib "user32" (ByVal h as Long, ByVal hb as Long, ByVal x as Long, ByVal Y as Long, ByVal cx as Long, ByVal cy as Long, ByVal F as Long) as Long

Ответить

Номер ответа: 2
Автор ответа:
 ZeroX



ICQ: 220401330 

Вопросов: 47
Ответов: 406
  Профиль | | #2 Добавлено: 18.07.03 18:43

Windows API

Visual Basic

Char

ByVal Byte

Handle

ByVal Long

INT

ByVal Long

UINT

ByVal Long

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам