• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

NuGuN

[VB6] Programa Para Ver oTitulo da Janela que esta activa

1 mensagem neste tópico

Deixo aqui o código de um pequeno programa que mostra numa label o titulo da janela do windows, que esta activa.

[Modulo]

Option Explicit

Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Option Explicit

Private Sub tmrGetTitulo_Timer()
Dim hwnd   As Long
Dim Titulo As String
Dim Lenght As String

hwnd = GetForegroundWindow()
Titulo = String(255, Chr(0))
Lenght = GetWindowText(hwnd, Titulo, 255)

Titulo = Left(Titulo, Lenght)

lblTitulo.Caption = Titulo

Form1.Width = lblTitulo.Width + 100
End Sub

clientes.netvisao.pt/nb012788/Titulo_Janela.rar

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora