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:
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:
No se por que pero cuando lo llamo desde mis resources (que lo he añadido ahí previamente) no funciona.
Me sale este mensaje:
También he probado códigos como el siguiente que he encontrado en internet:
Pero en ese caso me da más errores:
----
Pues eso es todo, os estaría eternamente agradecido si pudiera disponer de vuestra ayuda
Un saludo
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
0
