Дек 22, 2013 - Уроки Visual Basic.NET Написать комментарий
Любые курсоры для формы — Функция LoadCursorFromFile
Функция LoadCursorFromFile создает курсор, основанный на данных, содержащихся в файле. Файл определен его именем или идентификатором курсора системы. Функция возвращает значение дескриптора недавно созданного курсора. Файлы, содержащие данные курсора могут быть или в формате курсора (.CUR) или "живого указателя" (.ANI).
Благодаря этой функции можно применять различные курсоры в своих программах.
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
Загрузить проект (внутри курсоры)
Похожие записи:
Метки: cursor, курсоры, Любые курсоры для формы
Евгений
Просмотров: 4 748
Запись опубликована в 13:03