Este fórum está sendo desativado

[Gerson]

Caros amigos,

Por gentileza, preciso da seguinte ajuda.

tenho um formulário em que as tenho 1 multipage com 3 abas.

no entanto, em cada aba, tenho 1 listview em cada uma delas. Porém, as listview ficam saindo de posição, mais retornam a posição correta quando clico nas outras abas e retorno a aba que estava.

utilizei este código na esperança de solucionar o problema, mais não obtive sucesso: utilizando essa codificação na tentativa de deixar invisivel as listview e aparecer novamente somente quando clica-se na aba.

Private Sub MultiPage1_Click(ByVal Index As Long)
If FRMORDEMDECOMPRAS.MultiPage1.Value = 0 Then
FRMORDEMDECOMPRAS.LISTVIEWEMPRESAS.Visible = True
Else
FRMORDEMDECOMPRAS.LISTVIEWEMPRESAS.Visible = False
End If

If FRMORDEMDECOMPRAS.MultiPage1.Value = 1 Then
FRMORDEMDECOMPRAS.LISTVIEWFORNECEDOR.Visible = True
Else
FRMORDEMDECOMPRAS.LISTVIEWFORNECEDOR.Visible = False
End If

If FRMORDEMDECOMPRAS.MultiPage1.Value = 2 Then
FRMORDEMDECOMPRAS.LISTVIEWRC.Visible = True
Else
FRMORDEMDECOMPRAS.LISTVIEWRC.Visible = False
End If
End Sub

alguem poderia me ajudar? deixei o arquivo em anexo para quem puder visualizar e me ajudar.

[laennder]

Gerson,

Não percebi no seu arquivo o que você citou. Ela fica saindo de posição conforme você vai preenchendo o formulário?

Usei o seu arquivo, mas não percebi nada.

[Gerson]

Laennder, muito obrigado pelo seu retorno.

Acontece o seguinte,

Como por exemplo na figura 1.

Automaticamente quando abre a planilha, ele acessa a aba "Dados do Fornecedor".

Se clicar em qualquer outra aba, ou como por exemplo na aba "Pesquisa de RC", acontece que a listview fica fora de posição como esta em anexo na figura 1

Se voltar para a aba "Dados do Fornecedor", e em seguida ir para a Aba "Pesquisa de RC", a listview passa a ficar na posição correta, conforme esta na figura 2 que esta em anexo.

Muito obrigado pela sua atenção, e se puder continuar me ajudando, ficarei muito grato.

[laennder]

Gerson, nunca vi isso. Vou dar uma analisada melhor no seu código para tentar entender o que pode estar ocorrendo. Mas por enquanto, eu consegui resolver com uma pequena gambiarra rsrs

faça o seguinte:

antes de:

Código: Selecionar todos

erro1:

End Sub 

adicione:

Código: Selecionar todos

MultiPage1.Value = 1
MultiPage1.Value = 2
MultiPage1.Value = 0

[Gerson]

Laennder,

Muito obrigado, realmente a gabiarra funcionou 100%, parabéns.

Realmente é uma questão inusitada, também nunca havia visto algo assim.

No entanto, estou colocando em anexo o formulário atualizado para que você possa analisar.

Ainda não vou fechar este tópico como concluído, para que possamos ainda dar continuidade na análise.

Novamente, muito obrigado