Changer le curseur de votre form ou des objets^^

[mars073]

<p>Bonjour,<br/>
Je vais vous expliquez comment modifier le curseur de votre ou d'un objet.<br/>
programme conseillé:<br/><a href="http://www.clubic.com/telecharger-fiche267956-axialis-cursorworkshop.html" rel="external nofollow">Axialis - CursorWorkshop</a>(même a la fin de la licence il est toujours utilisable)<br/>
fichier KDO:<br/><a href="http://download940.mediafire.com/r988j11pooig/n10no96qk57115u/Curseurwow.cur" rel="external nofollow">Curseur de Wow (en 1bit)</a><br/><a href="http://www.virustotal.com/url-scan/report.html?id=4f889f711898a81f6078a3c672c4e146-1295285542" rel="external nofollow">Contrôle-TotalVirus</a><br/><br/>
1.Il vous faut un fichier ".cur" (curseur/cusor) monochrome (1bit, en blanc, noir et transparence) ou alors çà va faire bugé votre application (normalement) --'<br/><br/>
2.Ouvrez Visual Basic, puis votre projet aller dans ses propriétés, puis dans l'onglet "Ressources" ajouter votre ressource ".cur" (curseur).<br/><br/>
3.retournez votre form faites un doule-click dessus pour afficher le code,<br/>
normalement vous aurez ceci (load) un peut haut dessus a droite:<br/><img alt="load-vb-2498ae1.jpg" src="<base_url>/applications/sslimageproxy/interface/image.php?url=http://img50.xooimage.com/files/0/7/6/load-vb-2498ae1.jpg"/><br/>
modifier le en "MouseMove", ce qui va créer un deuxième code supprimez le premier (load).<br/><br/>
4.Mettez le code suivant:</p>
<pre class="ipsCode prettyprint lang-auto">
Dim memory_stream As New System.IO.MemoryStream(My.Resources.Curseurwow)
Me.Cursor = New Cursor(memory_stream)
</pre>
<p><span style="color:#FF0000;">La form ou un object ( exemple: Me, Form2, button1, textbox1,...)</span><br/>
Le nom de la ressource (le curseur)<br/>
et voilà vous avez un nouveau curseur !<br/><br/>
un code pour avoir des curseurs en 32bits(plusieurs couleurs), mais j'ai pas réussis à le mettre comme ressource...</p>
<br/><br/><br/><br/><pre class="ipsCode prettyprint lang-auto">
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)
</pre>
<p><span style="color:#00FF00;">Code à placer après la déclaration de votre form(Public Class Form1)</span><br/><span style="color:#FF0000;">Nom du dim du curseur</span><br/>
Nom du chemin d'accès jusqu'au curseur<br/>
La form ou un object ( exemple: Me, Form2, button1, textbox1,...)<br/>
et voilà vous avez un nouveau curseur !<br/><br/>
Bonne programmation a tous!<br/>
Cordialement,<br/>
Mars073</p>

[Azad]

<p>Merci du partage, mars. <br/><br/>
+1 Rep.</p>