使用 Asp.net/VB.net 开发 MS Project 应用程序

• 下载 WebApplication.zip - 48.3 KB

引言

本文提供关于如何开始使用 Asp.net 开发 Microsoft Project 应用程序的一个小思路。众所周知，Microsoft Project 是用于创建项目计划的工具。

背景

新版本的 Microsoft Office—2007 Microsoft Office 系统—是一个构建复合应用程序的绝佳平台。该系统不仅提供熟悉的 Microsoft Office 客户端（Office Word、Office Excel、Office InfoPath），而且还提供一些关键功能作为在客户端应用程序和服务器上提供的服务。这些服务不是简单地打包成一个整体单元，而是高度模块化的（如图 1 所示），并且每个服务都有自己的 Web 服务接口。

2007 Microsoft Office 系统中的高级功能在以下小节中列出。这些功能中的每一个单独来看都是一个强大的特性；然而，将这些不同的技术组合成一个集成的平台才使组合成为可能。这种集成使得复合应用程序的交付和部署成为可能，而不会过度增加整个平台、工具和架构的复杂性。

通过这篇文章，我将向大家介绍如何开始使用 asp.net 开发 Microsoft Project 应用程序。

使用代码

第一步

添加 Microsoft Office Project 12.0 对象库的引用

在解决方案资源管理器中，右键单击并选择添加引用。然后选择 COM 组件
并选择 Microsoft Office Project 12.0 对象库。然后单击“确定”。

使用以下代码行将 Microsoft Office Project 12.0 对象库添加到 visual studio.net 中。

Imports Microsoft.Office.Interop.MSProject

打开现有项目

在这里，我们需要创建一个 Application 对象的实例，然后使用 Application 对象中的 FileOpenEX 函数，我们可以打开我们需要打开的项目，并使用 application.visible=true 来查看项目文件。

Dim appclass As New Application
appclass.FileOpenEx("C:\filename.mpp")
appclass.Visible = True

通过使用 application.ActiveProject 为接口项目创建一个对象

Dim project As Project = appclass.ActiveProject

向特定项目添加资源

需要使用的代码来向项目添加资源是
project.Resources.Add("A", 1)
project.Resources.Add("B", 2)
project.Resources.Add("C", 3)
project.Resources.Add("D", 4)
project.Resources.Add("E", 5)

向项目添加任务

这里将介绍如何向特定项目添加任务。例如，如果我们想添加一个名为“需求收集”的新任务，您可以使用

Dim task As Task = project.Tasks.Add("Requirment Collection")

现在我们将为特定任务分配一个开始日期和结束日期。

task.Start = "08/1/2007"
task.Finish = "10/25/2007"

现在我们将通过以下方式向特定项目添加资源

task.Assignments.Add(task.ID, 1)
task.Assignments.Add(task.ID, 2)

现在我们将项目的任务设置为里程碑

task.Milestone = true/False

然后我们需要告诉这个任务是主任务还是子任务，通过为 outline 属性赋值

task.OutlineLevel

我们可以根据任务的级别分配 1 或 2 或 3。

显示 MS Project 的不同视图

通过使用 project 12.0 库控件，我们可以显示不同类型的视图，如资源图表、网络图、详细甘特图等。
这是使用此代码行显示不同类型视图的代码。

例如，如果我们想显示资源图表

appclass.ViewApply("Resource Graph").

同样，如果想显示网络图，我们可以使用

appclass.ViewApply("Network Diagram").

同样，我们可以使用以下代码行来显示不同类型的视图。

appclass.ViewApply("Detail Gantt")
appclass.ViewApply("Leveling Gantt")
appclass.ViewApply("Tracking Gantt")
appclass.ViewApply("Task Sheet")
appclass.ViewApply("Descriptive Network Diagram")
appclass.ViewApply("Relationship Diagram")

结论

在本文中，我们探讨了如何打开 Microsoft Project，添加任务、添加资源，并使用 asp.net 完成其他一些任务。希望大家喜欢它..

关于 Ihsan

Ihsan 是一位从事多年的 microsoft.net 程序员。目前在马来西亚 RANN CONSULTING SDN BHD 工作。主要使用 Visual Studio 从事 web、移动和 pocketpc 方面的工作。