首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

该界面在vb中有什么控件可以实现?该怎么处理

2013-10-18 
该界面在vb中有什么控件可以实现?做一个排班系统,要在表格标题栏中分栏,在vb中用什么控件可以实现?具体属

该界面在vb中有什么控件可以实现?
做一个排班系统,要在表格标题栏中分栏,在vb中用什么控件可以实现?具体属性是什么?最好有代码。。
[解决办法]

这个 MSFlexGrid 或 MSHFlexGrid 可以实现。代码调试过。


Private Sub Form_Load()
Dim sEntry As String, i As Integer, j As Integer

With MSFlexGrid1
    .Cols = 8
    .Rows = 1
    .FixedRows = 0
    .FixedCols = 0
    sEntry = "姓名" & vbTab & "2月18日" & vbTab & "2月19日" & vbTab & "2月20日" & vbTab & "2月21日" & vbTab & "2月22日" & vbTab & "2月23日" & vbTab & "2月24日"
    .AddItem sEntry, 0
    sEntry = "姓名" & vbTab & "雨水" & vbTab & "正月初十" & vbTab & "正月十一" & vbTab & "正月十二" & vbTab & "正月十三" & vbTab & "正月十四" & vbTab & "元宵节"
    .AddItem sEntry, 1
    sEntry = "姓名" & vbTab & "星期一" & vbTab & "星期二" & vbTab & "星期三" & vbTab & "星期四" & vbTab & "星期五" & vbTab & "星期六" & vbTab & "星期日"
    .AddItem sEntry, 2
    For i = 0 To 3
        .Row = i
        For j = 0 To 7
            .Col = j
            .CellAlignment = flexAlignCenterCenter
        Next j
    Next i
            
    .Row = 2
    .Col = 1
    .CellForeColor = vbBlue
    .Col = 7
    .CellForeColor = vbBlue

    .MergeCells = flexMergeRestrictColumns
    .MergeCol(0) = True 'First Column in grid
    .FixedRows = 3
    .Row = 3
    .Col = 0
End With

End Sub

热点排行