如何实现像各种向导的“下一步”，“上一步”的界面.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 9 行

可 以 Frame控 件 数 组 来 设 置 每 一 页 ,用 一 控 件 的 Tag属 性 记 信 当 前 Frame的 Index,可 将 Frame控 件 的 Bord 设 置 为 无 线 条 (none),将 每 页 的 内 容 放 入 对 应 的 Frame容 器 中 。 Next时 
    dim nIndex As integer 
    nIndex=Frame控 件 的 最 大 索 引 值 
    For i=0 to nIndex 
     Frame(i).Visible=False 
    Next 
    if val(控 件 .Tag)+1<=nIndex Then FFrame(控 件 .Tag+1).Visible=True 
    Back时 : if val(控 件 .Tag)>0 Then FFrame(控 件 .Tag-1).Visible=True 
<END>