bonjour tout le monde
je voulais savoir s'il existe une instruction pour selectionner tout les forms d'un projet pour modifier un paramtres (une seule instruction pour modifier un parametre de tout les forms)
un truc comme
monprojet.toutform.style = .....
merci pour a tous
merci bcp
ca marche mais pas avec tout les forms
en fait voici ce que je veux faire avec
Dim Frm As Form
For Each Frm In Forms
AnimateCursor Frm, App.Path & "\curseur\cur\cur10.ani"
Next
avec
Public Function AnimateCursor(Frm As Form, fName As String) As LongCursor = LoadCursorFromFile(fName)
Frm.MousePointer = 6
Cursor2 = GetCursor
AnimateCursor = SetSystemCursor(Cursor, OCR_SIZENESW)
End Function
je sais pas s'il sagit des parametres des form qui gardent toujours le meme curseur ?
Forms ne recence que les forms actuellement ouvertes (mais pas forcément affichées) du projet.
A ma connaisance, il n'y a pas de moyen simple d'accèder à l'ensemble des forms du projet si ce n'est les ouvrir toutes et passer par Forms, ou alors en codant en dur l'accès à chacune des forms à partir de leur nom.
bon le probleme c'est qu'il y a des form et des MDI form
> comment selectionner tout les MDI form
ca ne marche pas avec :
Dim frm2 As MDIForm
For Each frm2 In MDIForms
AnimateCursor frm2, App.Path & "\curseur\cur\cur10.ani"
'Frm.MousePointer = LoadCursorFromFile(App.Path & "\curseur\cur\cur12.ani")
Next
SetSystemCursor sert à changer le curseur système, pour un des curseurs par défaut (du thème)
tu ne dois pas le changer en boucle, seul le curseur des feuilles (boucle) doit changer, puis tu appelles le SetSystemCursor
sinon plus simplement tu peux utiliser cette DLL ++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
beh votre source je l'avais deja telecharger
ca ne compile pas "msg : can't run this file only"
beh tout ce que je veux c'est l'instruction qui selectionne tout les MDIForm
tu veux compiler quoi.. elle est déjà fournie en compilée
non non, elle fonctionne bien
bref
Private Sub CursAll()
Dim oForm As Form
For Each oForm In Forms
If oFrm.MDIChild Then oFrm.MousePointer = 6
Next oForm
'et après le code une soir
fois, pour le curseur systeme
End Sub
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp