service stops when the form loads

[subha]

The application is a convertion from vb6 to vb.net. it works perfectly fine in vb6.
In vb.net if the service is already running the form load stops the service. Can anybody explain why this happens with vb.net.

 

[jmcilhinney]

What service? My ESP is out of order today. A little more information perhaps, like the code that is executed when this form loads.

 

[subha]

service is stopped by the form load

Hi
I am running visual studio 2005 professional edition(version 8.0.50727.42. The operating system is windows 2003 server. After installing my application I am able to start the service. It is working fine. The application is designed in such a way that if you click on “OK” button the form will close. But the service will still be running. I verified this. The service still runs after closing the form. When I reopen the form the service stops. I tried debugging. The service stops at this line. The form load stops the service.


Private Sub Form_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

Kindly let me know if you have any fix for this

 

[ImDaFrEaK]

I would like to see the entire code related to this and not the fault line.

 

[subha]

service stops when the from loads

i have pasted the code. kindly advice



Private Sub form_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Dim vfa As Object

onImage.Visible = False
offImage.Visible = False

vfa = RegistryReadTheme()
If vfa = 0 Then

connectionSettingFrame(0).BackColor = System.Drawing.ColorTranslator.FromOle(&H8000000F)
formStatusframe(1).BackColor = System.Drawing.ColorTranslator.FromOle(&H8000000F)
configuredHostsFrame(2).BackColor = System.Drawing.ColorTranslator.FromOle(&H8000000F)
assignedTargetsFrame(3).BackColor = System.Drawing.ColorTranslator.FromOle(&H8000000F)
availableTargetsFrame(4).BackColor = System.Drawing.ColorTranslator.FromOle(&H8000000F)
accessControlFrame(5).BackColor = System.Drawing.ColorTranslator.FromOle(&H8000000F)
aboutframe(6).BackColor = System.Drawing.ColorTranslator.FromOle(&H8000000F)
offradio.BackColor = System.Drawing.ColorTranslator.FromOle(&H8000000F)
onRadio.BackColor = System.Drawing.ColorTranslator.FromOle(&H8000000F)

Else

connectionSettingFrame(0).BackColor = System.Drawing.ColorTranslator.FromOle(&H8FFFFFFF)

formStatusframe(1).BackColor = System.Drawing.ColorTranslator.FromOle(&H8FFFFFFF)
configuredHostsFrame(2).BackColor = System.Drawing.ColorTranslator.FromOle(&H8FFFFFFF)
assignedTargetsFrame(3).BackColor = System.Drawing.ColorTranslator.FromOle(&H8FFFFFFF)
availableTargetsFrame(4).BackColor = System.Drawing.ColorTranslator.FromOle(&H8FFFFFFF)
accessControlFrame(5).BackColor = System.Drawing.ColorTranslator.FromOle(&H8FFFFFFF)
aboutframe(6).BackColor = System.Drawing.ColorTranslator.FromOle(&H8FFFFFFF)
offradio.BackColor = System.Drawing.ColorTranslator.FromOle(&H8FFFFFFF)
onRadio.BackColor = System.Drawing.ColorTranslator.FromOle(&H8FFFFFFF)

End If


formRegistryValue = RegistryReadform ()
Diskmanagement.Visible = False
addHostButton.Visible = False
Remove.Visible = False
formStatusframe(1).Visible = True
refresh_general.Visible = False
targetAddButton.Visible = False
targetRemoveButton.Visible = False
SettingButton.Enabled = False
onRadio.Enabled = True
Call Get_Adapter_Information()

Call get_ip_address()
Me.Show()
Me.Refresh()

Dim adapterCheck As Boolean
Dim adapterLoop As Integer
If AdapterListView.Items.Count > 0 Then
For adapterLoop = 0 To AdapterListView.Items.Count - 1

If AdapterListView.Items.Item(adapterLoop).Checked = True Then
adapterCheck = True
Exit For
Else
adapterCheck = False
End If
Next
Else
adapterCheck = False
End If
Dim isInitatorFileExist, isTargetFileExist As Boolean
isInitatorFileExist = File.Exists(formRegistryValue & "\initiators.conf")
isTargetFileExist = File.Exists(formRegistryValue & "\targets.conf")




Dim straline As Object
Dim confString As String
Dim check1 As Boolean
check1 = False
If (isTargetFileExist) Then
FileOpen(1, formRegistryValue & "\targets.conf", OpenMode.Input)
Do Until (EOF(1))
straline = LineInput(1)
confString = straline
If blockdiv_check(confString) = True Then
check1 = True

' onRadio.Enabled = False
'offradio.Checked = True
End If
Loop

FileClose((1))
End If
If (isInitatorFileExist And isTargetFileExist And adapterCheck And check1) Then
onRadio.Enabled = True
Else
onRadio.Enabled = False
Exit Sub
End If



errmsg: If Err.Number <> 53 And adapterCheck = True Then
onRadio.Enabled = True

Else
onRadio.Enabled = False
End If








Dim SERVICE_STATUS_Renamed As String
SERVICE_STATUS_Renamed = ServiceStatus("", "Task Scheduler")



If UCase(SERVICE_STATUS_Renamed) = "RUNNING" Then
onRadio.Enabled = True

Else

offradio.Checked = True
End If
If (isInitatorFileExist And isTargetFileExist And adapterCheck) Then
onRadio.Enabled = True

Else
onRadio.Enabled = False

Exit Sub
End If




End Sub