Estou aqui novamente. Como já disse, estou começando no VB e estou criando um "programa" para estudar e depois com base nele criar algumas "soluções" ( simples ) mas que vai facilitar o meu próprio trabalho.
Bom, criei, formatei e carreguei os dados em um MS Flex Grid conforme o código abaixo.
Private Function configuraFlexGrid()
gridCliente.Clear
gridCliente.Row = 5
gridCliente.ColWidth(0) = 1000
gridCliente.ColWidth(1) = 6000
gridCliente.ColWidth(2) = 3000
gridCliente.ColWidth(3) = 4000
gridCliente.Col = 0
gridCliente.Row = 0
gridCliente.Text = "Código"
gridCliente.Col = 1
gridCliente.Text = "Razão Social"
gridCliente.Col = 2
gridCliente.Text = "Telefone"
gridCliente.Col = 3
gridCliente.Text = "Telefone"
End Function
Public Function formataGridCliente()
grdDados.Clear
grdDados.Rows = 2
grdDados.ColWidth(0) = 1500
grdDados.ColWidth(1) = 4000
grdDados.ColWidth(2) = 2800
grdDados.ColWidth(3) = 2800
grdDados.Row = 0
grdDados.Col = 0
grdDados.Text = "Código do Cliente"
grdDados.Col = 1
grdDados.Text = "Razão Social"
grdDados.Col = 2
grdDados.Text = "Telefone"
grdDados.Col = 3
grdDados.Text = "Cidade"
End Function
Porem tem algumas coisas que ainda não consigo acertar...
1) Gostaria que o cabeçalho ( Código do Cliente, Razão Social, Telefone e Cidade ) ficasse centralizado e negrito.
2) Nos dados de telefone, gostaria que ficasse com a máscara (99)9999-9999
3) Está ficando uma linha "em branco" no final e eu gostaria de tirar
4 ) Os códigos propriamente dito ( 1, 2, 3, 4, 5, 6, ... ) eu gostaria que ficasse centralizado também.
Pergunta
Alex Mauricio
Boa tarde pessoal.
Estou aqui novamente. Como já disse, estou começando no VB e estou criando um "programa" para estudar e depois com base nele criar algumas "soluções" ( simples ) mas que vai facilitar o meu próprio trabalho.
Bom, criei, formatei e carreguei os dados em um MS Flex Grid conforme o código abaixo.
Private Function configuraFlexGrid()
gridCliente.Clear
gridCliente.Row = 5
gridCliente.ColWidth(0) = 1000
gridCliente.ColWidth(1) = 6000
gridCliente.ColWidth(2) = 3000
gridCliente.ColWidth(3) = 4000
gridCliente.Col = 0
gridCliente.Row = 0
gridCliente.Text = "Código"
gridCliente.Col = 1
gridCliente.Text = "Razão Social"
gridCliente.Col = 2
gridCliente.Text = "Telefone"
gridCliente.Col = 3
gridCliente.Text = "Telefone"
End Function
Public Function formataGridCliente()
grdDados.Clear
grdDados.Rows = 2
grdDados.ColWidth(0) = 1500
grdDados.ColWidth(1) = 4000
grdDados.ColWidth(2) = 2800
grdDados.ColWidth(3) = 2800
grdDados.Row = 0
grdDados.Col = 0
grdDados.Text = "Código do Cliente"
grdDados.Col = 1
grdDados.Text = "Razão Social"
grdDados.Col = 2
grdDados.Text = "Telefone"
grdDados.Col = 3
grdDados.Text = "Cidade"
End Function
Porem tem algumas coisas que ainda não consigo acertar...
1) Gostaria que o cabeçalho ( Código do Cliente, Razão Social, Telefone e Cidade ) ficasse centralizado e negrito.
2) Nos dados de telefone, gostaria que ficasse com a máscara (99)9999-9999
3) Está ficando uma linha "em branco" no final e eu gostaria de tirar
4 ) Os códigos propriamente dito ( 1, 2, 3, 4, 5, 6, ... ) eu gostaria que ficasse centralizado também.
Muito obrigado pessoail
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.