该界面在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