Question

VB LoadPicture的用法 高手来看看

Private Sub Command1_Click()
On Error GoTo nofile
CommonDialog1.InitDir = "c:\windows"
CommonDialog1.Filter = "图片|*.jpg"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture( )
Exit Sub
nofile:
If Err.Number = 32577 Then Exit Sub

End Sub
各位高手小弟初学
请问 我怎么在Picture1.Picture 中装载在通用对话框中所选的图片？要用LoadPicture方法的
谢谢 会有追加的分

Answer 1

这是你的源码
Private Sub Command1_Click()
On Error GoTo nofile
CommonDialog1.InitDir = "c:\windows"
CommonDialog1.Filter = "图片|*.jpg"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture( ) '你这里没有载入任何东西，所以不会显示图片
Exit Sub
nofile:
If Err.Number = 32577 Then Exit Sub
最简源码
Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.InitDir = "c:\windows"
CommonDialog1.Filter = "图片|*.jpg"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName) '你这里没有载入任何东西，所以不会显示图片
End Sub

Answer 2

On Error GoTo CancelLoad
CommonDialog1.flags = cdlOFNHideReadOnly
CommonDialog1.ShowOpen
On Error GoTo BadLoad
'当点击“取消”后不至于删除原有的照片
If CommonDialog1.FileName = "" Then
Exit Sub
Else
Image1.Picture = LoadPicture(CommonDialog1.FileName)
'保存文件名
img1 = CommonDialog1.FileName
End If
On Error GoTo 0
On Error GoTo 0
Exit Sub

Answer 3

Private Sub Command1_Click()
On Error GoTo nofile
Dim strFileName As String
CommonDialog1.InitDir = "c:\windows"
CommonDialog1.Filter = "图片|*.jpg"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName
If strFileName <> "" Then
Picture1.Picture = LoadPicture(strFileName)
End If
Exit Sub
nofile:
If Err.Number = 32577 Then Exit Sub

End Sub