Dim mycursor As Cursor
mycursor = New Cursor(Application.StartupPath & "\Phlame_Arrow_Normal.cur")
me.Cursor = mycursor
je reçois l'erreur
Image format is not valid. The image file may be corrupted. Parameter name: stream
j'ai essayé avec un autre curseur j'ai la meme erreur
Merci
Enfin j'ai réussi
Private Declare Unicode Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileW" (ByVal filename As String) As IntPtr
Dim hcur As IntPtr
hcur = LoadCursorFromFile(Application.StartupPath & "\blabla.ani")
me.Cursor = New Cursor(hcur)
me ou autre
Dim cursor As Cursor
Dim ms As New System.IO.StreamReader(Application.StartupPath & "\Phlame_Arrow_Normal.cur")
boardgame.Cursor = New Cursor(ms)
d'ailleurs boardgame.Cursor = New Cursor(sr)
est souligné avec system.io.stream can't convert
to system.io.streamreader
alors comment ouvrir le fichier avec system.io.stream
Bonsoir,
N'importe quelle image (bmp,png etc...) peut servir d'icône.
La classe Bitmap permet d'obtenir le handle d'une image.
Voici un exemple :
'chargement de l'image
Dim img As Bitmap = CType(Bitmap.FromFile(Application.StartupPath & "\blabla.png"), Bitmap)
'on rend transparent le blanc par exemple
img.MakeTransparent(Color.White)
'changement de l'image du curseur avec le handle du bitmap
Me.Cursor = New Cursor(img.GetHicon)
Bonjour
Cela ne marche toujours pas
Dim img As Bitmap = CType(Bitmap.FromFile(Application.StartupPath & "\banana.ani"), Bitmap)
Je reçois le runtime error suivant
out of memory
If you are creating an array make sure the size is correct
Bonjour,
Il n'était pas précisé qu'il s'agissait d'un curseur animé. Je parlais d'un curseur fixe utilisant n'importe quelle image.
L'essentiel c'est que tu ai trouvé une solution pour ton projet.
Bonne soirée.
a aidé 87 internautes ce mois-ci