1,451
社区成员
发帖
与我相关
我的任务
分享
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
.RowHeight(3) = Combo1.Height + 20
.ColWidth(0) = Combo1.Width + 20
.Row = 3
.Col = 0
Combo1.Left = .Left + .CellLeft + 10
Combo1.Top = .Top + .CellTop
Check1(0).Top = Combo1.Top + (.RowHeight(3) - Check1(0).Height) \ 2
Check1(0).Left = Combo1.Left + .ColWidth(0) + (.ColWidth(1) - Check1(0).Width) \ 2
For i = 1 To 6
Check1(i).Top = Check1(0).Top
Check1(i).Left = Check1(i - 1).Left + .ColWidth(i)
Next i
.BackColorBkg = &H8000000B
End With
End Sub
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