> å°ææ¬èµå¼ç»MsFlexGridçåå
æ ¼
MsFlexGrid.TextMatrix(3,1)=âHelloâ
>> å¨MsFlexGridæ§ä»¶åå
æ ¼ä¸æå
¥èæ¯å¾å½¢
Set MsFlexGrid.CellPicture=LoadPicture(âC:\temp\1.bmpâ)
>>éä¸æ个åå
MsFlexGrid.Row=1
MsFlexGrid.Col=1
>>ç¨ç²ä½æ ¼å¼åå½åéä¸åå
MsFlexGrid.CellFontBold=True
>> æ·»å æ°çä¸è¡
使ç¨AddItemæ¹æ³,ç¨Tabå符åå¼ä¸ååå
æ ¼çå
容
dim row as string
row=âAAAâ&vbtab&âbbbâ
MsFlexFrid1.addItem row
>>ææ ·æ¥å®ç°MSFlexGridæ§ä»¶åæ°è¡èæ¯ä¸ºç½è²ï¼åæ°çè¡èæ¯ä¸ºèè²?
Dim i As Integer
With MSFlexGrid1
.AllowBigSelection = True â 设置ç½æ ¼æ ·å¼
.FillStyle = flexFillRepeat
For i = 0 To .Rows - 1
.Row = i: .Col = .FixedCols
.ColSel = .Cols() - .FixedCols - 1
If i Mod 2 = 0 Then
.CellBackColor = &HC0C0C0 â æµ
ç°
Else
.CellBackColor = vbBlue â å
°è²
End If
Next i
End With
>> MSFlexGridæ§ä»¶å¦ä½ç§»å°æåä¸è¡
MSFlexGrid1.TopRow = MSFlexGrid1.Rows â 1
>>å¦ä½å¤æmsflexgridææ æ»å¨æ¡
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 âå¤ææ°´å¹³æ»å¨æ¡çå¯è§æ§
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 âå¤æåç´æ»å¨æ¡çå¯è§æ§
Dim i As Long
HeScroll = False
i = GetScrollRange(MshGrid.hWnd, SB_VERT, lpMinPos, lpMaxPos)
If lpMaxPos <> lpMinPos Then HeScroll = True
End Function
>>ç¨åºè¿è¡æ¶ï¼æ³å¨æå¢å MSFlexgridçåæ°
å¨ç¬¬2ååæå
¥ä¸åï¼
Private Sub Form_Load()
Me.MSHFlexGrid1.Cols = 5
MSHFlexGrid1.Rows = 2
For i = 0 To Me.MSHFlexGrid1.Cols - 1
Me.MSHFlexGrid1.TextMatrix(0, i) = i
Me.MSHFlexGrid1.TextMatrix(1, i) = i
Next
End Sub
Private Sub Command1_Click()
Me.MSHFlexGrid1.Cols = Me.MSHFlexGrid1.Cols + 1
Me.MSHFlexGrid1.ColPosition(5) = 3
End Sub
>> 请æMSFlexGridä¸ç对é½åè½ç使ç¨
设置MSFlexGrid1.ColAlignment(index)=n
>>å¾å°MSFlexGridæ§ä»¶ä¸å½åéä¸çä¸è¡
msflexgrid1.rowselå°±æ¯å½åéä¸è¡
>> å¦ä½éè¿ä»£ç è°èå宽度
msflexgrid1.colwidth(i)=4000
追é®æè°¢æ¨å¦æ¤èå¿çåçãå¯æ¯ææ³ç¥é为ä»ä¹ FlowGrid.Left为ä»ä¹æ¾ç¤ºåºæ¹æ³åæ°æ®ç±»åæ¾ä¸å°çåå ãæå»çMicrosoflt FlexGrid control 6.0çå¼ç¨ä¸ï¼å
³äºMsflexgridéé¢æleftè¿ä¸ªå½æ°çè°ç¨ãå¯æ¯ä¸ºä»ä¹æå¨èªå·±çç¨åºéé¢ä½¿ç¨ï¼å´ç»æäºè¿æ ·çé误ç¼è¯å¢ï¼