Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
197 internautes nous ont dit merci ce mois-ci
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)