LabelRésolu

Question

Bonjour,
J'aimerai savoir si on peut mettre un label dons un fonction.
Exemple
Module X
    Public Function calcul()
    If label= tartembion then
instruction
end if 
  End Function
End Module
J'aimerai savoir si sa fonctionne, enfin si c'est possible?
Le label est appelé sur la fonction et est présent sur ma form.
Merci cordialement.

cs_kalif · Accepted Answer

salut, premièrement une fonction doit toujours renvoyer une valeur sinon tu met une procedure (SUB)

Module X:

private function calcul() as integer
if FORM1.label.caption = "1" then
   calcul = 1
else
   calcul = 0
end if
end function

dans ce cas si label qui se trouve dans form1 contient "1" alors calcul renvoi aussi 1 (c'était juste un exemple quoi)

mortalino · Answer

Salut,

encore une autre solution :

Public Function Calcul(oLbl As Label, ByVal sText As String) As Boolean
    If oLbl.Caption = sText Then
        Calcul = True
    End if
End Function

Sub Exemple()
    MsgBox Calcul(Label3, "Test")

' 
tu lui passes en paramètres le nom du Label puis le texte
' à vérifier, sachant que tu peux la réutiliser, du coup, 

' pour d'autres Labels.

' Vrai ou faux apparaitra selon les critères
End Sub
 
--Mortalino-- Colorisation 
automatique

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

PCPT · Answer

salut à tous,
bien que la solution de kalif soit correcte, il y a peu d'intérêt à utiliser en dur le nom d'un label.
si ta fonction (ou sub) n'est utilisée que dans une form alors pas besoin de module.
idem si cette fonction/sub est dans une autre form (encore faut-il que la form1 soit chargée)

bref, c'est la solution de Mortalino qu'il faut retenir si ton appel concerne plusieurs forms/labels

++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

Label

3 réponses

Votre réponse

Discussions similaires