Como obtener los nombres del equipo, NetBios y DNS en .Net

by Roy Rojas 22. junio 2009 01:50

Los nombres del equipo, dominio, NetBios, DNS, etc, estan almacenadas debidamente en clases y objetos disponibles en cualquier momento. En este ejemplo vamos a mostrar algunas de estas variables que te podrán ayudar desarrollar tus aplicaciones más facilmente.

Nombre de la Computadora o Terminal NetBios
Environment.MachineName

Versión de la aplicación que se está ejecutando
Application.ProductVersion

Nombre del dominio asociado al usuario actual
Environment.UserDomainName

Usuario que actualmente está logueado en Windows
Environment.UserName

Path donde se esta ejecutando la aplicación
Windows.Forms.Application.StartupPath

Nombre del DNS
System.Net.Dns.GetHostByName("LocalHost").HostName

Estos ejemplos te ayudarán a encontrar muchas otras variables más que están dentro de esas mismas clases.

Tags: ,

.NET | Programación

Como mover una ventana sin barra de título

by Roy Rojas 19. junio 2009 06:19

Podría ocurrir que por el diseño de alguna aplicación que estemos desarrollando en .Net, la barra de título sea incómoda o no se ajuste al diseño, entonces procedemos a quitarla (FormBorder Style = none), ahora, como hacemos para mover esta ventana?, ya que sin la barra de título esto no se podría.

Lo que tenemos que hacer es programar el move del control en algún objeto dentro del mismo form.

    Private mPoint As Point
    Private mMouseAct As Boolean

    Private Sub Form1_MouseDown(ByVal sender As Object, _
            ByVal e As MouseEventArgs) Handles MyBase.MouseDown

        mPoint = New Point(Cursor.Position.X - Me.Location.X, _
                        Cursor.Position.Y - Me.Location.Y)

        mMouseAct = True
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, _
            ByVal e As MouseEventArgs) Handles MyBase.MouseMove

        If mMouseAct = True Then
            Me.Location = New Point(Cursor.Position.X _
                          - mPoint.X, Cursor.Position.Y - mPoint.Y)
        End If

    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, _
        ByVal e As MouseEventArgs) Handles MyBase.MouseUp

        mMouseAct = False

    End Sub

Tags: ,

.NET | Programación

royrojas.com

royrojas.com forma parte del grupo DotNetcr.com, el cual, desde su creación se ha dedicado a promocionar las tecnologías .Net y herramientas que faciliten trabajo de un analista, ingeniero o arquitecto de software.