lopezatienza.com

Buenas a todos.

En este artículo voy a explicar cómo poder cambiar el tamaño de una máquina virtual que previamente estaba marcada como "Preallocated".

Cabe destacar que con VMWare Player no es posible realizar los pasos a seguir, ya que NO contiene la herramienta con la que desarrollo el ejemplo (vmware-vdiskmanager), necesitaremos VMWare Server o VMWare Workstation, no he tenido la ocasión de comprobar otras herramientas, para más información de descargas http://downloads.vmware.com/.

Read more »

Buenas a todos.

Os muestro una función para comprobar la fuerza de una contraseña.

Se comprueba que la contraseña tenga una longitud de 8 caracteres, que al menos uno de ellos sea minúscula, una mayúscula, un número y un carácter especial:

Private Function IsStrongPassword(ByVal password As String) As Boolean
     Dim upperCount As Integer = 0
     Dim lowerCount As Integer = 0
     Dim digitCount As Integer = 0
     Dim symbolCount As Integer = 0

     For i As Integer = 0 To password.Length - 1
          If [Char].IsUpper(password(i)) Then
               upperCount += 1
          ElseIf [Char].IsLetter(password(i)) Then
               lowerCount += 1
          ElseIf [Char].IsDigit(password(i)) Then
               digitCount += 1
          ElseIf [Char].IsSymbol(password(i)) Then
               symbolCount += 1
          End If
     Next

     Return password.Length >= 8 AndAlso upperCount >= 1 AndAlso lowerCount >= 1 AndAlso digitCount >= 1 AndAlso symbolCount >= 1
End Function

Un saludo.

Autor: Antonio Lopez Atienza

Buenas a todos.

En este artículo voy a explicar cómo cerrar aplicaciones de manera explícita, como si las cerráramos desde el Administrador de tareas.

For Each p In Process.GetProcesses()
     If Not p Is Nothing Then
          If p.ProcessName.ToString = "NombreAplicacion" Then
               Try
                    p.Kill()
                    Exit For
               Catch ex As Exception
                    MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
                    Exit Sub
               End Try
          End If
     End If
Next

Un saludo.

Autor: Antonio Lopez Atienza

Buenas a todos.

En este artículo voy a explicar cómo Importar de Access a SQL Server de una manera fácil y sencilla.

Comentar que el ejemplo lo he realizado con SQL Server 2008 (10.0.1600.22) y Office 2003.

Read more »

Buenas a todos.

En este artículo voy a explicar cómo asignar una imagen de fondo a un Formulario en tiempo de ejecución, accediendo para ello a la propiedad BackgroundImage del Formulario.

Para ello por ejemplo podemos escribir el código en el Load del formulario, añadiendo la siguiente línea:

Me.BackgroundImage = New System.Drawing.Bitmap(Application.StartupPath & "\ImagenNueva.png")

Un saludo y espero os sirva de ayuda.

Autor: Antonio Lopez Atienza