Dim cursor As Cursor Dim ms As New System.IO.StreamReader(Application.StartupPath & "\Phlame_Arrow_Normal.cur") boardgame.Cursor = New Cursor(ms)
'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)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question