SoloCodigo

Hola:

Cada verificación sería diferente. Yo tengo un código que verifica si está Excel, sin duda modificándolo un poco se puede ver si están los otros componentes de Office, los otros programas hay que verlos de otra forma.

Coloca un CommandButton en un form y copia esto:

Private Sub Command1_Click()
    MsgBox IsAppPresent("Excel.SheetCurVer", "")
End Sub

Ahora Abre un Module y copia esto:

Option Explicit

Global Const gstrSEP_DIR$ = ""                         ' Carácter separador de directorios
Public Const gstrSEP_REGKEY$ = ""                      ' Carácter de separación de claves del Registro.
Global Const gstrSEP_DRIVE$ = ":"                       ' Carácter de separación de unidad, p.e., C:
Global Const gstrSEP_DIRALT$ = "/"                      ' Carácter alternativo de separación de directorio
Global Const gstrSEP_EXT$ = "."                         ' Carácter de separación de extensión de archivo
Public Const gstrSEP_PROGID = "."
Public Const gstrSEP_FILE$ = "|"                        ' Usa el carácter para delimitar listas de nombres de archivo ya que no es un carácter válido en un nombre de archivo.
Public Const gstrSEP_LIST = "|"

Global Const gstrCOLON$ = ":"

Private Declare Function RegOpenKey Lib "advapi32" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, lpReserved As Long, lptype As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey& Lib "advapi32" (ByVal hKey&)

Private Const REG_SZ = 1
Private Const REG_EXPAND_SZ = 2
Private Const ERROR_SUCCESS = 0
Public Const HKEY_CLASSES_ROOT = &H80000000


Public Function IsAppPresent(strSubKey$, strValueName$) As Boolean
    IsAppPresent = CBool(Len(GetRegString(HKEY_CLASSES_ROOT, strSubKey, strValueName)))
End Function

Public Function GetRegString(hKey As Long, strSubKey As String, strValueName As String) As String
    Dim strSetting As String
    Dim lngDataLen As Long
    Dim lngRes As Long
   
    If RegOpenKey(hKey, strSubKey, lngRes) = ERROR_SUCCESS Then
        strSetting = Space(255)
        lngDataLen = Len(strSetting)
        If RegQueryValueEx(lngRes, strValueName, ByVal 0, REG_EXPAND_SZ, ByVal strSetting, lngDataLen) = ERROR_SUCCESS Then
            If lngDataLen > 1 Then
                GetRegString = Left(strSetting, lngDataLen - 1)
            End If
        End If
   
        If RegCloseKey(lngRes) <> ERROR_SUCCESS Then
           'MsgBox "RegCloseKey Failed: " & strSubKey, vbCritical
        End If
    End If
End Function

Saludos,

Javier

Primero que todo: ¿Qué es lo que querés hacer?

Javier

¿A que te refieres con que no se descarga todo el programa, porque en el entorno de desarrollo ves que sigue ejecutandose?

Si es así se debe a que queda algún formulario cargado, fijate que debes usar Unload Nombre_Del_Formulario y no Nombre_Del_Formulario.Hide para ocultar los mismos.

En tu programa, asçi como está ahora, verás que si no presentas ningun otro formulario que el principal y luego lo cierras, ahi se cierra bien.
Bueno, eso es porque no hay ningún formulario cargado.

En cualquier momento que accedas a una propiedad o control contenido en un form, por ejemplo Form2.BackColor = vbRed, o Form2.Label1.Caption = "Prueba", el formulario se carga en memoria y luego debes descargarlo con la orden Unload.

Saludos,

Javier

Sugerencia: sería muy útil tener la opción de ser notificado por email cuando alguien responde a un mensaje que uno puso, ya que a veces alguien puede ver la respuesta que uno escribió a una pregunta hecha y a su vez preguntar algo más y uno no se entera a no ser que haya vuelto a ver el mensaje.
Saludos y gracias,

Javier

Yo te diría que lo más sencillo es usar un form para eso y entonces le pones lo que vos quieras.

Javier

Hola,

Bueno, para eso podes poner un PictureBox conteniendo los controles e ir cambiando el Top del PictureBox en el evento Scroll (y/o Change) del VScroll.

También podrías poner el PictureBox dentro de un Frame.

Vas a tener que calcular los valores correctos de las propiedades del VScroll, Min, Max, SmallChange, LargeChange.

Saludos y suerte,

Javier

También puedes usar las funciones del registro de configuraciones, GetSetting y SaveSetting. Pero debes tener en cuenta que un usuario avanzado podría descubrir esto y modificarlo a mano.
Saludos y suerte,

Javier

a simple vista parece que debería funcionar
¿en que linea te da el error?
Si pones como archivo adjunto la base de datos lo pruebo y veo