Private Sub Command1_Click() With MSHFlexGrid1 .Row = 1: .Col = 1 .CellPicture = Image1.Picture End With End Sub
Private Sub Form_Load() '行高 MSHFlexGrid1.RowHeight(1) = 800 MSHFlexGrid1.ColWidth(1) = 1000 End SubPrivate Sub Command1_Click() '指定行列加载图片 MSHFlexGrid1.Col = 2 MSHFlexGrid1.Row = 1 Set MSHFlexGrid1.CellPicture = LoadPicture(App.Path & "\back.bmp") End Sub
要在字段上加图标,怎么加?? 比如: ico + 用户名 ico + 密码 aa aa bb bb cc cc 在用户名和密码前加图标,怎么加??
Private Sub Command1_Click() With MSHFlexGrid1 .Row = 1: .Col = 1 Set .CellPicture = Image1.Picture .Text = "字段名" End With End Sub
With MSHFlexGrid1
.Row = 1: .Col = 1
.CellPicture = Image1.Picture
End With
End Sub
'行高
MSHFlexGrid1.RowHeight(1) = 800
MSHFlexGrid1.ColWidth(1) = 1000
End SubPrivate Sub Command1_Click()
'指定行列加载图片
MSHFlexGrid1.Col = 2
MSHFlexGrid1.Row = 1
Set MSHFlexGrid1.CellPicture = LoadPicture(App.Path & "\back.bmp")
End Sub
比如:
ico + 用户名 ico + 密码
aa aa
bb bb
cc cc
在用户名和密码前加图标,怎么加??
With MSHFlexGrid1
.Row = 1: .Col = 1
Set .CellPicture = Image1.Picture
.Text = "字段名"
End With
End Sub
不行啊!