vb@rchiv · Diskussionsforen · Re: Readline in Konsolenanwendung · VB.NET

VB Classic
VB.NET
ADO.NET
VBA
C#

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[437 User online]
[398 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · VB.NET - Ein- und Umsteiger

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

VB.NET - Ein- und Umsteiger

Re: Readline in Konsolenanwendung

Autor: icetea123
Datum: 04.12.08 17:03

' Text durch Simulieren von Tastenanschlägen ' an das aktive Control senden Public Sub SendKeysEx(ByVal sText As String) Dim VK As eVirtualKeyCode Dim sChar As String Dim i As Short Dim bShift As Boolean Dim bAlt As Boolean Dim bCtrl As Boolean Dim nScan As Integer Dim nExtended As Integer ' Jedes Zeichen einzeln senden For i = 1 To Len(sText) ' aktuelles Zeichen extrahieren sChar = Mid(sText, i, 1) ' Sonderzeichen? bShift = False : bAlt = False : bCtrl = False If sChar = "{" Then If UCase(Mid(sText, i + 1, 9)) = "BACKSPACE" Then VK = eVirtualKeyCode.VK_BAK i = i + 9 ElseIf UCase(Mid(sText, i + 1, 2)) = "BS" Then VK = eVirtualKeyCode.VK_BAK i = i + 3 ElseIf UCase(Mid(sText, i + 1, 4)) = "BKSP" Then VK = eVirtualKeyCode.VK_BAK i = i + 5 ElseIf UCase(Mid(sText, i + 1, 5)) = "BREAK" Then VK = eVirtualKeyCode.VK_PAUSE i = i + 6 ElseIf UCase(Mid(sText, i + 1, 8)) = "CAPSLOCK" Then VK = eVirtualKeyCode.VK_CAPITAL i = i + 9 ElseIf UCase(Mid(sText, i + 1, 6)) = "DELETE" Then VK = eVirtualKeyCode.VK_DELETE i = i + 7 ElseIf UCase(Mid(sText, i + 1, 3)) = "DEL" Then VK = eVirtualKeyCode.VK_DELETE i = i + 4 ElseIf UCase(Mid(sText, i + 1, 4)) = "DOWN" Then VK = eVirtualKeyCode.VK_DOWN i = i + 5 ElseIf UCase(Mid(sText, i + 1, 2)) = "UP" Then VK = eVirtualKeyCode.VK_UP i = i + 3 ElseIf UCase(Mid(sText, i + 1, 4)) = "LEFT" Then VK = eVirtualKeyCode.VK_LEFT i = i + 5 ElseIf UCase(Mid(sText, i + 1, 5)) = "RIGHT" Then VK = eVirtualKeyCode.VK_RIGHT i = i + 6 ElseIf UCase(Mid(sText, i + 1, 3)) = "END" Then VK = eVirtualKeyCode.VK_END i = i + 4 ElseIf UCase(Mid(sText, i + 1, 5)) = "ENTER" Then VK = eVirtualKeyCode.VK_RETURN i = i + 6 ElseIf UCase(Mid(sText, i + 1, 4)) = "HOME" Then VK = eVirtualKeyCode.VK_HOME i = i + 5 ElseIf UCase(Mid(sText, i + 1, 3)) = "ESC" Then VK = eVirtualKeyCode.VK_ESCAPE i = i + 4 ElseIf UCase(Mid(sText, i + 1, 4)) = "HELP" Then VK = eVirtualKeyCode.VK_HELP i = i + 5 ElseIf UCase(Mid(sText, i + 1, 6)) = "INSERT" Then VK = eVirtualKeyCode.VK_INSERT i = i + 7 ElseIf UCase(Mid(sText, i + 1, 3)) = "INS" Then VK = eVirtualKeyCode.VK_INSERT i = i + 4 ElseIf UCase(Mid(sText, i + 1, 7)) = "NUMLOCK" Then VK = eVirtualKeyCode.VK_NUMLOCK i = i + 8 ElseIf UCase(Mid(sText, i + 1, 4)) = "PGUP" Then VK = eVirtualKeyCode.VK_PRIOR i = i + 5 ElseIf UCase(Mid(sText, i + 1, 4)) = "PGDN" Then VK = eVirtualKeyCode.VK_NEXT i = i + 5 ElseIf UCase(Mid(sText, i + 1, 10)) = "SCROLLLOCK" Then VK = eVirtualKeyCode.VK_SCROLL i = i + 11 ElseIf UCase(Mid(sText, i + 1, 3)) = "TAB" Then VK = eVirtualKeyCode.VK_TAB i = i + 4 ElseIf UCase(Mid(sText, i + 1, 2)) = "F1" Then VK = eVirtualKeyCode.VK_F1 i = i + 3 ElseIf UCase(Mid(sText, i + 1, 2)) = "F2" Then VK = eVirtualKeyCode.VK_F2 i = i + 3 Teil 3 kommt sofort ----------------------------------- Betriebssystem: Schrott (Vista) Entwicklungsumgebung: VS 2008

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Readline in Konsolenanwendung	1.065	xeox	04.12.08 15:01
Re: Readline in Konsolenanwendung	613	FZelle	04.12.08 15:18
Re: Readline in Konsolenanwendung	634	xeox	04.12.08 15:22
Re: Readline in Konsolenanwendung	651	icetea123	04.12.08 16:28
Re: Readline in Konsolenanwendung	599	GPM	04.12.08 16:40
Re: Readline in Konsolenanwendung	625	icetea123	04.12.08 17:02
Re: Readline in Konsolenanwendung	629	icetea123	04.12.08 17:03
Re: Readline in Konsolenanwendung	668	icetea123	04.12.08 17:03
Re: Readline in Konsolenanwendung	570	xeox	04.12.08 17:16
Re: Readline in Konsolenanwendung	660	GPM	04.12.08 19:24
Re: Readline in Konsolenanwendung	600	FZelle	04.12.08 17:51
Re: Readline in Konsolenanwendung	631	xeox	04.12.08 18:16
Re: Readline in Konsolenanwendung	586	FZelle	04.12.08 21:13

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

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 Infos

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

TOP Entwickler-Paket

TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...

Jetzt nur 979,00 EUR
Weitere Infos

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