parametre form

Question

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

Renfield · Answer

Dim oForm As Form

For Each oForm In Forms
   oForm...
Next oForm

jrivet · Answer

Salut,
Pas à ma connaissance.
En revanche tu peux essayer de faire une boucle.

Dim Frm As Form
For Each Frm In Forms
   Frm.Style = ....
Next, ----
[code.aspx?ID=41455 By Renfield]
Mais je ne sais pas si cela peut t'aider

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Ok OK, le cheval est plus rapide... (salut [auteur/RENFIELD/2359.aspx Renfield])

@+: Ju£i?n
Pensez: Réponse acceptée

cs_hastalavista · Answer

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 ?

cs_hastalavista · Answer

desolé
avec :
Public Function AnimateCursor(Frm As Form, fName As String) As Long


Cursor = LoadCursorFromFile(fName) 
Frm.MousePointer = 6 
Cursor2 = GetCursor 
HoldCursor = CopyIcon(Cursor2) 
AnimateCursor = SetSystemCursor(Cursor, OCR_SIZENESW) 
End Function

cs_casy · Answer

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.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

cs_hastalavista · Answer

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

ce que je cherche est from koi ? MDIFORM ?

PCPT · Answer

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 · Answer

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 · Answer

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

cs_hastalavista · Answer

ok c'est bon
je vais lister tout les forms par leur nom

Parametre form

11 réponses

Votre réponse

Discussions similaires