Курсор из ресурсов

[Mleha]

НЕ могу применить курсор, который находится в ресурсах, помогите плз.

[GSerg]

Забавно.

Во-первых, SetCursor вызывается в ответ на WM_SETCURSOR. Очень много раз.
Во-вторых, забавно выглядит попытка загрузить ресурс при hInstance=0.
В-третьих, переАПИзм вреден.

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

  Set Me.MouseIcon = LoadResPicture("HAND_CUR", vbResCursor)
  Me.MousePointer = vbCustom

И в-четвёртых, в качестве ответа на немое "А почему он чёрный?": http://support.microsoft.com/kb/q267849

[Mleha]

А как через API задать 32 битный курсор(желательно из ресурсов)?

[GSerg]

Почему через API?

[Mleha]

Главное чтоб он был 32 битный, а API для этого в VB, наверное, единственный путь. ИМХО

[GSerg]

Mleha, ты п. 4 из моего ответа просто так пропустил али религия заставила?..

[Mleha]

Я его прочитал, но мало что понял. Через MouseIcon и MousePointer не добьешся красивого курсора, а 256 цветов мне надо, поэтому придется API юзать!

7. Add three more color cursors in this same way. Note that these are numbered 101 - 104 in the editor

Добавить курсоры с более богатой палитрой любыми путями! ГЫ
Еще дело в том что у меня нет прог которые бы понизили палитру в моем 32 битном курсоре, влятого с Висты, чтоб он остался курсором, а не стал иконкой.

[Mleha]

Пока что получилось "Читерским способом" с загрузкой из файла. Работает для 32-битных курсоров!

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

Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetSystemCursor Lib "user32.dll" (ByVal hcur As Long, ByVal id As Long) As Long
Private Const OCR_UP As Long = 32516

Private Sub Command1_Click()
    SetSystemCursor LoadCursorFromFile(App.Path & "\104.cur"), OCR_UP
End Sub


[GSerg]

7. Add three more color cursors in this same way.

Добавить курсоры с более богатой палитрой любыми путями! ГЫ

Если ты думаешь, что отквоченное переводится именно так, то тогда действительно ГЫ...

Ладно, похоже, умение читать текст отсутствует изначально. Хорошо, приведём конкретную цитату.

Visual Basic does not provide any support for color cursors and, therefore, a color cursor cannot be used while running in the Visual Basic IDE. However, a color cursor can be used in compiled Visual Basic applications.

Хотя, наверное, во избежание дальнейших интерпретаций, нужно выделить главное слово.

Visual Basic does not provide any support for color cursors and, therefore, a color cursor cannot be used while running in the Visual Basic IDE. However, a color cursor can be used in compiled Visual Basic applications.

Да, так, наверное, лучше...


ЗЫ. Уже даже засомневавшись в правильности сказанного выше, таки открыл прилагаемый ресурс в ResHacker'е, показал прилагаемую форму, поместил над ней мышь так, чтобы курсор мыши был рядом с картинкой ресурса в ResHacker'е... долго искал отличия, не нашёл.

[maxV]

Главное чтоб он был 32 битный, а API для этого в VB, наверное, единственный путь. ИМХО

А как умудрились в файл ресурсов "положить" 32 битный курсор?
По моему для файла ресурсов 256 цветов - предел.

[Mleha]

А как умудрились в файл ресурсов "положить" 32 битный курсор?
По моему для файла ресурсов 256 цветов - предел.

[Mleha]

Visual Basic does not provide any support for color cursors and, therefore, a color cursor cannot be used while running in the Visual Basic IDE. However, a color cursor can be used in compiled Visual Basic applications.

И действительно в скомпилированном екзешнике все раборает!
Даже без API. ГЫ

[Бяка]

Даже без API. ГЫ

ГЫ, 32 битный курсор мона и самому создать при помощи API и без ресфайлов и внешних *.cur-в
курсор создается из любого рисунка...

[yaklit]

а что крестик и квадратик это такие высокопочетные курсоры что идут в отдельных кнопках .

[Бяка]

блин, то просто пример

[keks-n]

yaklit
Они совтварно создаются.