Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 414 fois - Téléchargée 104 fois
Private Function CObj(ByVal Name As String) As Object Dim frm As Form, Ctrl As Control For Each frm In Forms If frm.Name = Name Then Set CObj = frm Exit Function End If For Each Ctrl In frm.Controls If Ctrl.Name = Name Then Set CObj = Ctrl Exit Function End If Next Ctrl Next frm End Function
Je vois que ce code date un peu, mais il peut beaucoup m'aider :)
Je vois aussi que Renfield avait fait une remarque importante : cela ne gere pas la from. cela regarde partout.
Or dans mon projet c'est essentiel vu que ce sont deja des form généré, donc avec les memes nom de label / command...
Es qu'il faut mieux passer un 2eme parametre avec le nom de la form ? ou faire un "form2.command1" ?
Et surtout es possible de faire plutot un Me.label1 dans ce genre de parametre ?
Es que quelqu'un peut me guider ?
merci bien :)
si tu fais
CObj ( "Command1" )
tu sais pas sur quelle form il va regarder....
faudrais que tu gères par exemple CObj ( "Form2.Command1" )
@PCPT : tu peux meme dire "VbFrance DEGORGE de tant de "petites sources..."
le fonctionnement est maintenant le suivant : on dépose ici un code (un "vrai", plus sous moins complet mais assez conséquent), et sur Codyx c'est les snippets, les fonctions, les... "sources" de peu de lignes
tu peux t'inscrire sur Codyx avec le même pseudo, ton code apparaîtra sur la page d'accueil de VbFrance et de CodeS-SourceS
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.