msflexgrid使用细则

《msflexgrid使用细则》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB中MsFlexGrid控件的使用细则(收集)>>将文本赋值给MsFlexGrid的单元格MsFlexGrid.TextMatrix(3,1)=”Hello”>>在MsFlexGrid控件单元格中插入背景图形SetMsFlexGrid.CellPicture=LoadPicture(“C:temp1.bmp”)>>选中某个单元MsFlexGrid.Row=1MsFlexGrid.Col=1>>用粗体格式化当前选中单元MsFlexGrid.CellFontBold=True>>添加新的一行使用AddItem方法,用Tab字符分开不同单元格的内容dimrowasstringrow=”

2、AAA”&vbtab&”bbb”MsFlexFrid1.addItemrow>>怎样来实现MSFlexGrid控件单数行背景为白色，双数的行背景为蓝色?DimiAsIntegerWithMSFlexGrid1.AllowBigSelection=True’设置网格样式.FillStyle=flexFillRepeatFori=0To.Rows-1.Row=i:.Col=.FixedCols.ColSel=.Cols()-.FixedCols-1IfiMod2=0Then.CellBackColor=&HC0C0C0’浅灰Else.CellBackColor=vbBlue’兰色EndIf

3、NextiEndWith>>MSFlexGrid控件如何移到最后一行MSFlexGrid1.TopRow=MSFlexGrid1.Rows–1>>如何判断msflexgrid有无滚动条DeclareFunctionGetScrollRangeLib"user32"(ByValhWndAsLong,ByValnBarAsLong,lpMinPosAsLong,lpMaxPosAsLong)AsLongPublicConstSB_HORZ=&H0PublicConstSB_VERT=&H1PublicFunctionVsScroll(MshGridAsMSHFlexGrid)AsBoole

4、an’判断水平滚动条的可见性DimiAsLongVsScroll=Falsei=GetScrollRange(MshGrid.hWnd,SB_HORZ,lpMinPos,lpMaxPos)IflpMaxPos<>lpMinPosThenVsScroll=TrueEndFunctionPublicFunctionHeScroll(MshGridAsMSHFlexGrid)AsBoolean’判断垂直滚动条的可见性DimiAsLongHeScroll=Falsei=GetScrollRange(MshGrid.hWnd,SB_VERT,lpMinPos,lpMaxPos)IflpMaxPo

5、s<>lpMinPosThenHeScroll=TrueEndFunction>>程序运行时，想动态增加MSFlexgrid的列数在第2列后插入一列：PrivateSubForm_Load()Me.MSHFlexGrid1.Cols=5MSHFlexGrid1.Rows=2Fori=0ToMe.MSHFlexGrid1.Cols-1Me.MSHFlexGrid1.TextMatrix(0,i)=iMe.MSHFlexGrid1.TextMatrix(1,i)=iNextEndSubPrivateSubCommand1_Click()Me.MSHFlexGrid1.Cols=Me.MSH

6、FlexGrid1.Cols+1Me.MSHFlexGrid1.ColPosition(5)=3EndSub>>请教MSFlexGrid中的对齐功能的使用设置MSFlexGrid1.ColAlignment(index)=n>>得到MSFlexGrid控件中当前选中的一行msflexgrid1.rowsel就是当前选中行>>如何通过代码调节列宽度msflexgrid1.colwidth(i)=4000将MsFlexGrid控件的内容输出到文本2004-03-1914:25:18'OutDataToText'将MsFlexGrid控件中显示的内容输出到文本文件PublicSubOutDa

7、taToText(FlexAsMSFlexGrid)DimsAsStringDimiAsIntegerDimjAsIntegerDimkAsIntegerDimstrTempAsStringOnErrorGoToErtMe.MousePointer=11OnErrorResumeNextDoEventsDimFileNumAsIntegerFileNum=FreeFileOpen"d:aa.txt"ForOutputAs#FileNumWith