Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Wurm
Anmeldungsdatum: 30.10.2005 Beiträge: 16
|
Verfasst am: 27.02.2007, 21:32 Titel: Bildschirmtastatur |
|
|
Hi,
ist es möglich unter Freebasic die Bildschirmtastatur von Windows einzublenden und zu benutzen? Falls ja wie?
Ich benutze screen 20,24,3,1 : width 128,96
Das Programm "überschreibt" immer die Tastatur. |
|
Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006 Beiträge: 2847
|
Verfasst am: 27.02.2007, 22:14 Titel: |
|
|
Selberzeichnen und SendKey() (API) verwenden... |
|
Nach oben |
|
|
Wurm
Anmeldungsdatum: 30.10.2005 Beiträge: 16
|
Verfasst am: 27.02.2007, 22:28 Titel: |
|
|
Zeichnen ist kein Problem. Kannst du mir aber das mit der API etwas näher erklären, da ich noch nie mit Api's gearbeitet habe und beim suchen nichts über SendKey gefunden habe. |
|
Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1874 Wohnort: D59192
|
Verfasst am: 28.02.2007, 16:50 Titel: |
|
|
Hi,
Zitat: | ist es möglich unter Freebasic die Bildschirmtastatur von Windows einzublenden und zu benutzen? | - ja, diesen text schreibe ich gerade mit der bildschirmtastatur-
zu mühsam!
Code: | Screen 20,32
width 128,96
Dim a As String
Do
a=Inkey
If a=Chr(27) Then Exit Do
If a<>"" Then ?a;
Loop
End | über die Bildschirmtastatur kannst du Text in dies FB-Fenster schreiben
EDIT/ gerade erst gesehen.... nicht im Vollbildmodus möglich!!!
kleine Verbesserung: Code: | #include "windows.bi"
Screen 20,32
Width 128,96
Dim a As String
Windowtitle "Osk_Test"
If FindWindow(0,"Bildschirmtastatur") = 0 Then
Shell "start osk"
SetFocus (FindWindow(0,"Osk_Test"))
End If
Do
a = Inkey
If a = Chr(27) Then Exit Do 'mit ESC verlassen
If a <> "" Then Print a;
Sleep 1, 1
Loop
End |
_________________ Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
Nach oben |
|
|
|