Avoir un objet de type controle en sortie de fonctionRésolu

Question

Bonjour,

Voila j'ai un fonction comme ca:

Function  GetControlFromName( ControlName as String) as Control

  dim cControl as Control

  For Each cControl in Form1.Controls
      If CStr(cControl.Name) = ControlName Then
          GetControlFromName = cControl 
      End If
  Next cControl

End Function

Bien evidement cela ne marche pas, sinon je serais pas ici 
L'appel de cette fonction donne une erreur car on essai d'attribuer la valeur 
par defaut du cControl (le .Text d'un textBox, par exemple) a une variable de 
type inadapt&#233;.
Quelqu'un sait comment on peut faire pour passer le controle en entier &#224; cette 
variable ?

cs_CanisLupus · Accepted Answer

Pour tous les objets, il faut utiliser SET et un control est un objet.

Cordialement, CanisLupus

cs_DARKSIDIOUS · Answer

Ben tout d&#233;pend de quel type de control il te renvoie : c'est s&#251;r que
si tu essaie de modifier la propri&#233;t&#233; Text d'un commandButton par
exemple, il va te signaler une erreur ! A ce moment l&#224; :



Dim oControl as Control



On Error Resume Next



Set oControl = GetControlFromName("Command1")

Let oControl.Text = "Salut !" ' ca ne provoque pas d'erreur mais ca ne modifie pas la propri&#233;t&#233; Text !


DarK Sidious

Administrateur et reponsable VB/API du site www.ProgOtoP.com

cs_CanisLupus · Answer

Salut,

Essaie un truc dans ce genre-l&#224; :

Private Sub Form_Load()
Dim c As Control


Set c = GetControlFromName("Command1")
MsgBox c.Caption


End Sub


Function GetControlFromName(ControlName As String) As Control


  Dim cControl As Control


  For Each cControl In Form1.Controls
      If CStr(cControl.Name) = ControlName Then
          Set GetControlFromName = cControl
      End If
  Next cControl


End Function

Cordialement, CanisLupus

le_nain27 · Answer

Pour Darksidious

Bien evidement que ton Let oControl.Text="Salut !" marche puisque il y a le On Error Resume Next ...
Mais moi ca m'interesse pas de "passer" sur cette erreur.

Pour CanisLupus

Merci !!!
Peut tu m'expliquer pourquoi le Set est, dans ce cas la, obligatoire ? On passe pas par r&#233;f&#233;rence par defaut en d&#233;clarant les types ?

le_nain27 · Answer

Ok, c'&#233;tait la premiere fois que je m'attaquais a ce genre de morceau, je le saurai d&#233;sormais.
Thx !

Avoir un objet de type controle en sortie de fonction

5 réponses

Discussions similaires