Deshabilitar el botón cerrar [X] de Formularios en Visual Basic 2005/2008

Para los que lo necesiten dejo este código que está en la documentación de MSDN (Clase CreateParams) y también encontré buscando en la red.

El presente código debe ir luego de Public Class NombreFormulario:
Dim _enabledCerrar As Boolean = False
< System.ComponentModel.DefaultValue(False), System.ComponentModel.Description( "Define si se habilita el botón cerrar en el formulario" )> _
Public Property EnabledCerrar() As Boolean
    Get
         Return _enabledCerrar
   End Get
   Set(ByVal Value As Boolean)
     If _enabledCerrar <> Value Then
         _enabledCerrar = Value
     End If
  End Set
End Property
Protected Overrides ReadOnly Property CreateParams() As CreateParams
      Get
               Dim cp As CreateParams = MyBase.CreateParams
               If _enabledCerrar = False Then
                    Const CS_NOCLOSE As Integer = &H200
                    cp.ClassStyle = cp.ClassStyle Or CS_NOCLOSE
               End If
               Return cp
     End Get
End Property

 

Espero les sirva

TextBox Solo Números con Punto Decimal en .NET

Bien, se que hay muchos ejemplos en la red de cómo hacer esto, pero uno mas no viene mal.

Bueno esto es un procedimiento Sub, que lo podemos poner en un modulo de nuestro proyecto y evitarnos validar todo el código en cada textbox, por supuesto que se puede mejorar mucho mas, pero de momento lo dejo así

