Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VB.Net Systemweit aktuelles Steuerelement wie TextBox abfragen

Frage Entwicklung Visual Studio

Mitglied: Aicher1998

Aicher1998 (Level 1) - Jetzt verbinden

03.04.2014, aktualisiert 05.04.2014, 1998 Aufrufe, 12 Kommentare, 1 Danke

Hallo

ich müsste in VB wissen, welches das aktuell focusierte Steuerelement ist und müsste dann deren Eigenschaften lesen bzw. schreiben können.
Wie mach ich das?

Auf eure Antworten würd ich mich freuen.

Aicher
Mitglied: colinardo
LÖSUNG 03.04.2014, aktualisiert 05.04.2014
Hallo Aicher,
kannst du folgendermaßen machen:
Für den Beispiel-Code erstellst du dir eine Form, dann fügst du noch einen Label mit dem Namen lblHwnd und einen Timer mit dem Namen Timer1 hinzu. Der Form sollte das Attribut TopMost gegeben werden damit du das Fenster immer sehen kannst. Dann startest du das Programm und setzt den Focus der Maus auf ein Textfeld in einer anderen Applikation - der Label sollte nun den Text des aktuell im Fokus liegenden Controls haben.
(Wenn du das Visual Studio Projekt-File brauchst sag bescheid.)
01.
Imports System.Runtime.InteropServices 
02.
Imports System.Text 
03.
Public Class Form1 
04.
    <DllImport("user32.dll")> _ 
05.
    Public Shared Function GetForegroundWindow() As IntPtr 
06.
    End Function 
07.
    <DllImport("user32.dll")> _ 
08.
    Public Shared Function GetWindowThreadProcessId(hWnd As IntPtr, ProcessId As IntPtr) As IntPtr 
09.
    End Function 
10.
    <DllImport("user32.dll")> _ 
11.
    Public Shared Sub AttachThreadInput(idAttach As IntPtr, idAttachTo As IntPtr, fAttach As Boolean) 
12.
    End Sub 
13.
    <DllImport("user32.dll")> _ 
14.
    Public Shared Function GetFocus() As IntPtr 
15.
    End Function 
