欢迎来到天天文库
浏览记录
ID:37712140
大小:24.25 KB
页数:13页
时间:2019-05-29
《MSFlexGrid控件的几种简单的使用方法》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、【MSFlexGrid控件的几种简单的使用方法】【日期】VBMSFlexGrid控件的几种简单的使用方法2009-01-1017:05MSFlexGrid控件的几种简单的使用方法'MSFlexGrid赋值的方法 MSFlexGrid1.TextMatrix(0,1)="老师" MSFlexGrid1.TextMatrix(1,2)="学生" MSFlexGrid1.TextMatrix(2,3)="校长" MSFlexGrid1.TextMatrix(3,4)="班主任" MSFlexGrid1.TextMatrix(4,5)="教务主任"
2、MSFlexGrid1.AddItem2 MSFlexGrid1.AddItem4 MSFlexGrid1.AddItem6 MSFlexGrid1.AddItem8``MSFLEXGRID中如何取的某个单元格的数据PrivateSubMSFlexGrid1_Click()MsgBoxMSFlexGrid1.TextMatrix(MSFlexGrid1.Row,MSFlexGrid1.Col),vbOKOnly,"提示消息"EndSubMSFlexGrid1.Row,表格中的当前行MSFlexGrid1.Col,表格中的当前列'初始化MSFlexG
3、rid DimiAsInteger MSFlexGrid1.Rows=0 Fori=0To10 MSFlexGrid1.AddItem"AA"+Str(i) 'Fori=0To10 MSFlexGrid1.Col=1 MSFlexGrid1.Row=i MSFlexGrid1.Text=CStr(i) MSFlexGrid1.Col=2 MSFlexGrid1.Row=i第13页共13页 MSFlexGrid1.Text=CStr(i)&CStr(i) MSFlexGrid1.Col=3 MSFlexGrid1.Row=i M
4、SFlexGrid1.Text=CStr(i)&CStr(i)&CStr(i) Nexti'实现MSFlexGrid控件,单行背景为浅灰,双行为兰色 DimjAsInteger WithMSFlexGrid1 .AllowBigSelection=True '设置网格样式 .FillStyle=flexFillRepeat Forj=0To.Rows-1 .Row=j:.Col=.FixedCols .ColSel=.Cols()-.FixedCols-1
5、 IfjMod2=0Then .CellBackColor=&HC0C0C0 '浅灰 Else .CellBackColor=vbBlue'兰色 EndIf Nextj EndWith '在MsFlexGrid控件单元格中插入背景图形 SetMSFlexGrid1.CellPicture=LoadPicture("f:tempsnow.bmp")'MSFlexGrid控件如何移到最后一行 MSF
6、lexGrid1.TopRow=MSFlexGrid1.Rows-1 '隐藏第一行 'PrivateSubCommand1_Click1() 'MSFlexGrid1.RowHeight(1)=0 'EndSub '隐藏第一列 'PrivateSubCommand_Click2() 'MSFlexGrid1.ColWidth(1)=0 'EndSub在MSFlexGrid上点击右键,选择属性,选择"选择模式",自己任选点击得到行代码msgrid1.Col就是你选择的列号msgrid1.Row就是你选择的行号第1
7、3页共13页msgrid1.text就是你选择单元格的内容。>>将文本赋值给MsFlexGrid的单元格MsFlexGrid.TextMatrix(3,1)=”Hello”>>在MsFlexGrid控件单元格中插入背景图形SetMsFlexGrid.CellPicture=LoadPicture(“C:temp1.bmp”)>>选中某个单元MsFlexGrid.Row=1MsFlexGrid.Col=1>>用粗体格式化当前选中单元MsFlexGrid.CellFontBold=True>>添加新的一行使用AddItem方法,用Tab字符分开不同单元格
8、的内容dimrowasstringrow=”AAA”&vbtab&”bbb”Ms
此文档下载收益归作者所有