大家都敲完学生信息管理系统和机房收费系统了,想必对MSHFLexgrid控件都有了一定的认识。在这里,我就好好的总结一下吧……
1、 添加控件
在vb中要添加部件:MicrosoftHierarchical FlexGrid Control 6.0,MSHFLexgrid控件才能出现在工具箱中。
2、 常用属性:
AddItem向网格中加入一新行
Clear 清除网格中的内容
ClearStructure清除网格的结构(映射信息)
RemoveItem从网格中清除一行
rowsel返回选中的行
colsel返回选中的列
TextMatrix设置/返回某个选定行,列的单元的文本内容
RowsLong返回网格的行的总数或者或BAND的行的总数
Colwidth()设置列宽
下面是一个删除选中行的例子(删除用户窗体):
<span style="font-size:24px;">'如果选中的是字段行,不能删除
If flexgrid1.Row = 0 Then
MsgBox "亲,这一行不能删除哦!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
'当选中的行为正在登陆的用户,不能删
If flexgrid1.TextMatrix(flexgrid1.RowSel, 0) = Trim(UserName) Then
MsgBox "正在登陆用户不能删除!", vbOKOnly + vbExclamation, "警告"
Else
txtSQL = "select * from User_Info where UserID = '" &Trim(flexgrid1.TextMatrix(flexgrid1.Row, 0)) & "'"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
flexgrid1.RemoveItem flexgrid1.Row
mrc.Delete
mrc.Update
mrc.Close
End If</span>
注意,我们在表格中删除了数据,别忘了把数据库中的数据也删了,要不然后面的运行中还是会报错的!
有了这些常用的属性,这个控件就差不多了。我们不需要把这些属性都背下来,只要多看几遍,在不会的时候多来重复重复的,就会用了……