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, 1974 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
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 ...

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

Frage von ahstax zum Thema Basic ...

Microsoft Office
gelöst VBA Excel Problem mit UserForm, ListBox und TextBox (12)

Frage von abuelito zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (28)

Frage von zorlayan zum Thema Windows 10 ...

LAN, WAN, Wireless
Ping u. DNS geht am Rechner nicht mehr (21)

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

LAN, WAN, Wireless
CNC Maschinen verlieren Netzwerkverbindung (kurioser Fehler) (18)

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