VB工程--百例80--图片的打开与删除

这道例子和百例79相类似，同样用到了CommonDialog控件

http://baike.baidu.com/view/2420618.htm

Option Explicit

Private Sub Command1_Click()
cdl1.Filter = "图片文件(*.bmp;*.jpg;*.tif)/*.bmp;*.jpg;*.tif"
cdl1.ShowOpen '显示图片
img1.Picture = LoadPicture(cdl1.FileName) '在图像框中显示打开的图片 红色的字体是这道例子的关键所在
End Sub

Private Sub Command2_Click()
img1.Picture = LoadPicture() '清除图相框中的图片
End Sub

Private Sub Command3_Click()
End
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!