VB中MSHFlexGrid的使用.pdf

VB-MSHFlexGrid的使用 VB-MSHFlexGrid的使用 VVBB--MMSSHHFFlleexxGGrriidd的的使使用用 直接将查询数据填入MSHFLEXGRID: Sub QueryFromSybasebyCon(Condition) With QEvent ‘ QEvent为Form名称 Con.Open strConnRemote rs.CursorLocation = adUseClient rs.CursorType = adOpenKeyset On Error Resume Next Rs.Openselect*whereCondition orderbyevent_ts,Con, 3, 1 ‘Condition为SQL查询条件 .MSHFlexGrid1.Redraw=False ‘重绘，可大大提高Grid的格式化后 显示速度 Set .MSHFlexGrid1.DataSource Rs Set Rs = Nothing Set Con = Nothing End With End Sub 2.设置MSHFlexGrid的格式 Sub FormatFlexGrid() With QEvent.MSHFlexGrid1 If .Rows 1 And .TextMatrix(1, 1) Then Set Column width .ColWidth(0) = 3000 Set Column header .TextMatrix(0, 0) = Test ‘设置对齐 .ColAlignment(5) = flexAlignRightCenter End If ‘设置整行的颜色 .Redraw = False .Row = 3 .Col = 0 .ColSel = .Cols - 1 .CellBackColor = RGB(254, 216, 209) .Redraw = True End With End Sub 3.支持滚轮事件 ‘模块部分 Public Cn As New ADODB.Connection Public Const GWL_WNDPROC = (-4) Public Const WM_COMMAND = H111 Public Const WM_MBUTTONDOWN = H207 Public Const WM_MBUTTONUP = H208 Public Const WM_MOUSEWHEEL = H20A Public Oldwinproc As Long Public Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function CallWindowProc Lib user32 Alias CallWindowProcA (ByVal lpPrevWndFunc