Happy Codings - Programming Code Examples
Html Css Web Design Sample Codes CPlusPlus Programming Sample Codes JavaScript Programming Sample Codes C Programming Sample Codes CSharp Programming Sample Codes Java Programming Sample Codes Php Programming Sample Codes Visual Basic Programming Sample Codes


Visual Basic Programming Code Examples

Visual Basic > Code Snippets Code Examples

Active window title

Active window title 'active window title Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long ' Returns the title of the active window. ' if GetParent = true then the parent window is ' returned. Public Function GetActiveWindowTitle(ByVal ReturnParent As Boolean) As String Dim i As Long Dim j As Long i = GetForegroundWindow If ReturnParent Then Do While i <> 0 j = i i = GetParent(i) Loop i = j End If GetActiveWindowTitle = GetWindowTitle(i) End Function Public Function GetWindowTitle(ByVal hwnd As Long) As String Dim l As Long Dim s As String l = GetWindowTextLength(hwnd) s = Space(l + 1) GetWindowText hwnd, s, l + 1 GetWindowTitle = Left$(s, l) End Function