Public Sub NumConFrac(ByVal CajaTexto As Windows.Forms.TextBox, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
       ElseIf e.KeyChar = "." And Not CajaTexto.Text.IndexOf(".") Then
            e.Handled = True
        ElseIf e.KeyChar = "." Then
            e.Handled = False
       Else
            e.Handled = True
       End If
  End Sub

Eso es todo el sub

Ahora para llamarlo desde cualquier Textbox que necesitemos ingresar solo números, para lo cual solo agregaríamos la siguiente línea:

Private Sub TxtImporte_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtImporte.KeyPress
        NumConFrac(Me.TxtImporte, e)
End Sub

 

Posteriormente si quieren visualizar el importe formateado, solo quedaría agregar lo siguiente luego pulsar ENTER

Me.TxtImporte.Text = Format(CDec(Me.TxtImporte.Text), "###,###.00")

 

Espero les sirva de algo

Hasta la próxima

Microsoft, concurso Ponle estilo a tu vida

Un concurso con premios interesantes, visita este link

http://www.ponleestiloatuvida.com/?opcion=pp&key=VUlEPTg1OCZuPXdw

16% de los antivirus fallan en Windows 7

Virus Bulletin ha realizado un estudio con más de 40 programas de antivirus sobre el nuevo sistema operativo de Microsoft, Windows 7, y al parecer siete de ellos no lograron pasar las pruebas realizadas con malware considerado activo en la red. Intentaron que se detectarán mil amenazas, así como la comprobación de que el software no daba falsos positivos con archivos limpios pero con fragmentos sospechosos.
El estudio se ha realizado este mismo mes con 43 programas de antivirus. Virus Bulletin instalaron dichos software en un equipo con Windows 7 Professional a 32 bits y le contagiaron con más de mil virus, gusanos, bots, troyanos, virus normales y polimórficos. A todo esto debemos añadir las pruebas para la detención de falsos positivos con archivos sospechosos pero que en realidad no tuvieran malware alguno.
¿Cómo se instalaron los softwares? Pues con la configuración por defecto. Entre estos 43 antivirus estaban los más populares como AVG, Avst!, Avira, BitDefender, ESET, F-Secure, GDATA Kaspersky, McAfee, PC Tools, Sophos, Symantec o Microsoft Security Essentials.
Pero lo que a todos nos interesa son las aplicaciones que fallaron ¿Verdad? Pues son las siguientes:

• AhnLab V3Net I.S. 8.0: 1 fallo de la lista de virus en activo
• CA Internet Security Suite Plus 2010: 3 fallos
• CA Threat Manager: 2 fallos
• eEye Blink Professional: 13 fallos y un falso positivo
• Filseclab Twister Anti-TrojanVirus: 1920 fallos, 2 falsos positivos
• Kingsoft Anti-Virus 2010 Swinstar: 1 fallo
• Norman Security Suite: 13 fallos

Antes de terminar el artículo queremos señalar que Panda no ha querido someterse ha dichas pruebas realizadas por Virus Bulletin porque cree irrelevante la misma.

Parece que también corrieron la misma suerte con Windows Server 2008, pero esa es otra historia.

Caída de los servicios Live Hotmail y Messenger

A primeras horas de hoy (2:20 am aprox.) los servicios de Live Hotmail y Live Messenger, dejaron de funcionar de manera repentina, bueno ya llevo mas de media hora esperando y no se restablecen los servicios, he probado el estado de conexiones y todo anda bien, hasta he probado a revisar el correo Yahoo y todo normal, pero ni Hotmail ni Messenger responden, habrá que esperar y ver que dicen los responsables.

Si alguien sabe los motivos exactos de la falla puede darnos mas detalles al respecto.

Como ven en las imágenes, no se puede acceder a ninguno de los 2 servicios mencionados.

Restaurando el Sistema en Windows 7

Bien, no voy a indicarles como restaurar el sistema en Windows 7, porque es muy intuitivo y además, creo que mas de uno ya lo habrá hecho desde Windows XP, pasando por Windows Vista, y ahora en Windows 7 los pasos no han cambiado mucho, lo que si voy a mencionar, porque me parece muy importante e interesante, es el hecho que ahora en Windows 7 esta herramienta está mucho mas detallada, como por ejemplo el hecho de que permite detectar los programas que han sido afectados y poder ver en mas detalle los puntos a restaurar y no como en las versiones anteriores que escogías un punto y no te quedaba otra alternativa de volarte todo el trabajo hecho hasta cierto punto, sin saber que y que programa a sido afectado.

Al cargar la herramienta de restaurar sistema con la primera pantalla que nos encontramos es con la siguiente:

Aquí nos sugiere un punto de restauración recomendado, pero la segunda opción que nos da, es, escoger otros puntos de restauración, y si le damos en siguiente nos mostrará la siguiente pantalla

Aquí tenemos la opción de detectar los programas o controladores que serán afectados en ese punto de restauración y los cuales tendríamos que volver a instalar.

Aquí vemos una lista detallada de los programas afectados.

Aquí se puede escoger un determinado punto hasta donde restaurar.

La última pantalla que vemos, es donde debemos confirmar el punto a restaurar y el proceso se llevará a cabo al pulsar en el botón finalizar.

Que bueno que hayan mejorado en algo esta herramienta, espero ir viendo en detalle mas cosas del nuevo sistema operativo, hoy lo hice aprovechando que estoy en cama un poco delicado de salud y aproveché para postearlo.

Si quieren un tutorial paso a paso para restaurar sistema, aquí les dejo un link a un post que encontré al respecto.

Hasta la próxima.

Windows 7 y la compatibilidad (XP MODE)

Una de las tantas herramientas anunciadas en Windows 7, el famoso o famosa XP MODE, que no es otra cosa que un Windows XP SP3 Virtualizado, pero que se integra en el escritorio de Windows 7, no es lo que tantos elogian, pues como se puede decir que Windows 7 es compatible con mas aplicaciones antiguas y de terceros?.

Si realmente quieren mantener la compatibilidad o la funcionalidad de sus aplicaciones legadas que funcionan en Windows XP, pues quédense con Windows XP, porque no le veo mucho sentido recargar la Pc con 2 sistemas operativos, esa compatibilidad que llaman, se ha venido haciendo hace mucho tiempo con vmware o con virtual pc, la única diferencia era que teníamos que acceder de manera independiente a otra ventana, pero igual de problemático que ahora.

He instalado Windows 7 en un PC con procesador core duo a 1.8 Ghz y 1 giga de RAM, y corre rápido para ser honesto, pero si le ponemos el XP MODE, ese equipo no cumple con los requisitos de virtualización por hardware, por lo tanto el famoso XP MODE quedaría fuera del juego, sin contar con el tiempo de descarga y todo el proceso de instalación.

Tratando probar la compatibilidad del Windows 7, he tratado de instalar sin éxito una aplicación hecha con vb6 y acceso a BD, pues ni esperanzas de instalarse, asimismo intenté instalar el Visual Basic 6.0 en el Windows 7 y tampoco instala, al menos en Windows Vista se instalaba sin problemas, salvo algunos controles demasiado antiguos que no funcionaban del todo bien.

Aquí unos cuantos pantallazos de los errores de instalación de VB6.0 sobre Windows 7

Esta pantalla nos aparece luego de intentar instalarse la virtual machine que trae el visual studio 6.0.

Luego nos arroja este mensa de error y al darle aceptar, pues se queda indefinidamente mostrando la imagen que vemos abajo.

No se ustedes, pero para mí el XP MODE, no es compatibilidad del Windows 7, ustedes que opinan?.