用 MsHFlexgrid 控件和 command控件组合完成功能

'我以vsFlexGrid表格控件和普通的按钮控件为例给你举个例子:
'表格控件名: Mygrid
'按钮控件名: Command1
'注意事项:在窗体放控件的时候要将按钮控件置前!不然看不到效果的哦!
'---定义表格
Private Sub Form_Load()
  Command1.Visible = False
  With Mygrid
    .Cols = 3
    .Rows = 3
    .TextMatrix(0, 0) = "学号"
    .TextMatrix(0, 1) = "性别"
    .TextMatrix(0, 2) = "年龄"
    .TextMatrix(1, 0) = "0001"
    .TextMatrix(1, 1) = "男"
    .TextMatrix(1, 2) = "20"
    .TextMatrix(2, 0) = "0002"
    .TextMatrix(2, 1) = "女"
    .TextMatrix(2, 2) = "22"
  End With
End Sub

Private Sub Mygrid_Click()

With Mygrid
    If .Rows = 1 Or .Row = 0 Then Exit Sub
    Select Case .Col
        Case 0 '如果用户点击第一列才处理
                Command1.Top = .Top + .CellTop + 20
                Command1.Left = .Left + .CellLeft + 20
                Command1.Width = .CellWidth - 10
                Command1.Height = .CellHeight - 10
                Command1.Visible = True
                Command1.Caption = "你想要的按钮名称"
                Command1.SetFocus
        Case Else
            Command1.Visible = False
    End Select
End With
end Sub

Private Sub Command1_Click()
'编写你要处理的程序
MsgBox ("学号:" & Mygrid.TextMatrix(Mygrid.Row, 0))
End Sub
----------------------------------------------------------
以上是我的个人做法,有问题可以和我联系!大家互相帮助嘛!
呵呵.......
QQ:7422224,找我时注明VB

阅读更多
文章标签: command vb qq
个人分类: vb代码
上一篇在程序中判断一个Access数据库中有几张表
下一篇将文件从本地机拷贝到远程
想对作者说点什么? 我来说一句

MSHFlexGrid-GridEX控件

2007年10月21日 80KB 下载

没有更多推荐了,返回首页

关闭
关闭