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

VB技巧问答10000例 VB技巧问答10000例

可 以 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>