基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

       利用控件开发的office嵌入vb.net窗体，OfficeViewer是ocx控件

VERSION 5.00
Object = "{0DB2A541-9FC9-41FE-8869-62AF866AA3F8}#1.0#0"; "oa.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   7980
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   12120
   LinkTopic       =   "Form1"
   ScaleHeight     =   7980
   ScaleWidth      =   12120
   StartUpPosition =   3  '窗口缺省
   Begin OALib.OA OA1 
      Height          =   7215
      Left            =   120
      TabIndex        =   4
      Top             =   720
      Width           =   11895
      _Version        =   65536
      _ExtentX        =   20981
      _ExtentY        =   12726
      _StockProps     =   0
   End
   Begin VB.CommandButton PrintDoc 
      Caption         =   "打印"
      Height          =   375
      Left            =   10200
      TabIndex        =   7
      Top             =   120
      Width           =   855
   End
   Begin VB.CommandButton 保存到服务器 
      Caption         =   "保存到服务器"
      Height          =   375
      Left            =   8400
      TabIndex        =   6
      Top             =   120
      Width           =   1695
   End
   Begin VB.CommandButton OpenServer 
      Caption         =   "从服务器打开"
      Height          =   375
      Left            =   6600
      TabIndex        =   5
      Top             =   120
      Width           =   1695
   End
   Begin VB.CommandButton Toolbars 
      Caption         =   "显示/隐藏 工具栏"
      Height          =   375
      Left            =   4800
      TabIndex        =   3
      Top             =   120
      Width           =   1695
   End
   Begin VB.CommandButton CloseDocument 
      Caption         =   "关闭"
      Height          =   375
      Left            =   3480
      TabIndex        =   2
      Top             =   120
      Width           =   1215
   End
   Begin VB.CommandButton SaveDocument 
      Caption         =   "保存文档"
      Height          =   375
      Left            =   1920
      TabIndex        =   1
      Top             =   120
      Width           =   1455
   End
   Begin VB.CommandButton OpenDocument 
      Caption         =   "打开文档"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CloseDocument_Click()
OA1.Close
End Sub

Private Sub OpenDocument_Click()
OA1.OpenLocalDialog
End Sub

Private Sub PrintDocument_Click()
OA1.Print
End Sub

Private Sub OpenServer_Click()
Dim url As Variant
url = InputBox("http://www.officeocx.com/demo/sample.ppt", "Open a PowerPoint slide file from the server:")
OA1.OpenWebFile url
End Sub

Private Sub PrintDoc_Click()
On Error GoTo Word
Dim XX As New Word.Application
Set XX = CreateObject("word.application")
With XX
        .Documents.Open FileName:="C:\Documents and Settings\user\桌面\新建 Microsoft Word 文档.doc", ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=0
        .Visible = False
End With

XX.ActiveDocument.PrintOut (False)
XX.Application.Quit
Set XX = Nothing
Exit Sub
Word:
    MsgBox "解决方法:" & vbCrLf & vbCrLf & "一,请确认是否安装OFFICE WORD." & vbCrLf & "二,请确认是否安装打印机", vbOKOnly vbInformation, "提示"
    Exit Sub
End Sub

Private Sub SaveDocument_Click()
OA1.SaveLocalDialog
End Sub

Private Sub SaveServer_Click()
OA1.SaveWebFile "http://www.officeocx.com/demo/SaveFile.php"
'You can find your save file in http://www.officeocx.com/demo/temp.ppt. The SaveFile.php get the post request and save it to temp.ppt.
End Sub

Private Sub Toolbars_Click()
If OA1.GetToolbarsIsShow = True Then
OA1.ShowToolbars False
Else
OA1.ShowToolbars True
End If
End Sub