|
Новости сайта
| 09.03.2001 |
| Добавлено ещё анекдотов.
Новый исходный код программы Process Menu, которая показывает все загруженные процессы в памяти, как системное меню Windows NT. |
Что такое сообщения Windows
Почти все события в Windows порождаются
сообщениями. Они посылаются с помощью API функции
SendMessage.
Например при щелчке на кнопку, посылается сообщение
окну с этой кнопкой о том, что был произведён щелчок, и программа,
приняв это сообщение, начинает выполнять связанный с ним код
программы.
С помощью таких сообщений Вы можете управлять другими
программами, как если бы эти события (действия) производил
пользователь. Но есть такие сообщения, с помощью которых Вы
можете, например, менять заголовок окна (полоса с текстом, за
которую пользователь перетаскивает окно мышью), добавлять записи
в комбинированный список (ComboBox) и т.д.
Как подключать API функции
В этой статье мы рассмотрим синтаксис подключения API функций.
Для подключения API используется ключевое слово
Declare, после которого
идёт Function или
Sub, в зависимости от типа
подключаемой процедуры. Затем идёт имя процедуры. После этого пишется
ключевое слво Lib и в
кавычках файл библиотеки, в которой и хранится подключаемая процедура.
За всем этим ставятся скобки и перечисляются передаваемые параметры и
тип возвращаемого значения (если это функция).
Пример подключения API функции для проигрывания звуков:
Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Примечание: если не указать полный путь к файлу библиотеки, то
программа будет искать его в системном каталоге Windows, в каталоге Windows и
в корневом каталоге.
VB: API функции
Функция CreateRoundRectRgn
| Описание: | CreateRoundRectRgn создает округленную прямоугольную область и обеспечивает дескриптор к нему. Регион имеет форму подобно прямоугольнику с округленными углами. Регион определен координатой не-округленного прямоугольника, сопровождаемого шириной и высотой округленных углов. |
| Объявление: | Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long |
| Параметры: | X1
Координата x левого верхнего угла прямоугольника
Y1
Координата y левого верхнего угла прямоугольника
X2
Координата x нижнего правого угла прямоугольника
Y2
Координата y нижнего правого угла прямоугольника
X3
Ширина части каждого угла к кругу
Y3
Высота части каждого угла к кругу
| | Возвращаемое значение: | Функция возвращает дескриптор в успешном случае, или 0 в случае ошибки. |
Функция CreateEllipticRgnIndirect
| Описание: | Создает область в виде эллипса. Эллипс определяется ограничительным прямоугольником. Ограничительный прямоугольник - самый маленький возможный прямоугольник, который может соответствовать эллипсу. |
| Объявление: | Declare Function CreateEllipticRgnIndirect Lib "gdi32" (lpRect As RECT) As Long
Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type |
| Параметры: | lpRect
Ограничительный прямоугольник для эллипса
| | Возвращаемое значение: | Функция возвращает дескриптор созданной области в успешном случае или 0 в случае ошибки. |
Ссылки
Program Studio
Всё для программиста.
VB-Top
Ещё один, сравнительно молодой, сайт, посвященный великому Visual Basic'у.
CIT Forum
Всё о программировании на самых распространённых языках.
Присылайте свои ссылки с описанием на e-mail, и они
будут опубликованы в этом разделе.
|
