以下是引用苏州老街在2016/12/20 11:09:00的发言:
老师,下面代码无法黏贴。
<DllImport("user32.dll", EntryPoint := "SendMessage")> _
Public Function SendMessage(hWnd As IntPtr, wMsg As Integer, wParam As Integer, lParam As Integer) As Integer
End Function
\'获取滚动条位置
<DllImport("user32")> _
Public Function GetScrollPos(hwnd As IntPtr, nBar As Integer) As Integer
End Function
\'设置滚动条位置
<DllImport("user32.dll")> _
Public Function SetScrollPos(hWnd As IntPtr, nBar As Integer, nPos As Integer, bRedraw As Boolean) As Integer
End Function
Public Const EM_LINESCROLL As Integer = &Hb6