日期:2004年1月21日

下载该文档文档格式：DOC 更新时间：2004-12-01 下载次数：0 点击次数：1

文档基本属性

文档语言：

English

文档格式：

doc

文档作者：

guoc

关键词：

主题：

备注：

点击这里显示更多文档属性

日期:2004年1月21日星期三天气:晴朗作者:在黑暗中举起探索的火炬
VB中MsFlexGrid控件的使用细则(收集)
发表:2004-1-21 17:19:05出处:你的博客网yourblog.org
VB中MsFlexGrid控件的使用细则(收集)
>> 将文本赋值给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

下一页

文档基本属性
文档语言：	English
文档格式：	doc
文档作者：	guoc
关键词：
主题：
备注：
点击这里显示更多文档属性
经理：
单位：	SSME
分类：
创建时间：
上次保存者：
修订次数：
编辑时间：
文档创建者：
修订：
加密标识：
幻灯片：
段落数：
字节数：
备注：
演示格式：
上次保存时间：