Me siento confuso he incomprendido con deseos de hacer las cosas pero retardandome y dejando pasar el tiempo esperando a que alguien me saque de esta carcel en la que me he envuelto formada por las paredes de mis pensamientos en caos siento que avanzo con un paso hacia atras, ahora se lo que tengo y no es mas que mi soledad juzgandome, diciendome no tienes donde ir hoy y no podras ir mas alla de mis paredes vacias.
Me vi en la necesidad de saber si un form esta abierto, asi que cree esta funcion para ello. Funcion 'Devuelve un valor booleano que indica si el form esta abierto Public Function EstaAbierto(ByVal Myform As Form) Dim objForm As Form Dim blnAbierto As Boolean = False blnAbierto = False For Each objForm In My.Application.OpenForms If (Trim(objForm.Name) = Trim(Myform.Name)) Then blnAbierto = True End If Next Return blnAbierto End Function Implementacion 'frmNuev...
Comentarios
Publicar un comentario