bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Ajuste auto largura do campo - modo folha de dados

Ajuste auto largura do campo - modo folha de dados

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

Usuário Alcides:

Bom Dia.

Gostaria de saber se é possível que o meu subformulário, no modo folha de dados, ao ser aberto seja sempre ajustado ao tamanho do rótulo, conteúdo do campo ou ainda uma largura fixa,  tipo aquele ajuste conseguido com o duplo clique na borda do campo.

Agradeço.

Suporte:

Alcides, você pode ajustar a largura através da propriedade ColumnWidth. Utilize o laço For Each para percorrer os campos e alterar a largura.  Algo assim:

Dim ctl as control
For each ctl in forms!NomeFormulário.controls
   if TypeOf ctl is Textbox OR TypeOf ctl is Combobox then
      'Largura -2 é auto ajustável
      ctl.columnWidth = -2
      'Ou definindo a largura em centímetros.  Exemplo 3 cm
      'ctl.columnWidth = 3 * 567
   end if
next

Definir a largura para cada coluna,  fica de acordo com a sua criatividade.

Usuário Alcides:

Como ficaria o código se eu precisasse colocar cada coluna com um tamanho específico?

Exemplo:

Coluna1= 1cm
Coluna2= 3cm
Coluna3= 5cm

Dessa forma todas as colunas ficam com 3 cm

Suporte:

Alcides, você pode colocar o tamanho dos campos em uma matriz Split(). Exemplo:

Private Sub Form_Open(Cancel As Integer)
Dim ctl As control
Dim j%, k
Dim strSeq$
'passa o tamanho dos campos para uma matriz
k = Split("1;4;1;2;2", ";")
For Each ctl In Me.Controls
   If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
      ctl.ColumnWidth = k(j) * 567
      j = j + 1
   End If
Next
End Sub

Usuário Alcides:

Certíssimo, Avelino.

 


 

 


Não há comentário

Envie seu comentário: