VB 6.0中如何使用CommonDialog控件选择电脑中D盘的图片加载在picturebo...
发布网友
发布时间：2024-10-24 04:30
共1个回答
热心网友
时间：2024-10-24 14:12
示例代码如下：
Private Sub Command1_Click()
CommonDialog1.Filter = "图片文件(*.jpg;*.gif)|*.jpg;*.gif" '设置过滤器，可添加其它图片格式，但Picture控件不支持png图片
CommonDialog1.ShowOpen
CommonDialog1.Flags = &H8 '强制将对话框打开时的目录置成当前目录
If CommonDialog1.FileName = "" Then Exit Sub
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
