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.
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