Ширина границы окна, как узнать сколько пикселей?

[Kevlar]

Подскажите свойство формы или к-либо другой способ. В мануалах этого не встретил. Полагаю нужно использовать библиотеки или ocx - файлы.

[Arcanoid]

Видать так:
bx1 = GetSystemMetrics(SM_CXBORDER)

или так:
bx2 = GetSystemMetrics(SM_CXEDGE)'мне кажется - это оно самое!

[Tarik]

Во: http://bbs.vbstreets.ru/viewtopic.php?p=59212#59212
Оно?

[Kevlar]

Видать так:
bx1 = GetSystemMetrics(SM_CXBORDER)

или так:
bx2 = GetSystemMetrics(SM_CXEDGE)'мне кажется - это оно самое!

Sub or function not defined при использовании GetSystemMetrics.
Если возможно, опиши подробнее как использовать эту функцию.

To Tarik. Спасибо. Оно.

[xolod]

Объявляешь на уровне модуля

Код: Выделить всё


Public Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Public Const SM_CXBORDER = 5


И используешь

[Kevlar]

Объявляешь на уровне модуля

Код: Выделить всё

Public Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Public Const SM_CXBORDER = 5


И используешь

В help'e MSDN я нашел эту функцию и список всех констант и их описание. Но не нашел сопоставления этих констант целым числам. Например, SM_CXFULLSCREEN и SM_CYFULLSCREEN равны, соответственно, 0 и 1 - возвращают разрешение экрана по горизонтали и вертикали. Без объявления этих саммых констант програма выдает variable not defined. Для чего тогда эти константы?

[GSerg]

Для того, чтобы функция знала, что ты от неё хочешь, для чего же ещё...

[Kevlar]

Для того, чтобы функция знала, что ты от неё хочешь, для чего же ещё...

Вспомним msgbox, для которого равносильны msgbox("Сообщение",vbOKOnly,"Заголовок")
и msgbox("Сообщение",0,"Заголовок"), т.е. vbOKOnly = 0 (условно). Заметьте мы не пишем Public Const vbOkOnly=0 в глобале.
Почему!? нельзя написать
bx2 = GetSystemMetrics(SM_CXEDGE), иначе VB выдает, что переменная-константа не опрделена. И где можно посмотреть/найти список соответствия этих констант их аналогичным целочисленным аргументам?
Надеюсь, изъясняюсь понятно, GSerg?

[GSerg]

Понятно ты изъясняешься, но я иногда люблю поприкалываться...

Public Const vbOkOnly=0 хоть пишем и не мы, но, тем не менее, это написано

Тебе сюда

[Arcanoid]

Код: Выделить всё

public const SM_CXBORDER as long = 5
public const SM_CYBORDER as long = 6

public const SM_CXEDGE as long = 45
public const SM_CYEDGE as long = 46


[Kevlar]

Всем по звезде. Нужные ссылки: нашел больше, чем искал.
Спасибо.