Results 1 to 2 of 2

Thread: Change from WindowsForm to windows service...

  1. #1

    Thread Starter
    Member
    Join Date
    Nov 2005
    Posts
    33

    Change from WindowsForm to windows service...

    Hello to all,
    I hope that you could help me,

    I create a windowsForm with just two buttons one is Start and other is Stop (to simulate the start and stop of my windows service).
    The project is running fine, now i want to change to Windows Service, i think that is possibel i hope so .

    How can i do it?

    This is the code that i have in my windowsForm to start running the project.

    Thanks for your time.

    VB Code:
    1. Imports SifoxPM.MainConnection
    2. Imports System.Threading
    3.  
    4.  
    5. Public Class Form1
    6.     Inherits System.Windows.Forms.Form
    7.  
    8. #Region " Windows Form Designer generated code "
    9.  
    10.     Public Sub New()
    11.         MyBase.New()
    12.  
    13.         'This call is required by the Windows Form Designer.
    14.  
    15.         InitializeComponent()
    16.  
    17.         'Add any initialization after the InitializeComponent() call
    18.  
    19.     End Sub
    20.  
    21.     'Form overrides dispose to clean up the component list.
    22.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    23.         If disposing Then
    24.             If Not (components Is Nothing) Then
    25.                 components.Dispose()
    26.             End If
    27.         End If
    28.         MyBase.Dispose(disposing)
    29.     End Sub
    30.  
    31.     'Required by the Windows Form Designer
    32.     Private components As System.ComponentModel.IContainer
    33.  
    34.     'NOTE: The following procedure is required by the Windows Form Designer
    35.     'It can be modified using the Windows Form Designer.  
    36.     'Do not modify it using the code editor.
    37.     Friend WithEvents btn_start As System.Windows.Forms.Button
    38.     Friend WithEvents btn_stop As System.Windows.Forms.Button
    39.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    40.         Me.btn_start = New System.Windows.Forms.Button
    41.         Me.btn_stop = New System.Windows.Forms.Button
    42.         Me.SuspendLayout()
    43.         '
    44.         'btn_start
    45.         '
    46.         Me.btn_start.Location = New System.Drawing.Point(102, 54)
    47.         Me.btn_start.Name = "btn_start"
    48.         Me.btn_start.Size = New System.Drawing.Size(88, 32)
    49.         Me.btn_start.TabIndex = 0
    50.         Me.btn_start.Text = "Start"
    51.         '
    52.         'btn_stop
    53.         '
    54.         Me.btn_stop.Location = New System.Drawing.Point(102, 110)
    55.         Me.btn_stop.Name = "btn_stop"
    56.         Me.btn_stop.Size = New System.Drawing.Size(88, 32)
    57.         Me.btn_stop.TabIndex = 1
    58.         Me.btn_stop.Text = "Stop"
    59.         Me.btn_stop.Enabled = False
    60.         '
    61.         'Form1
    62.         '
    63.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    64.         Me.ClientSize = New System.Drawing.Size(292, 271)
    65.         Me.Controls.Add(Me.btn_stop)
    66.         Me.Controls.Add(Me.btn_start)
    67.         Me.Name = "Form1"
    68.         Me.Text = "Form1"
    69.         Me.ResumeLayout(False)
    70.  
    71.     End Sub
    72.  
    73. #End Region
    74.     Dim csection As New CriticalSection(Nothing, Nothing, Nothing)
    75.     Private Sub btn_start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_start.Click
    76.  
    77.         Dim mainThread As New Thread(AddressOf csection.MainWorkingThread)
    78.         mainThread.Start()
    79.         btn_start.Enabled = False
    80.         btn_stop.Enabled = True
    81.  
    82.     End Sub
    83.  
    84.     Private Sub btn_stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_stop.Click
    85.         btn_stop.Enabled = False
    86.         csection.EndService()
    87.  
    88.     End Sub
    89.  
    90.  
    91.  
    92. End Class
    Before this post you . After this post you . Then please Rate it .

  2. #2
    PowerPoster
    Join Date
    Aug 2005
    Location
    College Station, TX
    Posts
    4,521

    Re: Change from WindowsForm to windows service...

    Well you first need to create a new WIndows Service Project, it is a particular project type. In the service, there is an OnStart() and OnStop() sub where you put the initializing code and stopping code of the service, along with any other code you wish to do. Note that you will not see a form in the designer, just a box that allows you to add only components to it, as services tend not to have a graphical interface.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width