USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  REDIMENSIONAMENTO DE TELA NAUM FUNCIONA P/ AS ABAS
RafaEct
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/12/2006 13:36 hs            

pessoal, eu tenho 3 abas numa tela.

nessa tela eu tenho um código que ao aumentar a tela os campos aumental automaticamente com a tela. o código é esse:

Private Sub Form_Resize()
    'FUNÇÃO QUE AJUSTARÁ OS CONTROLES MESMO QUANDO A JANELA ESTIVER MAXIMIZADA
    Dim CTL As Control
    On Error Resume Next
   
    'If m_bIniciaForm = True Then Exit Sub

    If (WidDiff <> 1) Or (HeiDiff <> 1) Then
       
        WidDiff = (frmCadPrecificacao.width / OldFrmWid)
        HeiDiff = (frmCadPrecificacao.height / OldFrmHei)
       
        For Each CTL In Controls
            With CTL
                .left = (CTL.left * WidDiff)
                .top = (CTL.top * HeiDiff)
                .width = (CTL.width * WidDiff)
                .height = (CTL.height * HeiDiff)
            End With
        Next CTL
       
        OldFrmWid = frmCadPrecificacao.width
        OldFrmHei = frmCadPrecificacao.height
   
    End If
   
    OldFrmWid = frmCadPrecificacao.width
    OldFrmHei = frmCadPrecificacao.height
End Sub

 

só q se eu deixar a primeira aba aberta, quando eu executar o programa e aumentar a tela as outras abas não mostram os campos que tem nela.

pq?  como arrumar?

 

   
tomprata
JUIZ DE FORA
MG - BRASIL
ENUNCIADA !
Postada em 23/12/2006 01:38 hs            
Se vc se refere ao controle sstab, use o codigo abaixo que funciona legal.

     Dim Ctl As Control, CtlCln As New Collection
      On Error Resume Next
      For Each Ctl In Controls
         If Ctl.Left < 0 Then CtlCln.Add Ctl
      Next
      SSTab1.Visible = False

     'coloque aqui seu código

      For Each Ctl In CtlCln
         If Ctl.Left > 0 Then Ctl.Left = Ctl.Left - 75000
      Next
      SSTab1.Visible = True
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página