MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Tamanho de um textobox

    Compartilhe

    m_araujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 15/11/2012

    [Resolvido]Tamanho de um textobox

    Mensagem  m_araujo em Ter 26 Maio 2015, 14:29

    Bom dia !

    Caros colegas, preciso determina o tamanho de um textobox conforme os código abaixo.

    Código:
    On Error Resume Next
       ' PlaySound fLocalBd & "\div\sons\click.wav", 1, 1
    Me.troca = Me.troca + 1
    If Me.troca > 2 Then Me.troca = 0
    Select Case Me.troca
        Case 0
            Me.Pesquisa.caption = "Código:"
            Me.txtPesquisar.Width = 2,2 cm '
        Case 1
            Me.Pesquisa.caption = "Prefixo Aeronave:"
             Me.txtPesquisar.Width = 4,2 cm '
        Case 2
            Me.Pesquisa.caption = "Modelo/Fabricante:"
             Me.txtPesquisar.Width = 7,2 cm '
        Case Else
            MsgBox " Campo para pesquisa não localizado!!!", vbInformation, "Aviso"
    End Select
    Me!txtPesquisar.SetFocus
    End Sub

    Tente dessa forma ai, mais não deu certo eu executo o sistema mais não muda nada.


    grato!


    Última edição por m_araujo em Qua 27 Maio 2015, 10:31, editado 1 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3616
    Registrado : 20/04/2011

    Re: [Resolvido]Tamanho de um textobox

    Mensagem  Silvio em Ter 26 Maio 2015, 18:31

    Olá.... as medidas devem ser em Twips e não em Cms.
    1cm equivale a 566.929133858 Twips ou 567 Twips

    Eis o link de conversão para você...
    [Você precisa estar registrado e conectado para ver este link.]

    No VBA o Access utiliza a unidade de comprimento TWIPS.
    Portanto se quiser 2 cm de largura coloque
    MeuCampo.width = 1134

    Bons estudos !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter 26 Set 2017, 09:16