加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 百科 > 正文

关于MSHFlexGrid控件的相关操作

发布时间:2020-12-15 04:05:33 所属栏目:百科 来源:网络整理
导读:刚做完机房收费系统,我们在此期间遇到了很多关于MSHflexgrid的操作。现在来总结一下关于它的一系列常见用途! 1.关于它的属性页设置:右击属性 2 :属性和方法 由于该控件涉及到的属性和方法比较多,我就介绍几个我们在机房系统中最常使用的几个吧。 .rows

刚做完机房收费系统,我们在此期间遇到了很多关于MSHflexgrid的操作。现在来总结一下关于它的一系列常见用途!

1.关于它的属性页设置:右击属性

2:属性和方法

由于该控件涉及到的属性和方法比较多,我就介绍几个我们在机房系统中最常使用的几个吧。

.rows :行属性第一行其返回值为0,依次类推

.rowsel:选中行数,可以为一个范围多行

.mouserow:鼠标所在行

.cols:列属性

.clowidth:列宽

.textmatrix(introw,intcol):返回具体某一单元各中的内容

.cellallignment:单元格中内容的对齐方式

.backcolorsel:选中单元格背景色

.remouveitem:移除某一行内容

3:事件

mousedown,mouseup :当鼠标按下或弹起时的相应的操作

clear:清除内容,一般用在防止所需内容重复加载时

4:以上是我们遇到的一些基础内容

同时,在机房收费系统中,我们遇到的将flexgrid表中的记录删除也算是接触到的一个比较新的知识,我把我的解决方法总结一下。

Private Sub flexgriduserinfo_MouseDown(Button As Integer,Shift As Integer,x As Single,y As Single) '鼠标按下时
     With flexgriduserinfo
        .Row = .MouseRow  '选中行为鼠标所在行
        currentrow = .Row '当前第几行
        .Col = 0     '以选中第0列为标准
        
     End With
     
End Sub

'mouseup事件,鼠标选中某一条记录
Private Sub flexgriduserinfo_MouseUp(Button As Integer,y As Single)
    With flexgriduserinfo
        If currentrow > 0 Then     '如果存在选中的一行
            .RowSel = currentrow     '.rowsel行为当前行即选中行
            .ColSel = .Cols - 1 '保证永远只选中一行
            
        End If
    End With
    
End Sub
Private Sub cmddelete_Click()
? ? Dim mrc As ADODB.Recordset
? ? Dim txtSQL As String
? ? Dim msgText As String
? ??
? ? ?'将删除的用户从注册表中删除
? ? txtSQL = "select * from user_info where user_ID='" & flexgriduserinfo.TextMatrix(flexgriduserinfo.Row,0) & "'"
? ? Set mrc = ExecuteSQL(txtSQL,msgText)
? ??
? ? If Not mrc.EOF Then
? ? ? ? mrc.Delete
? ? ? ? mrc.Update
? ? End If
? ??
? ? With flexgriduserinfo
? ? ? ? If .RowSel = 1 Then      '如果选中标题行,注意我这里将标题行放在了第二行所以.rowsel=1
? ? ? ? ? ? MsgBox "请选中要删除的一行!"
? ? ? ? ? ? Exit Sub
? ? ? ? End If
? ? ? ? .RemoveItem .Row         '移除要删除的一行
? ? ? ? MsgBox "用户删除成功!"
? ? ? ? Exit Sub
? ? ? ??
? ? End With
? ??
? ??
? ?
End Sub

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读