各位大虾:
    我做了一个简单的电子相册,点"末张"时"后一张"仍然显示可用,可是此时再点击"后一张"时弹出错误提示(因为已没有后一张了),我要问的是如何做才能让点"末张"时,"后一张"不可用(变灰),这样就避免了提示出错的问题.请指教!
Private Sub Command1_Click()
num = 1
spicture (num)
End Sub

Private Sub Command2_Click()
num = num - 1
spicture (num)
End Sub

Private Sub Command3_Click()
num = num + 1
spicture (num)
End Sub

Private Sub Command4_Click()
num = max
spicture (num)
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
num = 1
spicture (num)

End Sub

今天心情不是很好,你自己看函数,所以的翻页都调用下面这个过程好了.
没有测试,没有详细说明,如果你要处理按钮状态,在这个过程里一起处理好了.

Public Sub 换页(cs As Long)
'cs 取值范围是相对比总页数的 + - 值
'调用方法:前一张 换页(-1);后一张 换页(1);第一张 换页(-max);最后一张 换页(max)
'翻到最后时,后一张按钮功能依然有效,但点击后应该无响应.

Dim i As Long
i = num + cs
   
If i > Max Then i = Max     '修正范围
If i < min Then i = min     'min 如果是固定值,请定义为常量 如 Const min = 0

If i <> num Then        ' 如果移动了位置,就去显示,否则忽略
    num = i
    spicture (num)
End If

End Sub

非常感谢!