vb高手进来帮我看下这个程序么

来源：百度知道 编辑：UC知道 时间：2024/06/07 03:03:25
Private Sub Command1_Click()
On Error GoTo LoadErr '当载入图片发生错误时跳到LoadErr处
If Option1.Value = True Then '当单击了Option1控件时
Image1.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面") '载入red.jpg图片，并显示在Image1控件中。
End If
LoadErr: '设置捕获错误标签
If Err.Number = 53 Then '当发生错误时
MsgBox Err.Description, vbOKOnly + vbCritical, "错误" '显示错误信息
End If
End Sub

为什么我按了command1但是图片不显示啊？我的图片路径也是正确的啊。很急，希望大虾能帮我看看，最好自己运行下哈，不胜感激
我按你说的改了路径。但是运行了直接就显示出图片了？？？？？我想的是按下command1按钮才显示啊！！！5555555
晕死。还是不行啊，显示不出来

Private Sub Command1_Click()
On Error GoTo LoadErr '当载入图片发生错误时跳到LoadErr处
If Option1.Value = True Then '当单击了Option1控件时
Image1.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面") '载入red.jpg图片，并显示在Image1控件中。
image1.refrash '''刷新 ,应该是这个吧,要不可能有别的函数刷新
End If
exit sub'这个你自己理解一下吧
LoadErr: '设置捕获错误标签
If Err.Number = 53 Then '当发生错误时
MsgBox Err.Description, vbOKOnly + vbCritical, "错误" '显示错误信息
End If
End Sub

Private Sub Command1_Click()
On Error GoTo LoadErr '当载入图片发生错误时跳到LoadErr处
If Option1.Value = True Then '当单击了Option1控件时
Image1.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\red.jpg")'载入red.jpg图片，并显示在Image1控件中。
End If
LoadErr: '设置捕获错误标签
If Err.Number = 53 Then '当发生错误时
MsgBox Err.Description, vbOKOnly + vbCritical, "错误" '