MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Alinhar texto na vertical

    avatar
    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 12/10/2011

    [Resolvido]Alinhar texto na vertical Empty [Resolvido]Alinhar texto na vertical

    Mensagem  lucianonunes.jw 22/10/2012, 22:40

    Pessoal,

    a dúvida é no Access 97. Como centralizar um texto na vertical para que fique no centro exato da caixa de texto? Pois na barra de ferramentas tem para centralizar somente na horizontal.
    Existe algum recurso?

    Obrigado.


    Última edição por lucianonunes.jw em 29/1/2014, 20:42, editado 1 vez(es)
    good guy
    good guy
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Alinhar texto na vertical Empty Alinhar texto na vertical

    Mensagem  good guy 24/10/2012, 18:37

    Olá luciano,

    Você já tentou alinhar pela tabela?SeuCampo=>Geral=>Alinhamento do Texto?

    Para dispor na vertical, descobri este código na internet:

    Private Sub SuaCaixadeTexto_DblClick(Cancel As Integer) 'Coloque uma caixa de texto chamada vText no form.
    '==============================
    ' copy and paste this code
    ' created by hafaba in accessforums.net
    ' Permission given to use and to change this code
    ' provided my name remain unchanged
    '==============================
    Dim NumberofLine As Integer
    Dim TextboxWidth As Single
    Dim TextboxHeight As Single
    Dim LengthOfText As Integer

    Const FONTSIZEPERPIXEL = 100

    'MsgBox Me.vText.Width
    'MsgBox Me.vText.Height
    'MsgBox Len(Me.myText)

    LengthOfText = Len(Me.SuaCaixadeTexto)
    TextboxWidth = Me.vText.Width
    TextboxHeight = Me.vText.Height


    NumberofLine = Int(LengthOfText * FONTSIZEPERPIXEL / TextboxWidth)
    Me.SuaCaixadeTexto.Vertical = (Me.vText.Height - (FONTSIZEPERPIXEL * NumberofLine)) / 2

    'MsgBox NumberofLine

    Me.vText = Me.SuaCaixadeTexto 'Deixe a caixa de texto vText com sua propriedade visible = false

    End Sub
    avatar
    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 12/10/2011

    [Resolvido]Alinhar texto na vertical Empty Re: [Resolvido]Alinhar texto na vertical

    Mensagem  lucianonunes.jw 24/10/2012, 23:37

    good guy,

    obrigado pelo retorno. Mas não consegui fazer o seu código funcionar. tem como você me enviar um bd com o exemplo?

    obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Alinhar texto na vertical Empty Re: [Resolvido]Alinhar texto na vertical

    Mensagem  JPaulo 25/10/2012, 10:58

    Veja este exemplo do Lebans;

    http://www.lebans.com/rotatetext.htm


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Alinhar texto na vertical Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Alinhar texto na vertical Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Alinhar texto na vertical Folder_announce_new Instruções SQL como utilizar...
    good guy
    good guy
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Alinhar texto na vertical Empty Alinhar texto na vertical

    Mensagem  good guy 25/10/2012, 13:04

    Bom dia João,

    Também vi este exemplo, mas fiquei em dúvida se o que o Luciano queria era dispor o texto na vertical ou centralizá-lo verticalmente como é o caso do exemplo do Stephen Lebans. Meu exemplo:


    avatar
    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 12/10/2011

    [Resolvido]Alinhar texto na vertical Empty Re: [Resolvido]Alinhar texto na vertical

    Mensagem  lucianonunes.jw 31/10/2012, 00:20

    Caros JP e Good Guy, boa noite!

    poderiam postar os links com os exemplos?

    A respeito do questionamento feito pelo Good Guy o alinhamento é por centralizar o texto verticalmente. não é escrever a palavra na vertical. OK?

    obrigado pessoal. aguardo retorno.

    Luciano
    avatar
    Jack 8 Bauer
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/05/2015

    [Resolvido]Alinhar texto na vertical Empty Re: [Resolvido]Alinhar texto na vertical

    Mensagem  Jack 8 Bauer 12/6/2015, 17:54

    Para alinhar o Texto Verticalmente dentro de uma caixa de texto no Access 97

    basta abrir as propriedades do campo
    Guia: Formato
    Margem Superior = 0

    Cláudio Machado gosta desta mensagem


      Data/hora atual: 17/4/2021, 18:55