Changer l'image du pointeur

Soyez le premier à donner votre avis sur cette source.

Vue 10 201 fois - Téléchargée 619 fois

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

Ajouter un commentaire

Commentaire

Signaler
Sibelle07
Messages postés
206
Date d'inscription
dimanche 14 septembre 2003
Statut
Membre
Dernière intervention
25 mars 2005
 -
Sa peut aller mais pour moi c'est pas trés utile mais l'idée est bonne ;-)
7/10
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)