Chargement d'Image dans un Formulaire Résolu

Question

Bonjour,

J'aimerai faire une fonction qui me permette, de d&#233;finir tous ce qui est couleur, police, et image de fond pour mes formulaires et leurs controles.

Cette fonction serait appell&#233;e dans l'evenement load du formulaire, seulement j'ai essay&#233; un truc comme ca :

Sub Form1_load
call Coloriage
EndSub

Function Coloriage
   screen.activForm.picture = " C\...\...\...monImage.jpg"
End Function

Le formulaire &#233;tant entrain de charger, il ne doit pas &#234;tre consid&#233;r&#233; comme Actif, et dopnc c'est celui de derriere qui r&#233;cup&#232;re l'Image.

Qq'un sait t'il comment on dit : "Le form qui est entrain de se charger actuellement, ou un truc comme ca...???"

Merci d'avance

JCDussDuss

mrdep1978 · Accepted Answer

Tu devrais d&#233;finir ta fonction ainsi :

Function Coloriage(a_Form as Object) as Boolean
   with a_Form
      .picture = " C\...\...\...monImage.jpg"
   end with
   Coloriage = True
End Function

Puis l'appeler en faisant :

Sub Form1_load
call Coloriage(Me)
End Sub

PS : Si c'est une fonction, pour &#234;tre propre, il faut qu'elle retourne qqe chose, sinon fais-en une Sub

cs_ITALIA · Answer

Une Fonction Retourne une Valeur....Sinon on appel &#231;a une Procedure.

It@li@

JCDussDuss · Answer

Merci mrdep1978, ca marche impec ton truc, c'est exactement ce qu'il me fallait...
J'ai mis une valaur de retour &#224; ma fonction, mais ca n'&#233;tait pas un copier/coller, mais une saisie, dc j'avais fait au plus court...

Par contre j'ai un ptit soucis maintenant avec les controls, pour quoi ca lui va pas ca pour d&#233;finir la couleur de tous les controls du m&#234;me formulaire en un seul coup?

    Dim ctl As Control
    For Each ctl In Form.Controls
           Select Case ctl.ControlType
               Case acTextBox
                    Form.ctl.ForeColor = lngRed
               Case acComboBox, acListBox, acCheckBox, acOptionButton
                    Form.ctl.ForeColor = lngBlack
               Case Else
           End Select
    Next ctl

JCDussDuss

Chargement d'Image dans un Formulaire

3 réponses

Discussions similaires