Changer l'image du pointeur
4/5 (1 avis)
Vue 10 430 fois - Téléchargée 626 fois
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.
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
Codes Sources
A voir également
- Changer l'image du pointeur
- Java : Un bouton image qui change d'image au survol de la souris. - CodeS SourceS - Guide
- Javascript : Changer une image à partir d'un lien - CodeS SourceS - Guide
- Changer couleur image ✓ - Forum - VB.NET
- Sauvarger les changement d'image ✓ - Forum - VB.NET
- [VB.net] Changer l'image d'une PictureBox et sauvegarder se changement ✓ - Forum - VB.NET
6 oct. 2003 à 17:22
7/10
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.