Question

vb6 文本框滚动问题

已知用下面的语句可以让文本框下辖滚动一行或向上滚动一行
SendMessageLong Text1.hwnd, EM_LINESCROLL, 0, 1
SendMessageLong Text1.hwnd, EM_LINESCROLL, 0, -1
可是如何翻页呢？

Answer 1

Private Sub Command1_Click() '向上翻页
Text1.SetFocus
SendKeys "{PGUP}"
End Sub

Private Sub Command2_Click() '向下翻页
Text1.SetFocus
SendKeys "{PGDN}"
End Sub