Changer le curseur de votre form ou des objets^^

[mars073]

Bonjour,
Je vais vous expliquez comment modifier le curseur de votre ou d'un objet.
programme conseillé:
Axialis - CursorWorkshop(même a la fin de la licence il est toujours utilisable)
fichier KDO:
Curseur de Wow (en 1bit)
Contrôle-TotalVirus

1.Il vous faut un fichier ".cur" (curseur/cusor) monochrome (1bit, en blanc, noir et transparence) ou alors çà va faire bugé votre application (normalement) --'

2.Ouvrez Visual Basic, puis votre projet aller dans ses propriétés, puis dans l'onglet "Ressources" ajouter votre ressource ".cur" (curseur).

3.retournez votre form faites un doule-click dessus pour afficher le code,
normalement vous aurez ceci (load) un peut haut dessus a droite:

modifier le en "MouseMove", ce qui va créer un deuxième code supprimez le premier (load).

4.Mettez le code suivant:

Dim memory_stream As New System.IO.MemoryStream(My.Resources.Curseurwow)
       Me.Cursor = New Cursor(memory_stream)

La form ou un object ( exemple: Me, Form2, button1, textbox1,...)
Le nom de la ressource (le curseur)
et voilà vous avez un nouveau curseur !

un code pour avoir des curseurs en 32bits(plusieurs couleurs), mais j'ai pas réussis à le mettre comme ressource...

Private Declare Unicode Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileW" (ByVal filename As String) As IntPtr
    Dim curseur As IntPtr
        curseur = LoadCursorFromFile("C:\cursor.cur")
        Me.Cursor = New Cursor(curseur)

Code à placer après la déclaration de votre form(Public Class Form1)
Nom du dim du curseur
Nom du chemin d'accès jusqu'au curseur
La form ou un object ( exemple: Me, Form2, button1, textbox1,...)
et voilà vous avez un nouveau curseur !

Bonne programmation a tous!
Cordialement,
Mars073

[Azad]

Merci du partage, mars.

+1 Rep.