加日期控件,加combox控件方法是相同的 Private Sub Form_Load() Dim i As IntegerMSHFlexGrid1.Cols = 5 MSHFlexGrid1.Rows = 5MonthView1.ZOrder MSHFlexGrid1.ColWidth(1) = MonthView1.Width MSHFlexGrid1.RowHeight(2) = MonthView1.HeightMonthView1.Left = MSHFlexGrid1.Left + MSHFlexGrid1.ColPos(1) MonthView1.Top = MSHFlexGrid1.Top + MSHFlexGrid1.RowPos(2) End Sub
Private Sub Form_Load()
Dim i As IntegerMSHFlexGrid1.Cols = 5
MSHFlexGrid1.Rows = 5MonthView1.ZOrder
MSHFlexGrid1.ColWidth(1) = MonthView1.Width
MSHFlexGrid1.RowHeight(2) = MonthView1.HeightMonthView1.Left = MSHFlexGrid1.Left + MSHFlexGrid1.ColPos(1)
MonthView1.Top = MSHFlexGrid1.Top + MSHFlexGrid1.RowPos(2)
End Sub