Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 1938 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
VB for Applications
VB.net Combobox databinding langsam (4)

Frage von ForgottenRealm zum Thema VB for Applications ...

Visual Studio
gelöst Vb.net: Word-Doc seitenweise durchsuchen nach Textmarke (7)

Frage von ahstax zum Thema Visual Studio ...

Basic
gelöst Mit vb.net PDF in Word-Dok einfügen (10)

Frage von ahstax zum Thema Basic ...

Visual Studio
gelöst VB.Net - Hilfe bei Regex (8)

Frage von emeriks zum Thema Visual Studio ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(1)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (26)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (23)

Frage von pierrehansen zum Thema LAN, WAN, Wireless ...

Basic
Programmierung von Windows Programmen (10)

Frage von Ghost108 zum Thema Basic ...