Partial Class ProjectInstaller Inherits System.Configuration.Install.Installer 'Installer 重写 Dispose,以清理组件列表。 _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub '组件设计器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下过程是组件设计器所必需的 '可使用组件设计器修改它。 '不要使用代码编辑器修改它。 Private Sub InitializeComponent() Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller() Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller() ' 'ServiceProcessInstaller1 ' Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem Me.ServiceProcessInstaller1.Password = Nothing Me.ServiceProcessInstaller1.Username = Nothing ' 'ServiceInstaller1 ' Me.ServiceInstaller1.Description = "AUTS_DataService" Me.ServiceInstaller1.DisplayName = "AUTS_DataService" Me.ServiceInstaller1.ServiceName = "AUTS_DataService" Me.ServiceInstaller1.StartType = System.ServiceProcess.ServiceStartMode.Automatic ' 'ProjectInstaller ' Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1}) End Sub Private WithEvents ServiceInstaller1 As ServiceProcess.ServiceInstaller Private WithEvents ServiceProcessInstaller1 As ServiceProcess.ServiceProcessInstaller End Class