Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: GetAsyncKeyState - Groß-/Klein Schreibung
Autor: Johnny Bargeld
Datum: 30.01.10 18:29
Hi, hab selber net soviel Ahnung, aber probier mal das. Sollte funktionieren um der Textbox den richtigen Buchstaben in Klein oder Großschreibung hinzuzufügen naürlich noch deinen code für die Sonderzeichen etc. Berücksichtigen public class form_1 dim zahl as integer dim result as inetegr privat declare function... private sub timer_tick.... For i = 1 To 255 result = GetAsyncKeyState(i) If result = -32767 Then if my.computer.keyboard.capslock or my.computer.keyboard.shiftkeydown then großschreibung() else kleinschreibung() end if next end sub private sub groß() textbox1.text+=chr(zahl) end sub private sub klein() dim variable as string="" select case zahl case 65 variable="a" case 66 variable="b" .... textbox1.text+=variable end sub

GetAsyncKeyState - Groß-/Klein Schreibung	4.892	Sev7eNup	26.01.10 21:12
Re: GetAsyncKeyState - Groß-/Klein Schreibung	2.888	keco	26.01.10 21:37
Re: GetAsyncKeyState - Groß-/Klein Schreibung	2.973	Sev7eNup	26.01.10 21:41
Re: GetAsyncKeyState - Groß-/Klein Schreibung	2.984	Sev7eNup	26.01.10 22:06
Re: GetAsyncKeyState - Groß-/Klein Schreibung	2.761	Sev7eNup	27.01.10 14:25
Re: GetAsyncKeyState - Groß-/Klein Schreibung	3.270	Johnny Bargeld	30.01.10 18:29
Re: GetAsyncKeyState - Groß-/Klein Schreibung	2.737	Johnny Bargeld	30.01.10 18:30
Re: GetAsyncKeyState - Groß-/Klein Schreibung	2.708	blugys	30.01.10 18:34
Re: GetAsyncKeyState - Groß-/Klein Schreibung	2.653	Manfred X	30.01.10 18:34
Re: GetAsyncKeyState - Groß-/Klein Schreibung	2.850	Johnny Bargeld	30.01.10 18:44
Re: GetAsyncKeyState - Groß-/Klein Schreibung	2.630	Sev7eNup	01.02.10 15:36

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen