Visual Basic.NET - Puntero del ratón (cursor)

   
Vista:

Puntero del ratón (cursor)

Publicado por jaimehrubiks (1 intervención) el 24/05/2011 07:43:58
Buenos días

Estoy intentando añadir un cursor personalizado a mi aplicación en VB con VS 2008 y he mirado en google en miles de resultados en castellano y en ingles y no soy capaz de conseguirlo del todo, por eso me preguntaba si alguno de vosotros me podía ayudar.

Mirad el siguiente código:
1
2
3
4
5
6
7
Private Sub all_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
 
 
            Cursor = New Cursor("C:\Users\Administrador\Desktop......\Launcher\Resources\Untitled7.ico")
 
 
        End Sub




Esa es la única manera que lo hago funcionar, donde Untitled7.ico es el cursor que quiero poner. Sin embargo, al ser una direccion de mi ordenador no funciona en el resto y de la siguiente forma, el código no funciona:



1
Cursor = New Cursor(My.Resources.Untitled7)




No se por que pero cuando lo llamo desde mis resources (que lo he añadido ahí previamente) no funciona.

Me sale este mensaje:

1
2
3
4
Error	1	Error de resolución de sobrecarga porque ninguna de las funciones 'New' a las que se tiene acceso se puede llamar con estos argumentos:
    'Public Sub New(stream As System.IO.Stream)': Un valor de tipo 'System.Drawing.Icon' no se puede convertir en 'System.IO.Stream'.
    'Public Sub New(fileName As String)': Un valor de tipo 'System.Drawing.Icon' no se puede convertir en 'String'.
    'Public Sub New(handle As System.IntPtr)': Un valor de tipo 'System.Drawing.Icon' no se puede convertir en 'System.IntPtr'.


También he probado códigos como el siguiente que he encontrado en internet:

1
2
Dim ms As New System.IO.MemoryStream(My.Resources.Untitled7)
            Cursor = New Cursor(ms)



Pero en ese caso me da más errores:


1
2
3
Error	1	Error de resolución de sobrecarga porque ninguna de las funciones 'New' a las que se tiene acceso se puede llamar con estos argumentos:
    'Public Sub New(buffer() As Byte)': Un valor de tipo 'System.Drawing.Icon' no se puede convertir en '1-matriz dimensional de Byte'.
    'Public Sub New(capacity As Integer)': Un valor de tipo 'System.Drawing.Icon' no se puede convertir en 'Integer'.



----

Pues eso es todo, os estaría eternamente agradecido si pudiera disponer de vuestra ayuda

Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de FRANCISCO

Puntero del ratón (cursor)

Publicado por FRANCISCO (162 intervenciones) el 25/05/2011 13:55:06
Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter

Me.Cursor = New Cursor("D:\CURSOR.CUR")
End Sub

pon el cursor en la carpeta de la aplicacion se ve que si lo tienes en resources no funciona o yo no se hacerlo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar