USAR FORM COMPARTILHADO ENTRE 2 PROJETOS
Voce pode fazer uma rotina genérica num módulo para verificar se o form existe:
Daàpra usar seria
Public Function FormExists(ByVal pstrFormName As String) As Form
Dim frmForm As Form
For Each frmForm In Forms
If frmForm.Name = pstrFormName then
Set FormExists = frmForm
Set frmForm = Nothing
Exit For
End If
Next frmForm
End Function
Daàpra usar seria
if FormExists("PDV") Then
FormExists("PDV").Hide
End if
Citação::
Voce pode fazer uma rotina genérica num módulo para verificar se o form existe:
Public Function FormExists(ByVal pstrFormName As String) As Form
Dim frmForm As Form
For Each frmForm In Forms
If frmForm.Name = pstrFormName then
Set FormExists = frmForm
Set frmForm = Nothing
Exit For
End If
Next frmForm
End Function
Daàpra usar seria
if FormExists("PDV") Then
FormExists("PDV").Hide
End if
Dar o seguinte erro
Run_time error 91:
Object variable or with block variable not set
Debugo e ele seleciona: if FormExists("PDV") Then
Fui vendo os passos... de um por um... ele dar o loop em todos os forms aberto (no meu caso 3 form), e no final ele nao encontra o form PDV e dar o erro mencionado acima
A condicional está buscando o nome do form(Form.Name). Voce tem que passar no parâmetro o nome certinho do form senão não vai achar mesmo.
KERPLUNK, se eu entendi direito, ela está tentando abrir um Form(PDV) que está em outro executável. É por isso que a busca não encontra nada.
Citação::
KERPLUNK, se eu entendi direito, ela está tentando abrir um Form(PDV) que está em outro executável. É por isso que a busca não encontra nada.
Justamente isso o form PDV não consta nesse projeto... porem o form Parcelas (onde consulto se o form pdv existe), participa dos 2 projetos...
Eu faço assim: No explorador do projeto, em forms na árvore eu clico com o botão direito do mouse e vou em add files ou form e voce muda para a aba existing files e escolho o a pasta aonde o form está e o form que quero referenciar. o VB6 irá adicionar as referencias e o local deste form.
Esqueci de colocar a imagem... hehehe
Tópico encerrado , respostas não são mais permitidas