lopezatienza.es

Bueno, muchos pensarán que este artículo no sirve de mucho, pero me imagino que el que haya llegado hasta aquí es que se ha estado dando cabezazos para averiguar cómo solucionar este problema.

¿ Al iniciar el IDE Visual Studio 6.0 te encuentras con un Dialog de Windows Installer que pone Preparando instalación, y permanece eternamente ?

¿ Tienes instalado el paquete Office ?

¿ Has iniciado sesión por primera vez en el equipo con un usuario nuevo de equipo, usuario de dominio, .. ?

Read more »

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

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

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

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

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

Dim lWait As Long

Dim bProceed As Boolean

Dim LRet As Long

Dim sMessage As String

Dim sPROCESS_INFORMATION As String

Dim hProcess As Long

Dim hThread As Long

Dim dwProcessId As Long

Dim dwThreadId As Long

Read more »