| |
VB.NET - FortgeschritteneGroßschreiben ausschalten! | | | Autor: Cheffboss | Datum: 01.08.14 17:43 |
| Guten Tag!
Wie kann ich die Großschreibtaste wieder auf normal schalten?
Also wenn der User nun das Großschreiben aktiviert hat, soll dies deaktiviert werden!?
Welche Suchbegriffe kann ich verwenden?
Ich möchte das die Großschreibtaste wenn aktiviert ist, sich deaktviert.
by | |
Re: Großschreiben ausschalten! | | | Autor: Cheffboss | Datum: 01.08.14 18:04 |
| Ich habe nun die Lösung gefunden!
Hier für euch:
Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, _
CharSet:=CharSet.Unicode, EntryPoint:="keybd_event", _
ExactSpelling:=True, SetLastError:=True)> _
Public Shared Function keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Int32, ByVal dwExtraInfo As _
Int32) As Boolean
End Function
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) _
As Integer
Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As _
Long) As Integer
Sub SetCaps(ByVal Status As Boolean)
If Not CBool(GetKeyState(System.Windows.Forms.Keys.CapsLock)) = Status _
Then
keybd_event(System.Windows.Forms.Keys.CapsLock, 0, 0, 0)
keybd_event(System.Windows.Forms.Keys.CapsLock, 0, 2, 0)
End If
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
Handles MyBase.Load
SetCaps(False) ' Hier Werte ändern...!
End Sub
End Class | |
Re: Großschreiben ausschalten! | | | Autor: GPM | Datum: 01.08.14 18:36 |
| Die Abfrage geht auch in VB.Net:
If Control.IsKeyLocked(Keys.CapsLock) Then
keybd_event(...
keybd_event(...
End If MfG GPM 0 | |
Re: Großschreiben ausschalten! | | | Autor: Kuno60 | Datum: 01.08.14 19:01 |
| Oder auch so:
Private Declare Sub keybd_event Lib "user32" (bVk As Byte, bScan As Byte, _
dwFlags As Integer, dwExtraInfo As Integer)
If My.Computer.Keyboard.CapsLock Then
keybd_event(20, 0, 0, 0)
keybd_event(20, 0, 2, 0)
End If Eigentlich sollte auch dies gehen:
If My.Computer.Keyboard.CapsLock Then
My.Computer.Keyboard.SendKeys("{CAPSLOCK}")
End If Funktioniert aber nicht. Da wird CapsLock nur zufällig mal ausgeschaltet. | |
Re: Großschreiben ausschalten! | | | Autor: Cheffboss | Datum: 02.08.14 13:41 |
| Vielen Dank für eure Antwort!
@Kuno60
Super, dieser Code ist perfekt!
Vielen Dank! | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevPopUp 2.0
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|