Changer le curseur [Résolu]

cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 30 juin 2010 à 10:10 - Dernière réponse :  Utilisateur anonyme
- 4 juil. 2010 à 13:26
Bonjour à tous

Avec un curseur que j'ai téléchargé
j'ai écrit
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
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 4 juil. 2010 à 11:56
3
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

Merci cs_ShayW 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 83 internautes ce mois-ci

Commenter la réponse de cs_ShayW
NHenry 14229 Messages postés vendredi 14 mars 2003Date d'inscription 14 juillet 2018 Dernière intervention - 30 juin 2010 à 10:40
0
Merci
Bonjour,

Il attend un flux, ouvre le fichier avec la classe Io.StreamReader (voir l'aide pour l'ouverture).
C'est dans IO.Files.Open (ou similaire).

Commenter la réponse de NHenry
cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 30 juin 2010 à 14:05
0
Merci
Bonjour
je n'ai toujours pas réussi
  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

merci
Commenter la réponse de cs_ShayW
Utilisateur anonyme - 2 juil. 2010 à 19:20
0
Merci
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)


Bonne soirée.
Commenter la réponse de Utilisateur anonyme
cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 4 juil. 2010 à 11:26
0
Merci
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

quel array j'ai crée ?

Bonne journée
Commenter la réponse de cs_ShayW
Utilisateur anonyme - 4 juil. 2010 à 13:26
0
Merci
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.
Commenter la réponse de Utilisateur anonyme

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.