|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Saber a quantidade de Form aberto pelo usuário:
|
 |
|
|
|
Postada em 16/3/2007 por LCRamos
Coloque em um módulo, com uma variável publica
Public iFORMABERTO As Integer
Public Function CONTAFORM(iABERTO As Integer) As Integer
Dim iFORM As Integer
iFORM = 0
iABERTO = 0
For iFORM = (Forms.Count - 1) To 0 Step -1
iABERTO = iABERTO + 1
Next iFORM
iFORMABERTO = iABERTO
End Function
Chame de qualquer Form
iFORMABERTO = CONTAFORM(iABERTO)
vlu//
|
|
|
|
|
