lopezatienza.com

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

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

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 »