VB图片浏览器设计问题

来源：百度知道编辑：UC知道时间：2024/05/15 02:12:22

我设计的图片浏览器有翻转图片放大缩小图片的功能,但我有个问题是,当我还没有打开图片时,单击了翻转图片放大缩小图片这些功能的按钮,就会出现错误,我想用一个语句加MSGBOX来处理掉,请问应该怎样设计这个语句?
我目前是用按钮的Enabled这个属性来实现的
P1是Picture,C1是CommonDialog
下面是浏览图片和翻转图片的代码:

Private Sub C1_Click()
Cm1.Filter = "图片(*.bmp;*.ico)|*.bmp;*.ico|图片(*.jpg;*.ico)|*.jpg;*.ico|所有图片(*.*)|*.*"
Cm1.FilterIndex = 3
Cm1.CancelError = False
Cm1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Cm1.ShowOpen
If Len(Cm1.FileName) = 0 Then Exit Sub
f = Split(Cm1.FileName, Chr(0))
n = UBound(f)
For i = 1 To n
f(i) = f(0) & "\" & f(i)
Next i
If n <> 0 Then
P1.PaintPicture LoadPicture(f(1)), 0, 0, P1.ScaleWidth, P1.ScaleHeight
C2.Enabled = True
C3.Enabled = True
C4.Enabled = True
C5.Enabled = True
C6.Enabled = True
C7.Enabled = True
Else
P1.PaintPicture LoadPicture(Cm1.FileName), 0, 0, P1.ScaleWidth, P1.ScaleHeight
C2.

在过程里面加入错误捕捉代码
如下

sub xxx()
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------

这里是过程代码

'------------------------------------------------
Exit Sub
'----------------
ToExit:
err.clear
msgbox "处理过程出现错误,如果你不需要提示,请将本句注释掉"
end sub

同vb设计一个图片浏览器~ 谁知道VB 怎么设计一个图片浏览器？还有就是VB设计图片的像素采集，谢谢啦 VB制作图片浏览器 VB 浏览器问题 vb浏览器超链接问题 VB编程设计问题 VB设计的问题 VB设计理念问题？ VB设计程序问题 VB设计问题