I have problem here, When the image not found, then I want to show Image is not Available. But When the image not available is shown, I unable to clear that image before another image is shown. How to clear this?
Code:Private Sub ListView3_ItemClick(ByVal item As MSComctlLib.ListItem)
Pesttable.MoveFirst
Pesttable.Move CLng(item.Index - 1)
sTarikh = item.Text
Command21.Enabled = True
Command22.Enabled = True
Form18.getID = Pesttable.Fields("id").Value
Text21.Text = Pesttable.Fields("Nama Perosak").Value & ""
Text23.Text = Pesttable.Fields("Nama Sintifik").Value & ""
Text24.Text = Pesttable.Fields("Tanda serangan").Value & ""
Picture2.Cls
Picture2.AutoRedraw = True
Picture2.ScaleMode = vbPixels
On Error GoTo error3:
Picture2.PaintPicture LoadPicture(Pesttable.Fields("Gambar")), 0, 0, 200, 200
Exit Sub
error3:
If Err.Number = 481 Then
Dim strImagePath As String
strImagePath = App.Path & "\ancaman padi\NoImage.gif"
Picture2.Picture = LoadPicture(strImagePath)
Picture2.AutoRedraw = False
Picture2.Cls
Exit Sub
End If
End Sub
