MSFlexGrid1.TextMatrix(0,0)= LoadPicture()

解决方案 »

  1.   

    Private Sub Form_Click ()
       ' Load the icons.
       MSHFlexGrid1.Row =1
       MSHFlexGrid1.Col =1
       Set MSHFlexGrid1.CellPicture =_
       LoadPicture("Icons\Computer\Trash02a.ico")
       MSHFlexGrid1.Row =1
       MSHFlexGrid1.Col =2
       Set MSHFlexGrid1.CellPicture =_
       LoadPicture("Icons\Computer\Trash02b.ico")
    End Sub
      

  2.   

    MSHFlexGrid1.Cols = 4
    MSHFlexGrid1.Rows = 4
    MSHFlexGrid1.Col = 2
    MSHFlexGrid1.Row = 2
    Set MSHFlexGrid1.CellPicture = LoadPicture("f:\logo.bmp")