VBNet.Su - Visual Basic .NET. ASP .NET. Framework .NET.
Список форумов
Общий форум

Курсор

Быстрый переход:
Общий форум / Visual Basic .NET (Framework x.x) (ссылка)13 декабря 2008 / 19:01
Medved
Пользователь
ку 0.32422075+

вопросов: 1
советов: 0
ответов: 2
комментариев: 1


Если не в ту тему написал то я sorry
Не пойму, почему цветной курсор становится чёрным
У меня есть файл курсора Put.cur - курсор цветной, делаю так :
Код:
  1. frmMap.Cursor = New Cursor("E:\Program files\VisualMetroB\VisualMetroB\Cursorsput.cur")



и курсор почему то чёрный.Почему так ?
Комментарий #1 (ссылка)13 декабря 2008 / 21:26
5acredphoenix
Пользователь
ку 2.708994375+

вопросов: 1
советов: 1
ответов: 9
комментариев: 24


Видимо такая особенность у конструктора класса Cursor.
Юзайте API:

  1. Public Class Form1
  2.  
  3.    Private Declare Auto Function LoadCursorFromFile Lib "User32.dll" (ByVal lpFileName As String) As IntPtr
  4.  
  5.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.       Dim hCursor = LoadCursorFromFile("C:\Windows\Cursors\3dgarro.cur")
  7.       Me.Cursor = New Cursor(hCursor)
  8.    End Sub
  9.  
  10. End Class

..и было сказано:
Спасибо: Medved
Молодцом!: Алексей Немиро
Комментарий #2 (ссылка)13 декабря 2008 / 21:30
5acredphoenix
Пользователь
ку 2.708994375+

вопросов: 1
советов: 1
ответов: 9
комментариев: 24


Хммм... символ слэша из постов пропадает...
..и было сказано:
Спасибо: Medved
Комментарий #3 (ссылка)14 декабря 2008 / 00:37
Medved
Пользователь
ку 0.32422075+

вопросов: 1
советов: 0
ответов: 2
комментариев: 1


Спасибо, всё работатет !!!
..и было сказано:
Пиши еще!: 5acredphoenix, Алексей Немиро
Комментарий #4 (ссылка)14 декабря 2008 / 05:23
Ігор
Наш человек
ку 47.181654625+

вопросов: 8
советов: 9
ответов: 14
комментариев: 45


Курсоры вообще можно не трогать. А юзать Icon, например.

  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.     Button1.Cursor = New Cursor(Me.Icon.Handle)
  3. End Sub


Либо изображение с прозрачностью-полупрозрачностью.

Добавь в каталог проекта файл, например, "cursor.png".

Правой кнопкой мышки по значку проекта к примеру "WindowsApplication1" в "Solution Explorer" ... и "Add Existing Item" свой файл "cursor.png".

А в окне свойств "Properties Window" измени свойство "Build Action" этого файла с "Content" на "Embedded Resource".

При таком раскладе символ слеша уже не понадобится. smile

  1. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.    Dim bm As New Bitmap(Me.GetType(), "cursor.png")
  3.    Me.Cursor = New Cursor(Icon.FromHandle(bm.GetHicon).Handle)
  4. End Sub

..и было сказано:
Спасибо: VB .NET Programmer
Зачёт: 5acredphoenix
Молодцом!: Алексей Немиро
Страницы:    < назад    ·    вперед >
1
Зарегистрируйтесь, чтобы иметь возможность участвовать в жизни форума.