彩票走势图

1、在“项目”菜单中选择组件……

2、在控制表中选择控制"Edraw Office Viewer Component Module"。

3、点击OK按钮。

4、控制将会出现在工具箱中。

5、将控制拖放到窗体中。

6、右键单击控制然后选择代码视图选项。

7、添加NotifyCtrlReady事件并加载库文件。

Private Sub Command1_Click()
EDOffice1.OpenFileDialog
End Sub
Private Sub Command2_Click()
EDOffice1.SaveFileDialog
End Sub
Private Sub Command3_Click()
If EDOffice1.Toolbars = False Then
EDOffice1.Toolbars = True
Else
EDOffice1.Toolbars = False
End If
End Sub
Private Sub Command4_Click()
If EDOffice1.IsOpened = True Then
If EDOffice1.GetCurrentProgID = "Word.Application" Then
EDOffice1.ProtectDoc wdAllowOnlyFormFields
ElseIf EDOffice1.GetCurrentProgID = "Excel.Application" Then
EDOffice1.ProtectDoc XlProtectTypeNorma
End If
End If
End Sub
Private Sub Command5_Click()
EDOffice1.PrintDialog
End Sub
Private Sub EDOffice1_BeforeDocumentOpened()
''EDOffice1.SetValue "Password", "123"
''EDOffice1.SetValue "WritePassword", "456"
EDOffice1.DisableFileCommand wdUIDisalbeSave, True
EDOffice1.DisableFileCommand wdUIDisalbeSaveAs, True
EDOffice1.DisableFileCommand wdUIDisalbeSaveAsMenu, True
EDOffice1.DisableFileCommand wdUIDisalbePrint, True
EDOffice1.DisableFileCommand wdUIDisalbePrintQuick, True
End Sub
Private Sub EDOffice1_NotifyCtrlReady()
EDOffice1.LicenseName = ""
EDOffice1.LicenseKey = ""
End Sub

8 、运行项目。