编程设计 vb打印预览控件

首先建立一个EXE工程，引用SSubTmr.dll， 添加一个类模块class，文件名写成cScrollBars '一下是代码 程序代码 Option Explicit Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 '字符串PSS的用法 End Type Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Long, ByVal fuWinIni As Long) As Long 'private declare function InitializeFlatSB(HWND) as long Private Declare Function InitialiseFlatSB Lib "comctl32.dll" Alias "InitializeFlatSB" (ByVal lHWnd As Long) As Long ' 滚动条: Private Type SCROLLINFO cbSize As Long fMask As Long nMin As Long nMax As Long nPage As Long nPos As Long nTrackPos As Long End Type Private Declare Function SetScrollInfo Lib "user32" (ByVal hwnd As Long, ByVal n As Long, lpcScrollInfo As SCROLLINFO, ByVal BOOL As Boolean) As Long Private Declare Function GetScrollInfo Lib "user32" (ByVal hwnd As Long, ByVal n As Long, LPSCROLLINFO As SCROLLINFO) As Long Private Declare Function GetScrollPos Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long) As Long Private Declare Function GetScrollRange Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long, lpMinPos As Long, lpMaxPos As Long) As Long Private Declare Function SetScrollPos Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As Long) As Long Private Declare Function SetScrollRange Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nMinPos As Long, ByVal nMaxPos As Long, ByVal bRedraw As Long) As Long Private Const SB_BOTH = 3 Private Const SB_BOTTOM = 7 Private Const SB_CTL = 2 Private Const SB_ENDSCROLL = 8 Private Const SB_HORZ = 0 Private Const SB_LEFT = 6 Private Const SB_LINEDOWN = 1 Private Const SB_LINELEFT = 0 Private Const SB_LINERIGHT = 1 Private Const SB_LINEUP = 0 Private Const SB_PAGEDOWN = 3 Private Const SB_PAGELEFT = 2 Private Const SB_PAGERIGHT = 3 Private Const SB_PAGEUP = 2 Private Const SB_RIGHT = 7 Private Const SB_THUMBPOSITION = 4 Private Const SB_THUMBTRACK = 5 Private Const SB_TOP = 6 Private Const SB_VERT = 1 Private Const SIF_RANGE = &H1 Private Const SIF_PAGE = &H2 Private Const SIF_POS = &H4 Private Const SIF_DISABLENOSCROLL = &H8 Private Const SIF_TRACKPOS = &H10 Private Const SIF_ALL = (SIF_RANGE or SIF_PAGE or SIF_POS or SIF_TRACKPOS) Private Const ESB_DISABLE_BOTH = &H3 Private Const ESB_ENABLE_BOTH = &H0 Private Const SBS_SIZEGRIP = &H10& Private Declare Function EnableScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wSBflags As Long, ByVal wArrows As Long) As Long Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long Private Const WM_NCLBUTTONDOWN = &HA1 Private Const WM_NCRBUTTONDOWN = &HA4 Private Const WM_NCMBUTTONDOWN = &HA7 ' 击中测试代码滚动条: Private Const HTHSCROLL = 6 Private Const HTVSCROLL = 7 ' 滚动条消息: Private Const WM_VSCROLL = &H115 Private Const WM_HSCROLL = &H114 Private Const WM_MOUSEWHEEL = &H20A ' 鼠标滚轮消息: Private Const WHEEL_DELTA = 120 Private Const WHEEL_PAGESCROLL = -1 Private Const SPI_GETWHEELSCROLLLINES = &H68 '『老版本滚轮是不支持这个阶层? ' nt3.51或win95 ' / /类名称为mswheel.exe无形窗口 ' / /使用findwindow得到hwnd以mswheel Private Const MSH_MOUSEWHEEL = "MSWHEEL_ROLLMSG" Private Const MSH_WHEELMODULE_CLASS = "MouseZ" Private Const MSH_WHEELMODULE_TITLE = "Magellan MSWHEEL" ' / /应用程序需要呼registerwindowmessage使用＃定义 ' / /以下，以得到消息的人数为： ' / / 1）的信息可以被发送到mswheel窗口 ' / /如果滚轮支持，是活跃（ msh_wheelsupport ） > ' / / ' / /发送信息，以mswheel窗口，使用findwindow与编号界定 ' / /类及名称以上。如果findwindow未能找到mswheel ' / /窗口或返回从sendmessage是假的，那么滚轮支持 ' / /不是现在就可以获取。 Private Const MSH_WHEELSUPPORT = "MSH_WHEELSUPPORT_MSG" Private Const MSH_SCROLL_LINES = "MSH_SCROLL_LINES_MSG" ' 平面滚动条: Private Const WSB_PROP_CYVSCROLL = &H1& Private Const WSB_PROP_CXHSCROLL = &H2& Private Const WSB_PROP_CYHSCROLL = &H4& Private Const WSB_PROP_CXVSCROLL = &H8& Private Const WSB_PROP_CXHTHUMB = &H10& Private Const WSB_PROP_CYVTHUMB = &H20& Private Const WSB_PROP_VBKGCOLOR = &H40& Private Const WSB_PROP_HBKGCOLOR = &H80& Private Const WSB_PROP_VSTYLE = &H100& Private Const WSB_PROP_HSTYLE = &H200& Private Const WSB_PROP_WINSTYLE = &H400& Private Const WSB_PROP_PALETTE = &H800& Private Const WSB_PROP_MASK = &HFFF& Private Const FSB_FLAT_MODE = 2& Private Const FSB_ENCARTA_MODE = 1& Private Const FSB_REGULAR_MODE = 0& Private Declare Function FlatSB_EnableScrollBar Lib "comctl32.dll" (ByVal hwnd As Long, ByVal int2 As Long, ByVal UINT3 As Long) As Long Private Declare Function FlatSB_ShowScrollBar Lib "comctl32.dll" (ByVal hwnd As Long, ByVal code As Long, ByVal fRedraw As Boolean) As Long Private Declare Function FlatSB_GetScrollRange Lib "comctl32.dll" (ByVal hwnd As Long, ByVal code As Long, ByVal LPINT1 As Long, ByVal LPINT2 As Long) As Long Private Declare Function FlatSB_GetScrollInfo Lib "comctl32.dll" (ByVal hwnd As Long, ByVal code As Long, LPSCROLLINFO As SCROLLINFO) As Long Private Declare Function FlatSB_GetScrollPos Lib "comctl32.dll" (ByVal hwnd As Long, ByVal code As Long) As Long Private Declare Function FlatSB_GetScrollProp Lib "comctl32.dll" (ByVal hwnd As Long, ByVal propIndex As Long, ByVal LPINT As Long) As Long Private Declare Function FlatSB_SetScrollPos Lib "comctl32.dll" (ByVal hwnd As Long, ByVal code As Long, ByVal pos As Long, ByVal fRedraw As Boolean) As Long Private Declare Function FlatSB_SetScrollInfo Lib "comctl32.dll" (ByVal hwnd As Long, ByVal code As Long, LPSCROLLINFO As SCROLLINFO, ByVal fRedraw As Boolean) As Long Private Declare Function FlatSB_SetScrollRange Lib "comctl32.dll" (ByVal hwnd As Long, ByVal code As Long, ByVal Min As Long, ByVal Max As Long, ByVal fRedraw As Boolean) As Long Private Declare Function FlatSB_SetScrollProp Lib "comctl32.dll" (ByVal hwnd As Long, ByVal index As Long, ByVal newValue As Long, ByVal fRedraw As Boolean) As Long Private Declare Function InitializeFlatSB Lib "comctl32.dll" (ByVal hwnd As Long) As Long Private Declare Function UninitializeFlatSB Lib "comctl32.dll" (ByVal hwnd As Long) As Long ' 消息返回: Implements ISubclass Private m_emr As EMsgResponse '初始化状态: Private m_bInitialised As Boolean ' 方向 Public Enum EFSOrientationConstants efsoHorizontal efsoVertical efsoBoth End Enum Private m_eOrientation As EFSOrientationConstants '样式 Public Enum EFSStyleConstants efsRegular = FSB_REGULAR_MODE efsEncarta = FSB_ENCARTA_MODE efsFlat = FSB_FLAT_MODE End Enum Private m_eStyle As EFSStyleConstants ' : Public Enum EFSScrollBarConstants efsHorizontal = SB_HORZ efsvertical = SB_VERT End Enum ' 是否有平面滚动条 Private m_bNoFlatScrollBars As Boolean ' 需要加载滚动条的具有句柄的组件句柄: Private m_hWnd As Long Private m_lSmallChangeHorz As Long Private m_lSmallChangeVert As Long ' 是否激活: Private m_bEnabledHorz As Boolean Private m_bEnabledVert As Boolean '是否显示 Private m_bVisibleHorz As Boolean Private m_bVisibleVert As Boolean ' Private m_lWheelScrollLines As Long Public Event ScrollClick(eBar As EFSScrollBarConstants, eButton As MouseButtonConstants) Public Event Scroll(eBar As EFSScrollBar