nothing明明可以啊 e.g. VSFlexGrid1.Cell(flexcpPicture, 1, 3, 1, 3) = ImageList1.ListImages("ss").Picture If VSFlexGrid1.Cell(flexcpPicture, 1, 3, 1, 3) Is Nothing Then Debug.Print "nothing" Else Image1.Picture = VSFlexGrid1.Cell(flexcpPicture, 1, 3, 1, 3) End If
e.g.
VSFlexGrid1.Cell(flexcpPicture, 1, 3, 1, 3) = ImageList1.ListImages("ss").Picture
If VSFlexGrid1.Cell(flexcpPicture, 1, 3, 1, 3) Is Nothing Then
Debug.Print "nothing"
Else
Image1.Picture = VSFlexGrid1.Cell(flexcpPicture, 1, 3, 1, 3)
End If