Obtener El Nombre Del Formulario Donde Está Un Control.


Objetivo: Obtener El Nombre Del Formulario Donde Está Un Control.
Es una pequeña tontería que me ha hecho falta en uno de mis programas. Un procedimiento o una función que en un momento dado necesita saber el nombre del formulario donde reside un control concreto.

Lo he resuelto así:
Public Function formName(ctrl As Control) As String

Dim padre As Control

padre = ctrl.Parent
While Not padre Is Form
padre = padre.parent
Wend
Return padre.name

End


Como digo, una pequeña tontada, pero lo he incluído en mi librería de utilidades...

Saludos.

Perfil MP  
Objetivo: Re: Obtener El Nombre Del Formulario Donde Está Un Control.
Mmm...

¿ Hay algún motivo de por qué usas un bucle ?.
Creo que tengo que verlo por la mañana. Demasiadas horas delante del ordenador.

Saludos

última edición por Shell el Jueves, 27 Octobre 2016, 00:52; editado 1 vez
Objetivo: Re: Obtener El Nombre Del Formulario Donde Está Un Control.
Citar:
¿ Hay algún motivo de por qué usas un bucle ?.

Parent es una referencia al contenedor del objeto. Si está dentro de un panel, que está dentro de otro, etc. etc. necesitas un bucle para encontrar el formulario.

Saludos

Perfil MP  

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.3762s (PHP: -84% SQL: 184%)
Consultas SQL: 46 - Debug off - GZIP Activado