45 lines
1.5 KiB
VB.net
45 lines
1.5 KiB
VB.net
Imports System.ServiceProcess
|
|
|
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
|
Partial Class TCService
|
|
Inherits ServiceBase
|
|
|
|
'UserService überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
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
|
|
|
|
'Wird vom Komponenten-Designer benötigt.
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
' Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
|
|
' Sie kann mit dem Komponenten-Designer geändert werden. Das Bearbeiten mit
|
|
' dem Code-Editor ist nicht möglich.
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|
Private Sub InitializeComponent()
|
|
Me.EventLog1 = New System.Diagnostics.EventLog()
|
|
CType(Me.EventLog1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
'
|
|
'EventLog1
|
|
'
|
|
Me.EventLog1.Log = "Application"
|
|
Me.EventLog1.Source = "TCService"
|
|
'
|
|
'TCService
|
|
'
|
|
Me.CanShutdown = True
|
|
Me.ServiceName = "TCService"
|
|
CType(Me.EventLog1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
|
|
End Sub
|
|
Friend WithEvents EventLog1 As System.Diagnostics.EventLog
|
|
|
|
End Class
|