VBA Access - colocando título na sua aplicação - How to Add a Title to Your Application

Mostre que suas aplicações MS Access são organizadas por inserir no título delas um texto que demonstre:

- O nome da aplicação

- A ação efetuada no momento por sua aplicação

- O nome da sua empresa

- Código do processamento sendo efetuado no momento.

Pode usar a funcionalidade para inúmeras coisas, aproveite!

' Digite num novo módulo:

Option Explicit
Option Compare Database

Private Declare Function SetWindowText _
                Lib "user32" _
                Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Public Sub SetFormTitle(frm As Form, TitleText As String)
    Dim fhWnd As Long
    fhWnd = frm.hwnd
    SetWindowText fhWnd, TitleText
End Sub

'Copie a SUB abaixo dentro do formulário, no evento OnOpen.
Private Sub Form_Open(Cancel As Integer)
    SetFormTitle Me, ".: A&A - In Any Place - Título da minha aplicação!"
End Sub

  15.01.2025 

Option Explicit

Option Compare Database

' Declaração da função API para alterar o título da janela de um formulário

Private Declare Function SetWindowText _

                Lib "user32" _

                Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

' Função pública para definir o título da janela do formulário

' Esta função usa a API SetWindowText para alterar o título da janela de um formulário.

' Parâmetros:

' - frm: O formulário cujo título será alterado.

' - TitleText: O texto que será exibido no título da janela do formulário.

Public Sub SetFormTitle(frm As Form, TitleText As String)

    ' Declara variável para armazenar o identificador da janela do formulário

    Dim formHandle As Long

    ' Obtém o identificador da janela (HWND) do formulário

    formHandle = frm.hwnd

    ' Chama a função da API para alterar o título da janela

    SetWindowText formHandle, TitleText

End Sub

' Este evento é executado ao abrir o formulário.

' Coloque este código no evento "OnOpen" do formulário para definir o título personalizado.

Private Sub Form_Open(Cancel As Integer)

    ' Define o título do formulário com um texto personalizado.

    ' O texto pode ser alterado conforme necessário para refletir o título da aplicação ou outros detalhes.

    SetFormTitle Me, ".: A&A - In Any Place - Título da minha aplicação!"

End Sub

 Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série de Livros nut Project 

  

 PUDIM PROJECT