USAR FORM COMPARTILHADO ENTRE 2 PROJETOS

KERPLUNK 07/07/2022 19:34:08
#500182
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
AMELINHACODE 26/07/2022 21:49:38
#500249
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
KERPLUNK 27/07/2022 01:31:06
#500251
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.
SAMUKA 27/07/2022 07:15:36
#500253
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.
AMELINHACODE 27/07/2022 11:32:13
#500256
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...
SRBRITO 02/08/2022 02:12:54
#500276
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.
SRBRITO 02/08/2022 02:16:23
#500277
Esqueci de colocar a imagem... hehehe
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas