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
salut, tu peux poster ce code sur Codyx.Org suppression dans la matinée ++
je comprend pas, vbfrance c'est pas senser etre un site pour déposer des sources?
si si, mais pour les petites sources, nous avons crée codyx :)
une source c'est une source non? jsuis pas inscrit a codyx mais a vbfrance pour poster mes source vb.
VbFrance regorge de tant de "petites sources" qu'il en devient presque impossible de trouver ce qu'on veut... 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
@Frank150 : dura lex sed lex, merci de suivre les regles =) @PCPT : tu peux meme dire "VbFrance DEGORGE de tant de "petites sources..."
Gaffe, y'a un gros soucis, dans ta source... si tu fais CObj ( "Command1" ) tu sais pas sur quelle form il va regarder.... faudrais que tu gères par exemple CObj ( "Form2.Command1" )
Renfield à raison ça oblige à nommer differament tout les controles du projet, mais sinon c'est une fonction assez utile.
Bonjour, 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 :)
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 598 771 membres 39 nouveaux aujourd'hui 15 441 membres club