Changer le curseur [Résolu]

Question

Posez votre question Signaler

Changer le curseur [Résolu]

cs_ShayW

Messages postés: 3247
Date d'inscription: jeudi 26 novembre 2009
Dernière intervention: 26 décembre 2018

- 30 juin 2010 à 10:10 - Dernière réponse : Utilisateur anonyme - 4 juil. 2010 à 13:26

VB.NET Posez votre question Signaler

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

A voir également:

Votre réponse

Répondre au sujet

6 réponses

Signaler Commenter la réponse de NHenry

NHenry

Messages postés: 14394
Date d'inscription: vendredi 14 mars 2003
Dernière intervention: 17 mars 2019

154 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).

Signaler Commenter la réponse de cs_ShayW

cs_ShayW

Messages postés: 3247
Date d'inscription: jeudi 26 novembre 2009
Dernière intervention: 26 décembre 2018

51 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

Signaler Commenter la réponse de Utilisateur anonyme

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.

Signaler Commenter la réponse de cs_ShayW

cs_ShayW

Messages postés: 3247
Date d'inscription: jeudi 26 novembre 2009
Dernière intervention: 26 décembre 2018

51 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

Signaler Commenter la réponse de Utilisateur anonyme

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.

Votre réponse

Répondre au sujet

Posez votre question

cs_ShayW · Accepted Answer · 2010-07-04T11:56:12+0200

Meilleure réponse

Signaler Commenter la réponse de cs_ShayW

cs_ShayW

Messages postés: 3247
Date d'inscription: jeudi 26 novembre 2009
Dernière intervention: 26 décembre 2018

51 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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Changer le curseur [Résolu]

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

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