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.Sho

这道例子和百例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

成品图 总结

以上是内存溢出为你收集整理的VB工程--百例80--图片的打开与删除全部内容，希望文章能够帮你解决VB工程--百例80--图片的打开与删除所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。