(1)显示照片。假设表单中有一个Image1控件显示照片,显示的时候(可能在Form1.Init或Form1.Refresh里)最好写上
If Empty(照片路径)
ThisForm.Image1.Visible=.F.
Else
ThisForm.Image1.Visible=.T.
ThisForm.Image1.Picture=照片路径
EndIf
(2)至于取照片这个命令的Click,可以这样
lcPicture=GetPic()
Replace 照片路径 With lcPicture
ThisForm.Refresh
(3)处理删除照片的时候,可以在该命令按钮的Click事件中写上
Replace 照片路径 With ''
ThisForm.Refresh