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
好像只有容器控件才可以加入其它控件吧.
只不过他里面的每一个单元格都可以LOAD一幅图做背景而已
' 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