FORMS NO PROJETO

JOAOBENEVIDES 14/02/2011 16:54:40
#365408
è possivel saber todos os forms criado num projeto
preciso pegar todos meus forms que tenho no projeto em vb 6 digo o nome deles para saber os controles que tenho dentro deles
Obrigadi
MORDENTI 14/02/2011 17:06:25
#365409
Boa Tarde Joao,


Eu uso esta rotina ve se te ajuda.



[txt-size=2]Public sub ListarForms() 
   Dim Frm As Form

   For Each Frm In Forms
             msgbox frm.name
   Next Frm[/txt-size]


Abraços.
JOAOBENEVIDES 14/02/2011 17:07:29
#365410
nao saiu nada posta ai para mim
MORDENTI 14/02/2011 17:08:23
#365411
Desculpa estava atualizando tenta agora.


Abraços.
JOAOBENEVIDES 17/02/2011 16:58:55
#365798
bom com mesmo topico queria fazer uma pergunta estou usando a funcao abaixo

Dim texto As String
Dim NomeFormulario As Variant
Dim Formulario As Variant
Dim Rs As New ADODB.Recordset
Dim Ctls As Object
Dim CtlsTab As Object
[ô]texto = [Ô]truncate table SchoolMatriz.dbo.Forms[Ô]
[ô]de.DB.Execute texto
[ô]GetFormNames App.Path & [Ô]\school.vbp[Ô]

texto = [Ô]select * from schoolmatriz.dbo.forms[Ô]
Rs.Open texto, de.DB, adOpenStatic, adLockReadOnly

Do While Rs.EOF = False
NomeFormulario = RetiraChar(Left(Rs([Ô]form[Ô]), Len(Rs([Ô]form[Ô])) - 4), [Ô][Ô])

For Each Ctls In NomeFormulario
If TypeOf Ctls Is CommandButton Or TypeOf Ctls Is lvButtons_H Then
If LCase(NomeBotao) = LCase(Ctls.Name) Then
Ctls.Enabled = False
Exit For
End If
End If
If TypeOf Ctls Is Frame Then
If LCase(NomeBotao) = LCase(Ctls.Name) Then
Ctls.Enabled = False
End If
End If
If TypeOf Ctls Is SSTab Or TypeOf Ctls Is Xtab Then
If LCase(NomeBotao) = LCase(Ctls.Name) Then
Ctls.TabEnabled(numero) = False
End If
End If
Next

e quando mando executar dar o erro
object requerid

o que pode ser ?
JOAOBENEVIDES 18/02/2011 10:24:04
#365851
VIXI NINGUEM
RPMARQUES 18/02/2011 10:32:23
#365855 Resposta escolhida
mas em qual linha que da o erro....
JOAOBENEVIDES 18/02/2011 10:33:52
#365856
nesta linha

For Each Ctls In NomeFormulario
JSFF77 18/02/2011 12:37:05
#365868
Boa tarde.

Amigo, veja esse tópico:

http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=359465&varPagina=2

Se você entendê-lo, resolverá seu problema.

Até breve.


JSFF77
Tópico encerrado , respostas não são mais permitidas
Voltar