关闭

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

标签: commandvbqq
705人阅读 评论(0) 收藏 举报
分类:

'我以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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:19987次
    • 积分:241
    • 等级:
    • 排名:千里之外
    • 原创:0篇
    • 转载:17篇
    • 译文:0篇
    • 评论:1条
    文章分类
    文章存档
    最新评论
    小说