Textbox com instruç...
 
Notifications
Clear all

Textbox com instruções de uso, Scrollbar sempre no fim 🙁

6 Posts
2 Usuários
0 Reactions
1,673 Visualizações
(@necron)
Posts: 117
Estimable Member
Topic starter
 

Ola!

Possuo uma planilha que ao abrir, o usuario se depara com uma textbox inicializada automaticamente. Essa textbox contem informações sobre como utilizar de maneira correta essa planilha. Eu ainda estou desenvolvendo...

O Meu problema é:
Sempre que abro a planilha, o Scrollbar esta puxado até o final da planilha, e aquele cursor "|" que fica piscando tambem esta no final da planilha. Eu ja tentei editar todas as propriedades possiveis para que o Scrollbar fique no inicio da textbox assim como o cursor, mas não obtive sucesso.

Segue imagem do meu problema:

Conseguem me dar uma luz?

Obrigado,
Welton

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

 
Postado : 17/10/2013 1:58 pm
(@necron)
Posts: 117
Estimable Member
Topic starter
 

Ola!

Depois de pesquisar um pouco mais no Google encontrei um codigo para deixar minha Scrollbar no começo da textbox:

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Activate()
    With Me.TextBox1
        .SetFocus
        Do
            Application.SendKeys "{pgup}"
            .CurX = 1
        Loop Until .CurLine = 1
    End With
End Sub

Mas achei muito estranho não ter uma propriedade para isso. Esse código funcionou!

Se alguém souber uma alternativa fique a vontade para postar! Vou adorar aprender.

Abçss

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

 
Postado : 17/10/2013 3:01 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Necron, a Propriedade seria :

Propriedade SelStart : Indica o ponto inicial do texto selecionado ou o ponto de inserção se não houver texto selecionado. Como define na Rotina abaixo o Valor "0" (zero) então o foco será no primeiro caracter do Texto

Troque a sua rotina pela a abaixo e veja se tem o mesmo efeito :

Private Sub UserForm_Activate()
    
    With TextBox1
        .SetFocus
        .SelStart = 0
    End With

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/10/2013 6:08 pm
(@necron)
Posts: 117
Estimable Member
Topic starter
 

Obrigado Mauro!!

Eu nunca iria encontrar, porque achei que essa propriedade deveria estar exposta aqui (Conforme imagem):

Como eu poderia saber quais são todas as propriedades disponíveis de um objeto? Algum livro talvez....

Abraços.

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

 
Postado : 18/10/2013 7:11 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Necron, um livro é sempre bom, não tenho nenhum em particular para indicar, mas, nos dias atuais a maior aliada é a internet (Google), mas eu sempre recomendo a própria ajuda do aplicativo, se ver na ajuda na janela do VBA o excel tem uma ótima biblioteca e na maioria tem até exemplos para aplicar.
Um outro recurso presente no editor do VBA é o Pesquisador de Objetos, na Janela do VBA tecle "F2" e terá todas as Propriedades, Objetos etc,

De uma olhada no site abaixo, como eu disse se pesquisar encontrara uma infinidade, até no site da Microsoft.
Objetos, propriedades e métodos
http://www.cavalcanteassociados.com.br/ ... php?id=155

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/10/2013 8:17 am
(@necron)
Posts: 117
Estimable Member
Topic starter
 

O pesquisador de Objetos do VBA é excelente! Eu sempre fiquei restrito aquelas propriedades da lateral por falta de conhecer essa rotina do VBA. Eu preciso começar a clicar mais nos botões que não conheço.

Obrigado Mauro! Excelente ajuda...

Abçs
Welton

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

 
Postado : 21/10/2013 6:54 am