Dr.Festa
|
CURITIBA
PR - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 24/09/2009 11:31 hs
Bom dia, sou novo aqui, mas estou gostando muito do site, jé que estou iniciando em VB.
Preciso enviar um texto a um textbox multiline e o mesmo tem que ser colocado na parte de baixo do text, e quando adicionar um novo texto, o texto que já esta la deve subir uma linha e o novo texto deve ser inserido na ultima linha.
Acho que é isso. Se alguem puder me ajudar fico grato. |
|
|
|
|
|
vilmarbr
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/09/2009 12:52 hs
joga o contetúdo numa variável, monta o texto como quiser e depois joga de volta no textbox.
http://www.vilmarbro.com.br
|
|
|
|
Dr.Festa
|
CURITIBA
PR - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/09/2009 15:03 hs
Obrigado pela ideia vilmarbr, mas não da pra fazer isso, já que o conteudo vai ser inserido em momentos diferentes.
Para explicar: esta textbox faz parte de uma calculadora (estou desenvolvendo para aprender apenas), onde faz o papel da "bobina de papel" como nas calculadoras de caixa de supermercado. Então, cada vez que o usuário clica em uma operação, deve-se deslocar o texto que já esta lá para cima e inserir o que esta no "lcd" na última linha. |
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/09/2009 20:25 hs
Veja se seria isto: Só para realizar o exemplo adicione 2 TextBox e um Button, um text vai ser MultLine e vai receber as informações o outro serve para inserir as informações o buton só para confirmar. Private Sub Command1_Click()
'MultiLine do text1 igual atrue
'ScrollBars do text1 igual a 2
Dim sTexto As String
sTexto = Text1.Text
'Opção 1
'Text1.Text = Text2.Text & vbCrLf & sTexto
'Fim opção 1
'Opção 2
If sTexto <> "" Then
sTexto = sTexto & vbCrLf
End If
Text1.Text = sTexto & Text2.Text
'Fim opção 2
Text2.Text = ""
End Sub É basicamente o que o Vilmar disse, seria isto? |
|
|
|
|
|
Postada em 28/09/2009 09:20 hs
Valew tekki, é quase isso, so que em vez de o texto ser inserido na primeira linha de cima do textbox, preciso que ele seja inserido na primeiro linha de baixo, ou seja o fluxo de inserção do texto é de baixo para cima. |
|
|
|
|
|
Postada em 28/09/2009 11:20 hs
Dr. esquece o textbox, o efeito desejado vc só vai conseguir com o listbox para teste faça o seguinte insira no seu projeto um listbox com a propriedade height = 840 a largura pode ser qualquer uma e coloque o seguinte código em um botão Private Sub Command1_Click()
If List1.ListCount = 0 Then
For f = 1 To 5
List1.AddItem ""
Next f
End If
List1.AddItem Text1.Text
List1.ListIndex = List1.ListCount - 1
End Sub veja se este é o efeito desejado |
|
|
|
