lopezatienza.com

A continuación os muestro una función para formatear un número con dos decimales sin redondear:

Public Function Formatear(NumeroAFormatear)

If IsNumeric(NumeroAFormatear) = False Then Exit Function

Dim PosicionDecimal
Dim NumeroOriginal

NumeroOriginal = NumeroAFormatear
'MsgBox "NumeroOriginal = " & NumeroOriginal

PosicionDecimal= InStr(1, NumeroOriginal , ",")
'MsgBox "PosicionDecimal= " & PosicionDecimal

NumeroAFormatear = Mid(NumeroOriginal , 1, PosicionDecimal+ 2)
'MsgBox "NumeroAFormatear = " & NumeroAFormatear

'El número de decimales en este caso sería 2, pero ese se puede cambiar en la función Mid, pasándole como tercer parámetros PosicionDecimal + Número de decimales que deseemos

End Function

Autor: Antonio Lopez Atienza

Un ejemplo de como saber cuánto ocupa un directorio.

Tomado de esta web.

Sub Form_Load()

        Dim FileName As String

        Dim FileSize As Currency

        Dim Directory As String

        Directory = "c:\windows\"

        FileName = Dir$(Directory & "*.*")

        FileSize = 0

        Do While FileName <> ""

            FileSize = FileSize + FileLen(Directory & FileName)

            FileName = Dir$()

        Loop

        Text1.Text = "Este directorio ocupa la cantidad de bytes = " + Str$(FileSize)

    End Sub

Autor: Antonio Lopez Atienza

Un ejemplo de como comprobar si el programa esta en ejecucion.

Tomado de esta web.

Crear un nuevo proyecto e insertar el siguiente código:

    Private Sub Form_Load()

        If App.PrevInstance Then

            Msg = App.EXEName & ".EXE" & " ya está en ejecución"

            MsgBox(Msg, 16, "Aplicación.")

            End

        End If

    End Sub

Autor: Antonio Lopez Atienza

Un ejemplo de como leer y escribir un archivo .Ini.

Tomado de esta web.

Declaraciones generales en un módulo:

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA"_

(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As_

String ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As_

String) As Long

Declare Function WritePrivateProfileString Lib "kernel32" Alias_

"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As_

Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

  Read more »

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