|
|
|
|
|
|
|
|
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
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]
|
|
|
|
|
