MSHFLEXGRID学习笔记[2]

" style="FONT-SIZE: 9pt; COLOR: black; FONT-FAMILY: 宋体; mso-fareast-language: ZH-CN">,这样可以及大的减少了工作量!
    问题讨论:
    当MSHFlexGrid1控件出现多列或多行的情况下,此控件会自动产生滚动条,用鼠标点击时,滚动条会自动进行移动.(TEXT控件也同时在移动到相应的表格里)
   但是当用回车键移动表格时,(TEXT控件也随之移动),如果移动时行或列在表格控件之外时,列或行就会跑到控件的外面.但是不会影响到数据的传送.

   希望大家踊跃讨论,学之为用,用之代学!!!
      
Private Sub Form_Load() \'系统初始化
  TXT.Visible = False
  With MSHFlexGrid1
    .Rows = 16
    .Cols = 4
     .ColWidth(0) = 800
    .ColWidth(1) = 1500
    .ColWidth(2) = 6500
    .ColWidth(3) = 2000
    .TextMatrix(0, 1) = "时间"
    .TextMatrix(0, 2) = "安排"
    .TextMatrix(0, 3) = "备注"
    
    \'表头项居中
     .FillStyle = flexFillRepeat
     .Col = 0
     .Row = 0
     .RowSel = .Rows - 1
     .ColSel = .Cols - 1
     .CellAlignment = 4
    
     Dim CoDe As Integer