Ведь поидее форма должна стать овальной?

[xxxDemoNxxx]

Private Sub cmbCreateOval_Click()
Dim lRgn As Long
lRgn = CreateEllipticRgn(0, 0, Me.ScaleWidth / Screen.TwipsPerPixelX, _
Me.ScaleHeight / Screen.TwipsPerPixelY)
SetWindowRgn Me.hWnd, lRgn, True
DeleteObject lRgn
End Sub
Где ошибка?
CreateEllipticRgn у меня выделяется эта фигня!
Ведь поидее форма должна стать овальной?

[xxxDemoNxxx]

r = CreateEllipticRgn(10, 10, 100, 100)
или выделяет цыфру и пишет недопустимая внешняя процедура

[GSerg]

Для начала, учимся оформлять код тэгами code.
Затем познаём разницу между .width и .scalewidth.
После этого, узнаём о разнице между True и TRUE.
И наконец, читаем это для того, чтобы узнать, как следует обращаться с регионом, устанавливаемым форме.

[Naked]

у меня вообще никакой ошибки нет, код твой работает

[BV]

Автор, видимо, не знает, что API надо объявлять. Код верный.

Затем познаём разницу между .width и .scalewidth.
После этого, узнаём о разнице между True и TRUE.
И наконец, читаем это для того, чтобы узнать, как следует обращаться с регионом, устанавливаемым форме.

В чём тайный смысл этого ответа?

[GSerg]

BV
Если ты думаешь, что код верный, ты тоже не знаешь, как обращаться с регионами и ве нивишь разницы между width и scalewidth.

[BV]

Мда...

а) в чём ошибка этого кода?
б) какое отношение к вопросу имеет ScaleWidth/Height?
в) что ещё за True и TRUE?

[GSerg]

а) сходи по ссылке "это", представленной выше.
б) потому что делить scalewidth на .twipsperpixel - глупая ошибка, и будет работать только при scalemode = vbtwips.
в) API ожидает увидеть на -1, а 1. И хотя она всё равно будет сравнивать с нулём, всё же 1 правильнее.

2all: если неверный код у вас работает, это говорит не о том, что код верен, а о том, что вы запустили его в тех единственных условиях, когда он будет случайно работать.

[GSerg]

а) то, что прочитай секцию remarks.
б) 99% вероятности, что у пользователя винда xp! поэтому я не буду включать никакие библиотеки в свою прогу! И офис всегда установлен на машине! Проверять ничего не нужно! И всегда доступен WMI! И главное, папка windows всегда располагается на диске c: - кто придумал эту идиотскую GetWindowsDirectory, кому она нужна??
в) несущественно. Не влияет по факту. Но могло бы влиять. Я предпочитаю передавать то, что описано в документации, а не то, что, по результатам некоторых экспериментов, вызывает нужный эффект.


[ADD]
Выше был пост от BV, на который я отвечал. Он успел его удалить.

[Antonariy]

папка windows всегда располагается на диске c: - кто придумал эту идиотскую GetWindowsDirectory, кому она нужна??

А вот и не всегда. Диск С там, где находится загрузчик, а директория Windows может находится на любом диске.Так же как и файл подкачки.

[Хакер]

папка windows всегда располагается на диске c: - кто придумал эту идиотскую GetWindowsDirectory, кому она нужна??
.

У меня 9 дисков... и на каждом стоит какая-нибудь винда

[GSerg]

Antonariy
Ты очень не в теме.

[alibek]

Ну да, Windows можно установить на любой диск, не только C:

[Antonariy]

Antonariy
Ты очень не в теме.

Аргументы?
Кроме того директория может называться и не Windows. В 2000м и ранее она вообще-то была WINNT.

Хотя я наверно действительно не в теме. Раз пять перечитал топик, но так и не понял, с какой стати ты набросился на бедную GetSystemDirectory.

[GSerg]

Аргументы?

Ну, во-первых, ты не видел удалённого поста BV... хотя это, впрочем, и неважно - да просвятит тебя http://www.google.ru/search?hl=ru&q=define%3A%D0%B8%D1%80%D0%BE%D0%BD%D0%B8%D1%8F&lr=.

[Summer.05]

Посмотри и проанализируй примеры:

http://www.yandex.ru/yandsearch?text=VB%20произвольная%20форма

[Antonariy]

GSerg
При живом общении ирония обычно передается интонацией, при виртуальном - смайликами Ну уж никак не гуглом.
Иначе могут неправильно понять.

[GSerg]

Ну тогда внимательно перечитай весь пункт б)...

[tyomitch]

Antonariy, Хакер: я вот как-то смог понять не только, что имел в виду GSerg, но даже что имел в виду BV в своём удалённом посте.
Наверное, я телепат?

[Antonariy]

даже что имел в виду BV в своём удалённом посте

Ниасилил. Ниуспел

[Хакер]

tyomitch, нифига, ты Пользователь #1352

PS. Гхы а кто сказал что я не смог понять что он имел ввиду ?