Question

如何在vb中制作打开对话框打开bmp文件？

要作一个按钮，点击出现打开对话框！

Answer 1

首先，在部件里添加一个microsoft common dialog control 6.0
再加入picture控件，按钮控件
然后写入如下代码
Private Sub Command1_Click()
On Error GoTo err
CommonDialog1.Filter = "bmp文件(*.bmp)|*.bmp|所有文件(*.*)|*.*"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height
Exit Sub
err:
MsgBox "未选择文件"
End Sub