Access Lab

Cambiar el título de la aplicación

En Access 2.0 también puedes cambiar el título de la ventana principal. Primero incluye estas lineas en la sección Declaraciones de un módulo:

Declare Function FindWindow% Lib "User" (ByVal lpClassName As Any, ByVal lpWindowName As Any)
Declare Sub SetWindowText Lib "User" (ByVal hWnd%, ByVal lpString$)

Y también la siguiente función:

Function SetCaption (texto)
Dim hWnd%
hWnd% = FindWindow%("OMain", 0&)
Call SetWindowText(hWnd%, texto)
End Function

Para cambiar el título de "Microsoft Access" a "Mi aplicación", puedes llamar a la función, desde código o desde una macro:

SetCaption("Mi aplicación")

Volver a AccessLab