16.
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _ 
17.
    Public Shared Function GetWindowText(ByVal hwnd As IntPtr, ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer 
18.
    End Function 
19.
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _ 
20.
    Public Shared Function GetWindowTextLength(ByVal hwnd As IntPtr) As Integer 
21.
    End Function 
22.
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _ 
23.
    Public Shared Function SendMessage(hWnd As IntPtr, Msg As UInt32, wParam As IntPtr, lParam As StringBuilder) As IntPtr 
24.
    End Function 
25.
 
26.
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick 
27.
        lblHwnd.Text = GetTextRaw(ControlInFocusedWindow()) 
28.
    End Sub 
29.
 
30.
    Private Function ControlInFocusedWindow() As IntPtr 
31.
        Dim activeWindowHandle As IntPtr = GetForegroundWindow() 
32.
        Dim activeWindowThread As IntPtr = GetWindowThreadProcessId(activeWindowHandle, IntPtr.Zero) 
33.
        Dim thisWindowThread As IntPtr = GetWindowThreadProcessId(Me.Handle, IntPtr.Zero) 
34.
        AttachThreadInput(activeWindowThread, thisWindowThread, True) 
35.
        Dim focusedControlHandle As IntPtr = GetFocus() 
36.
        AttachThreadInput(activeWindowThread, thisWindowThread, False) 
37.
        Return focusedControlHandle 
38.
    End Function 
39.
 
40.
    Public Function GetTextRaw(hWnd As IntPtr) As String 
41.
        Const WM_GETTEXTLENGTH = &HE 
42.
        Const WM_GETTEXT = &HD 
43.
        Dim length As Integer = SendMessage(hWnd, WM_GETTEXTLENGTH, IntPtr.Zero, New StringBuilder) 
44.
        Dim sb As StringBuilder = New StringBuilder(length + 1) 
45.
        SendMessage(hWnd, WM_GETTEXT, sb.Capacity, sb) 
46.
        Return sb.ToString() 
47.
    End Function 
48.
 
49.
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
50.
        Timer1.Start() 
51.
    End Sub 
52.
End Class
Viel Erfolg

Grüße Uwe
Bitte warten ..
Mitglied: Aicher1998
03.04.2014 um 13:26 Uhr
Danke, muss ich nachher testen.
Könnte es sein, dass das Programm von Virenscannern als potenziell gefährlich eingestuft werden kann?
Hast du das ergoogelt oder selber zusammengeschrieben?

Aicher
Bitte warten ..
Mitglied: Aicher1998
03.04.2014, aktualisiert um 13:29 Uhr
Zitat von colinardo:
Public Shared Function GetFocus() As IntPtr
End Function
Wieso ist da nix drin?

Gruß Aicher
Bitte warten ..
Mitglied: colinardo
03.04.2014, aktualisiert um 13:30 Uhr
Zitat von Aicher1998:
Danke, muss ich nachher testen.
Könnte es sein, dass das Programm von Virenscannern als potenziell gefährlich eingestuft werden kann?
hä ? nein...
Hast du das ergoogelt oder selber zusammengeschrieben?
das mach ich schon selber ...
Bitte warten ..
Mitglied: colinardo
03.04.2014, aktualisiert um 13:32 Uhr
Zitat von Aicher1998:
Wieso ist da nix drin?
das ist ja auch ein Windows API-Call in user32.dll ...
http://msdn.microsoft.com/en-us/library/windows/desktop/ms646294%28v=vs ...
Bitte warten ..
Mitglied: Aicher1998
03.04.2014, aktualisiert um 13:32 Uhr
Zitat von colinardo:

> Zitat von Aicher1998:
> Wieso ist da nix drin?
das ist ja auch ein API-Call in user32.dll ...

Häh aber da steht ja kein Code drin?
Bitte warten ..
Mitglied: colinardo
03.04.2014, aktualisiert um 13:35 Uhr
Zitat von Aicher1998:
Häh aber da steht ja kein Code drin?
nochmal ....http://msdn.microsoft.com/en-us/library/windows/desktop/ms646294%28v=vs ...

Wieso steht da wohl das davor hmmm?:
<DllImport("user32.dll")> _ 
Bitte warten ..
Mitglied: Aicher1998
03.04.2014 um 13:36 Uhr
Zitat von colinardo:
das mach ich schon selber ...

Alles selber geschrieben? Krass, wenn ich mich so gut auskennen würde... Naja ich hab da meine snippets und setzt mir dann was zusammen
Bitte warten ..
Mitglied: Aicher1998
03.04.2014 um 14:00 Uhr
Zitat von colinardo:

> Zitat von Aicher1998:
> Häh aber da steht ja kein Code drin?
nochmal ....http://msdn.microsoft.com/en-us/library/windows/desktop/ms646294%28v=vs ...

Wieso steht da wohl das davor hmmm?:
> <DllImport("user32.dll")> _  
> 
Ja das hab ich ned gemerkt
Bitte warten ..
Mitglied: Aicher1998
04.04.2014 um 17:36 Uhr
Gibts auch ne Möglichkeit das in live anzuzeigen und nicht erst wenn man klickt? Und das man erhält, was man gerade für ein Steuerelement vor sich hat?
Bitte warten ..
Mitglied: colinardo
04.04.2014, aktualisiert 05.04.2014
Zitat von Aicher1998:

Gibts auch ne Möglichkeit das in live anzuzeigen und nicht erst wenn man klickt? Und das man erhält, was man gerade
für ein Steuerelement vor sich hat?
dann ist das vielleicht was für dich:
http://msdn.microsoft.com/en-us/magazine/cc163617.aspx
Bitte warten ..
Mitglied: Aicher1998
05.04.2014 um 09:21 Uhr
Zitat von colinardo:

> Zitat von Aicher1998:
>
> Gibts auch ne Möglichkeit das in live anzuzeigen und nicht erst wenn man klickt? Und das man erhält, was man
gerade
> für ein Steuerelement vor sich hat?
dann ist vielleicht was für dich:
http://msdn.microsoft.com/en-us/magazine/cc163617.aspx

Is zu hoch für mich, aber danke
Bitte warten ..
Ähnliche Inhalte
Visual Studio
Srv records aus dem dns abfragen unter vb.net (14)

Frage von Herbrich19 zum Thema Visual Studio ...

VB for Applications
gelöst VBA Textbox fokussieren und Daten über Button eintragen (1)

Frage von Aximand zum Thema VB for Applications ...

Visual Studio
gelöst VB bestimmte Stelle im Bild highlighten wenn MouseOver Textbox? (9)

Frage von PixL86 zum Thema Visual Studio ...

Microsoft Office
gelöst Bei Excel 2016 Dropdownliste erweitern fehlt Steuerelement formatieren (5)

Frage von rainergugus zum Thema Microsoft Office ...

Neue Wissensbeiträge
Humor (lol)

Wo ist der Fehler auf dem Bild?

(17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Update

Offenbar erneutes MS-Update mit Fehlerschleife (2012 R2)

Information von VGem-e zum Thema Windows Update ...

Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(14)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Heiß diskutierte Inhalte
Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Humor (lol)
Wo ist der Fehler auf dem Bild? (17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Userverwaltung
Ordner-Rechte für Dom.Admin einschränken? (13)

Frage von kilobyte zum Thema Windows Userverwaltung ...