• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1808
  • Last Modified:

Message Box in Windows Service

I have recently picked up programming again after a few years of not really doing any. I was previously used to VB 6 coding, but have now made the jump to VB.net 2010.

I have never created a Windows Service before so am trying to create a service that interacts with the desktop in a way that will allow me to show a message box.

For my first windows service sample/test app I wanted to create a service with 1 timer that runs for 5 seconds and on the elapsed event to show a message box of the current time.

Whatever I try, whether I use a windows forms timer control or a system.timer or ticking interactive on the service propertys box, nothing seems to work and because the message box isn't showing im uncertain what the service is doing or if the timer is even working.

So the question is, how do I create a simple windows service that throws a message box up onto the screen showing the current time at each 5 or 10 second loop?
0
Terry Rogers
Asked:
Terry Rogers
  • 4
  • 3
  • 3
  • +1
3 Solutions
 
John (Yiannis) ToutountzoglouInstructor Multiengine PilotCommented:
try this
Button ->btnStartStop
Label -> Min
Label ->Sec
Private Sub btnStartStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartStop.Click
        If btnStartStop.Text = "Start" Then
            CountDownTime = Now.AddMinutes(1/12)            
            Dim ts As TimeSpan = CountDownTime.Subtract(Now)
            Min.Text = ts.Minutes.ToString
            Sec.Text = ts.Seconds.ToString
            Timer1.Start()
            btnStartStop.Text = "Stop"
        Else
            Timer1.Stop()
            btnStartStop.Text = "Start"
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If CountDownTime < Now Then
            Timer1.Stop()
            MessageBox.Show("out of time.")
            btnStartStop.Text = "Start"
        Else

            Dim ts As TimeSpan = CountDownTime.Subtract(Now)
            Min.Text = ts.Minutes.ToString
            Sec.Text = ts.Seconds.ToString

        End If
    End Sub

Open in new window

0
 
Terry RogersIT Senior EngineerAuthor Commented:
This is a Windows Service so I don't have any forms to put a button or label onto.
0
 
John (Yiannis) ToutountzoglouInstructor Multiengine PilotCommented:
yeap you are right!!!Trying!!
0
The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

 
John (Yiannis) ToutountzoglouInstructor Multiengine PilotCommented:
0
 
Wayne Taylor (webtubbs)AstronautCommented:
To show a MessageBox from a Service, you need to use the "ServiceNotification" option....

    System.Windows.Forms.MessageBox.Show("Your Message", _
                                                                         "Caption", _
                                                                         System.Windows.Forms.MessageBoxButtons.OK, _
                                                                         System.Windows.Forms.MessageBoxIcon.Information, _
                                                                         System.Windows.Forms.MessageBoxDefaultButton.Button1, _
                                                                         System.Windows.Forms.MessageBoxOptions.ServiceNotification)

Wayne
0
 
Terry RogersIT Senior EngineerAuthor Commented:
Hmmm, getting closer, I can now see the timer event does first as I was able to put some code that logged a message each time it fired, however it still wont display a message box.

My code as it stands is attached.
Imports System.Windows.Forms
Imports System.Threading

Public Class WillNet
    Private oTimer As System.Threading.Timer
    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        Dim oCallback As New TimerCallback(AddressOf OnTimedEvent)
        oTimer = New System.Threading.Timer(oCallback, Nothing, 0, 5000)

    End Sub

    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
    End Sub

    Private Sub OnTimedEvent(ByVal state As Object)
        MessageBox.Show(Now, Me.ServiceName, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
    End Sub

End Class

Open in new window

0
 
Wayne Taylor (webtubbs)AstronautCommented:
Add a NotifyIcon and show a message from there. This is the most common method for showing messages from a service.
0
 
Terry RogersIT Senior EngineerAuthor Commented:
Just tried that with no success, even though I have ticked "Allow service to interact with desktop" it just doesn't want to show anything on screen.
0
 
Wayne Taylor (webtubbs)AstronautCommented:
0
 
Terry RogersIT Senior EngineerAuthor Commented:
A notification area isn't going to work as their wont be a notification area if a user hasn't logged on.
0
 
joriszwaenepoelCommented:
If you create a Windows Service, then one of consequences is that you can't interact with the logged on user, so you can't show a messagebox.
If you can find a trick that would allow you to do that, you will still run into problems.
If no one is logged on, should the servcie continue or wait until someone logs on?
If the service continues, and show a new messagebx, and then another one, and then another one ...

You should try to find another design.
For example: the Windows Service could write messages in a file or database.
Then when a user log on, start a WinForms app that reads the file or database and shows the messages to the user.
0

Featured Post

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

  • 4
  • 3
  • 3
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now