mscroll.bas

电话本信息 基本上实现电话功能 自己下载侃侃吧

Attribute VB_Name = "mSCROLL"
Option Explicit

Public Enum Enum_SCROLL
  Horizontal = &H114
  Vertical = &H115
End Enum

Public Enum Enum_Directional
  'WM_VSCROLL消息：
    SB_LEFT = 6             '往左移
    SB_RIGHT = 7            '往右移。
    SB_LINELEFT = 0         '往左移动1个单元格
    SB_LINERIGHT = 1        '往右移动1个单元格
    SB_PAGELEFT = 2         '往左移动较多部分。
    SB_PAGERIGHT = 3        '往右移动较多部分。
  'WM_VSCROLL消息：
    SB_TOP = 6              '往上移
    SB_BOTTOM = 7           '往下移
    SB_LINEUP = 0           '往上移动1个单元格
    SB_LINEDOWN = 1         '往下移动1个单元格。
    SB_PAGEUP = 2           '往上移动较多部分。
    SB_PAGEDOWN = 3         '往下移动较多部分。
End Enum

'API函數，其功能是向某個窗體發送一個信息
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long


Public Sub SCROLLMOVE(ByVal hWnd As Long, ByVal SCROLL As Enum_SCROLL, ByVal Directional As Enum_Directional)
  '此函數是向某個控件的Scroll發送一個消息，使其移動一個單元格或是一部分單元格
  'hWnd是將要移動Scroll的控件句柄；
  'SCROLL是要移動的方向（水平或是垂直）
  'Directional是方向及多少單元格
  
  On Error Resume Next
  SendMessage hWnd, SCROLL, Directional, ByVal 0&
End Sub