|
转贴(电脑报):VBA开发实用指南(16) changepage (3) End Sub Private Sub shpMap4_Click() changepage (4) End Sub '“上一步”按钮单击事件 Private Sub cmdBack_Click() If indeXPanel > 0 Then changepage (indeXPanel - 1) End If End Sub '“下一步”按钮单击事件 Private Sub cmdNext_Click() If indeXPanel < P_Count Then changepage (indeXPanel + 1) End If End Sub '“取消”按钮单击事件 Private Sub cmdCancel_Click() '关闭窗体 Unload Me End Sub '“完成”按钮单击事件 Private Sub cmdFinish_Click() Application.ScreenUpdating = False '调用模块中创建文档的过程，即窗体和模块的接口过程 CreateNewDoc (True) End Sub '窗体初始化事件 Private Sub UserForm_Initialize() indeXPanel = 0 mpgWizardPage.Value = 0 changepage (0) init_Controls End Sub 3.编制模块 模块用于保存向导程序中公用的代码，在工程资源管理器中添加标准模块，命名为“Common”，然后输入代码(也可模仿窗体的导入操作，将Word提供的向导程序包含的模块导入，参考并使用其中的很多过程)，如下所示： '启动向导，即向导程序的入口 Public Sub StartWizard() '显示窗体 frmHKWiz.Show End Sub '创建新文档的过程，通过“fDummy”参数可使该Public类型的过程不在Word的“宏”列表中出现。 Public Sub CreateNewDoc(fDummy As Boolean) Application.ScreenUpdating = False '设置鼠标为“等待”形状 System.Cursor = wdCursorWait '获取向导程序的模板 Set objWizTemplate = ActiveDocument.AttachedTemplate
| 
