Nueva leyenda de Aragón

Los "sacamantecas" del bajo Aragón
http://jms32.eresmas.net/Leyendas/leyen06/leye0603.html

Nueva leyenda de Aragón

Lobos en el alto Aragón
http://jms32.eresmas.net/Leyendas/leyen06/leye0601.html

Nueva leyenda de Aragón

Las brujas del Turbón
http://jms32.eresmas.net/Leyendas/leyen05/leye0530.html

servicio de windows

Hola a todos,
he desarrollado un servicio de windows el cual aceptaba varios parámetros a través de sus parámetros de inicio.Ahora necesito incrementar el número de parámetros y había pensado en crear
un archivo xml con dichos datos.
El problema es que en un servicio de windows no existe la propiedad Application.StarthPath y no sé como indicarle que busque el archivo de configuración en la misma carpeta que el ejecutable.

¿Alguna idea?

Imports System.Reflection
ubicacion = Assembly.GetExecutingAssembly().Location

Ping en VB NET

http://www.elguille.info/colabora/puntoNET/ar_PingVBNET.htm

Patron Singleton y formularios

Tengo un formulario MDI en el que cargo una serie de formularios hijos, pero no quiero que un formulario hijo se abra mas de una vez, como puedo controlar la cantidad de veces que se abre un formulario

Public Class Form1
  ..........
  .........
  ........
  Private Shared _instance As Form1
  ........
  Public Shared ReadOnly Property Instance As Form1
      Get
          If _instance Is Nothing OrElse _instance.IsDisposed() Then
              _instance = New Form1()
          End If

          Return _instance
      End Get
  End Property
  .............
  .............
  .............
End Class

Y de ahi en adelante, en todo tu proyecto, siempre usaras Form1.Instance y siempre estaras usando una unica instancia disponible.

SQL iniciar el servidor remoto

Para iniciar el servicio sql server, en un servidor SQL remoto ..
Utiliza la clase ServiceController (debes agregar una referencia a System.ServiceProcess.dll):

Dim sqlserver As New ServiceProcess.ServiceController("mssqlserver","servidor")
sqlserver.Stop()
sqlserver.Start()

cursor en modo Hourglass

Para poner el cursor en modo Hourglass y después devolverlo a su estado inicial,se hace de la siguiente manera

• MiForm.Cursor = Cursors.Waitcursor
• MiForm.Cursor = Cursors.Default

resolución del usuario en su pantalla

¿De que manera se puede saber la resolución que tiene el usuario en su pantalla?
puedes obtenerla mediante:

• Screen.PrimaryScreen.Bounds.Width
• Screen.PrimaryScreen.Bounds.Height

o bien

• SystemInformation.VirtualScreen.Width
• SystemInformation.VirtualScreen.Height

obtener el nombre del servidor

Para obtener el nombre del servidor de la maquina donde esta instalada la aplicación Prueba alguna de estas alternativas:

• MessageBox.Show(SystemInformation.ComputerName())
• MessageBox.Show(System.Net.Dns.GetHostName)
• MessageBox.Show(System.Environment.MachineName)