Visual Basic 6.0 – TextBox aceptar solo numeros

Written by lopezatienza on 13/01/2009 – 11:51 -

Un ejemplo de como aceptar datos numéricos.

Tomado de esta web.

Sub Text1_Keypress(KeyAscii As Integer)

        If KeyAscii <> Asc("9") Then

            'KeyAscii = 8 es el retroceso o BackSpace

            If KeyAscii <> 8 Then

                KeyAscii = 0

            End If

        End If

    End Sub

 

Nuevo:

 

    Private Sub Text1_Keypress(ByVal KeyAscii As Integer)

        If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0

    End Sub


Autor: Antonio Lopez Atienza


Tags:
Posted in Visual Basic 6.0 | 2 Comments »

Visual Basic 6.0 – Ruta de nuestra aplicación

Written by lopezatienza on 13/01/2009 – 11:45 -

Un ejemplo de como conocer la ruta de nuestra aplicación.

Tomado de esta web.

 

Private Sub Form_Load()

        Dim Directorio As String

        ChDir(App.Path)

        ChDrive(App.Path)

        Directorio = App.Path

        If Len(Directorio) > 3 Then

            Directorio = Directorio & "\"

        End If

End Sub


Autor: Antonio Lopez Atienza


Tags:
Posted in Visual Basic 6.0 | No Comments »

WindowsCE – [OpenNETCF] Createfile failed : 55

Written by lopezatienza on 13/01/2009 – 09:29 -

Me he encontrado con este error al realizar una aplicación que se conecta a una Impresora por Bluetooth, con la dll OpenNETCF.IO.Serial en un PPC con Windows Mobile 5.0:

Createfile failed : 55

Esto es debido o bien, que el numero de puerto es incorrecto, que no existe, y muy probablemente (que es lo que me ha pasado a mi), que el puerto está ya abierto.

Aquí os paso la función de AbrirPuerto() que tengo implementada.

Read more »


Tags:
Posted in WindowsCE | No Comments »
RSS
MCC D5E