<DllImport("user32.dll", SetLastError:=True)> _
Public Function GetScrollInfo(hWnd As IntPtr, _
<MarshalAs(UnmanagedType.I4)>fnBar As SBOrientation, _
<MarshalAs(UnmanagedType.Struct)>ByRef lpsi As SCROLLINFO) As Integer
End Function
VB Signature:
Declare Function GetScrollInfo Lib "user32" (ByVal hWnd As IntPtr, ByVal fnBar As ScrollBarDirection, ByRef lpsi As SCROLLINFO) As Integer
// Returns the width of a UserControl containing a RichTextBox
// such that no horizontal scrollbar will be needed
public int PreferredWidth
{
get
{
int MINWIDTH = 200;
int BORDERWIDTH = SystemInformation.Border3DSize.Width;
int SCROLLBARWIDTH = SystemInformation.VerticalScrollBarWidth;
SCROLLINFO si = new SCROLLINFO();
si.cbSize = Marshal.SizeOf( si );
si.fMask = (int) ScrollInfoMask.SIF_RANGE;
GetScrollInfo( RichTextBox1.Handle, (int) ScrollBarDirection.SB_HORZ, ref si );
Private Function GetScrollBarPageSize(ByVal hWnd As IntPtr, ByVal fnBar As Integer) As Integer
Dim si As New SCROLLINFO
With si
.cbSize = Len(si)
.fMask = ScrollInfoMask.SIF_PAGE
End With
Dim lRet As Integer = GetScrollInfo(hWnd, fnBar, si)
If lRet <> 0 Then
Return si.nPage
Else
Return -1
End If
End Function
Alternative Managed API:
Do you know one? Please contribute it!
The GetScrollInfo API
2/6/2012 11:18:17 PM - -202.74.138.1
SCROLLINFO - Scrollbar information
2/6/2012 11:19:03 PM - -202.74.138.1
SBOrientation - Scollbar orientation
9/12/2012 9:11:30 PM - -217.35.245.229
The SetScrollInfo API
9/12/2012 9:15:24 PM - -217.35.245.229
Gets the ScrollBar Position for a given Control/Window.
2/6/2012 10:57:28 PM - -202.74.138.1
Please edit this page!
Do you have...
helpful tips or sample code to share for using this API in managed code?
corrections to the existing content?
variations of the signature you want to share?
additional languages you want to include?
Select "Edit This Page" on the right hand toolbar and edit it! Or add new pages containing supporting types needed for this API (structures, delegates, and more).