Changer l'image du pointeur

Télécharger le projet
Commenter

Description

Ce petit programme permet de changer l'image du pointeur. Il n'a été testé que sous Windows XP. J'aimerai savoir si il marche avec Windows98 et autres... Pour XP, veuillez fermer la session de votre ordinateur pour actualiser, pour 98, redémarrez votre ordinateur.
Mettez vos commentaires et vos notes.

Source / Exemple : 


PREMIER FORM
Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox "Veuillez choisir une image", vbOKOnly + vbCritical, "Attention"
Else
MsgBox "Veuillez redémarre votre ordinateur ou fermer et réouvrir votre session pour changer la forme du curseur", vbOKOnly + vbInformation, "Terminé"
End
End If
Dim r
Set r = CreateObject("WScript.Shell")
r.RegWrite "HKEY_CURRENT_USER\Control Panel\Cursors\Arrow", "" + Text1.Text + ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

SECOND FORM
Private Sub Command1_Click()
If File1 = "" Then
MsgBox "Veuillez choisir une image.", vbOKOnly + vbCritical, "Attention !"
Else
Form1.Text1 = Text1.Text
Unload Me
End If
End Sub

Private Sub Dir1_Change()
File1 = Dir1
Text1.Text = "" + Dir1 + "\" + File1 + ""
End Sub

Private Sub Drive1_Change()
Dir1 = Drive1
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

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

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (linkinpar236737)