4/5 (1 avis)
Vue 10 430 fois - Téléchargée 626 fois
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
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.