USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Controles Intrínsecos (Padrão))

Título da Dica:  Rolar o scroll de um TextBox
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  milinha_meiga@hotmail.com
coloque um textbox em seu formulario e mude as propriedades para MultiLine= true e coloque ScrollBars = 3 both

'''[CODE language=VB]
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
     (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
     lParam As Any) As Long

' Onde o IParam é o numero de linhas verticais a ser rolado.
' Onde o IParam é o numero de linhas horizontais a ser rolado.

Private Const EM_LINESCROLL = &HB6

'função rola scroll
Private Sub rolaScroll(ByRef myText As TextBox, _
   ByVal LinhasHorizontais As Integer, ByVal LinhasVerticais As Integer)
  
    SendMessage myText.hwnd, EM_LINESCROLL, ByVal LinhasHorizontais, ByVal LinhasVerticais
End Sub

Private Sub Command1_Click()
    rolaScroll Text1, 2, 5
End Sub
'''[/CODE]
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página