Ver Mensaje Individual
  #4 (permalink)  
Antiguo 03/02/2005, 13:17
Avatar de Avelar
Avelar
 
Fecha de Ingreso: noviembre-2002
Ubicación: Ensenada, Baja California, México
Mensajes: 673
Antigüedad: 21 años, 6 meses
Puntos: 1
Cita:
Iniciado por piojoman
Hola!, La verdad es que probe usando el formulario MDI, pero no es lo que estoy buscando, (tiene varios efectos que no son para mi programa), la segunda opcion que tiraste no entendi bien a que te referis de todos modos muchas gracias por tu ocupacion en el tema...
Con la colección Forms puedes recorrer cada uno de los formularios cargados en memoria y hacer lo que deseas con cada uno de ellos o con uno en particular.

Puedes tomar como referencia la siguiente función:
Código:
'Función para saber si un formulario específico está cargado en memoria.
Public Function IsLoaded(ByVal NombreFormulario As String) As Boolean
	Dim Formulario As Form
	
	'Recorrer la colección de formularios (los que están cargados en memoria para la aplicación) hasta
	'encontrar el formulario cuyo nombre es el que estamos buscando.
	For Each Formulario In Forms
		'Si se encontró el formulario buscado, indicar que está cargado en memoria y salir de la función.
		If UCase(Formulario.Name) = UCase(NombreFormulario) Then
			IsLoaded = True
			GoTo Salir
		End If
	Next Formulario
	
	'Si llega a esta línea es porque no encontró el formulario buscado, por lo que se indica
	'que dicho formulario no está cargado en memoria.
	IsLoaded = False
Salir:
End Function
Es cuestión de que revises dicha función y la adaptes a lo que quieres hacer.

Saludos
__________________
Ariel Avelar