Любые курсоры для формы — Функция LoadCursorFromFile

Функция LoadCursorFromFile создает курсор, основанный на данных, содержащихся в файле. Файл определен его именем или идентификатором курсора системы. Функция возвращает значение дескриптора недавно созданного курсора. Файлы, содержащие данные курсора могут быть или в формате курсора (.CUR) или "живого указателя" (.ANI).

Благодаря этой функции можно применять различные курсоры в своих программах.

Подробней об функции LoadCursorFromFile

Imports System.Runtime.InteropServices
Public Class Form1
    <DllImport("user32.dll", EntryPoint:="LoadCursorFromFileW", CharSet:=CharSet.Unicode)> _
    Public Shared Function LoadCursorFromFile(ByVal str As [String]) As IntPtr
    End Function
    Private cursorHandle As IntPtr = IntPtr.Zero
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim OFD As New OpenFileDialog
        With OFD
            .FileName = Nothing
            .Filter = "Cursors|*cur;*ani"
            If .ShowDialog = DialogResult.OK Then
                cursorHandle = LoadCursorFromFile(.FileName)
                Cursor = New Cursor(cursorHandle)
            End If
        End With
    End Sub
End Class

Загрузить проект (внутри курсоры)

Курсор 300x252 Любые курсоры для формы   Функция LoadCursorFromFile

  Метки: , ,
  Евгений
  Просмотров: 2 271
  Запись опубликована в 13:03

Есть что сказать? Тогда действуй!


:wink: :twisted: :roll: :oops: :mrgreen: :lol: :idea: :evil: :cry: :arrow: :?: :-| :-o :-P :-D :-? :) :( :!: 8-O 8)