MsFlexGrid用法大全(转)(国外英语资料).docVIP

MsFlexGrid用法大全(转)(国外英语资料) Rules for the use of MsFlexGrid controls in VB (Collection) assign the text to the cell of MsFlexGrid MsFlexGrid.TextMatrix (3,1) = Hello inserts the background graph in the MsFlexGrid control cell Set MsFlexGrid.CellPicture=LoadPicture (C:\temp\1.bmp) Select a unit MsFlexGrid.Row=1 MsFlexGrid.Col=1 format the current selection element in bold format MsFlexGrid.CellFontBold=True add a new line Using the AddItem method, separate the contents of different cells with Tab characters Dim row as string Row=, AAA, vbtab, bbb MsFlexFrid1.addItem row How to achieve the MSFlexGrid control for the singular white background for blue background? Dim I As Integer With MSFlexGrid1 .AllowBigSelection = True sets the grid style .FillStyle = flexFillRepeat For I = 0, To,.Rows - 1 .Row = i:,.Col =.FixedCols .ColSel =.Cols () -.FixedCols - 1 If I Mod 2 = 0 Then .CellBackColor = HC0C0C0 gray Else .CellBackColor = vbBlue, blue End If Next I End With How does the MSFlexGrid control move to the last line? MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1 How do I determine if MSFlexGrid has scroll bars? Declare, Function, GetScrollRange, Lib, user32, ByVal, hWnd, As, Long, ByVal, nBar, As, Long, lpMinPos, As Long, lpMaxPos, As, Long) As Long Public, Const, SB_HORZ = H0 Public, Const, SB_VERT = H1 Public Function VsScroll (MshGrid As MSHFlexGrid) As Boolean determines the visibility of horizontal scroll bars Dim I As Long VsScroll = False I = GetScrollRange (MshGrid.hWnd, SB_HORZ, lpMinPos, lpMaxPos) If lpMaxPos lpMinPos Then VsScroll = True End Function Public Function HeScroll (MshGrid As MSHFlexGrid) As Boolean determines the visibility of the vertical scroll bar Dim I As Long HeScroll = False I = GetScrollRange (MshGrid.hWnd, SB_VERT, lpMinPos, lpMaxPos) If lpMaxPos lpMinPos Then HeScroll = True End Function When the program is running, you want to dynamically increase the number of columns in MSFlexgrid Insert a column after the second column: Private, Sub, Fo