cs_hastalavista
Messages postés38Date d'inscriptionmardi 7 mars 2006StatutMembreDernière intervention26 février 2008
-
20 nov. 2007 à 11:07
cs_hastalavista
Messages postés38Date d'inscriptionmardi 7 mars 2006StatutMembreDernière intervention26 février 2008
-
20 nov. 2007 à 12:14
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
cs_hastalavista
Messages postés38Date d'inscriptionmardi 7 mars 2006StatutMembreDernière intervention26 février 2008 20 nov. 2007 à 11:18
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 ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 20 nov. 2007 à 11:27
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.
cs_hastalavista
Messages postés38Date d'inscriptionmardi 7 mars 2006StatutMembreDernière intervention26 février 2008 20 nov. 2007 à 11:30
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
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 20 nov. 2007 à 11:34
salut,
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
cs_hastalavista
Messages postés38Date d'inscriptionmardi 7 mars 2006StatutMembreDernière intervention26 février 2008 20 nov. 2007 à 11:44
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
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 20 nov. 2007 à 11:57
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