[ Ερωτήματα ] Εναλλαγή πληκτρολογίου από ελληνικά σε αγγλικά πατώντας το {F5}

[Jim]

Τι κώδικα θα πρέπει να γράψω για να γίνετε η εναλλαγή πληκτρολογίου από ελληνικά σε αγγλικά πατώντας το {F5}

[atlasgr]

αγαπητέ Δημήτρη

Στην θέση σου δεν θα χρησιμοποιούσα τα πλήκτρα F
Αυτά τα δεσμεύει η access για διάφορες λειτουργίες και μπορεί να πάρεις μη αναμενόμενα αποτελέσματα.
Νομίζω πως το alt+shift προσφέρει καλύτερη αποτελεματικότητα και ασφάλεια.
Αν παρ' ολα αυτά επιμένεις γράψε μου να σου στείλω κώδικα γι αυτή την δουλειά.

φιλικα

ΧΑΡΗΣ

[Jim]

Φίλε Χάρη σε ευχαριστώ εκ των προτέρων για την απάντησή σου και το ενδιαφέρον σου αυτό που ήθελα είναι να περάσω κάποιο κώδικα σε ένα Μπουτόν Εντολής και όταν το κλικάρω να αλλάζει η γραφή από ελληνικά σε αγγλικά. Όπως προαναφέρεις Αlt+Shift αλλά σε κώδικα
Φιλικά Δημήτρης

[editolis]

Υπαρχει ο εξης εξαιρετικος κωδικας σε αυτο το φορουμ.

Φτιαξε ενα νεο Module και ονομασε το πχ: ModChangeKeyboardLang

Option Compare Database
Option Explicit

'Const hKL_GREEK As Long = &H408, hKL_En_USA As Long = &H409, SETFOREXCEL = &H100
Const hKL_GREEK As Long = &H408, hKL_En_USA As Long = &H409, SETFORACCESS = &H100
Const KEYEVENTF_KEYUP As Long = &H2, VK_CAPITAL As Long = &H14, KEYEVENTF_EXTENDEDKEY As Long = &H1
Declare Sub keybd_event Lib "User32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Declare Function MapVirtualKey Lib "User32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As Long) As Long
Declare Function ActivateKeyboardLayout Lib "User32" (ByVal hKL As Long, ByVal Flags As Long) As Long

Sub ChangeToEl_Gr()
ActivateKeyboardLayout hKL_GREEK, SETFORACCESS
End Sub

Sub ChangeToEn_Us()
ActivateKeyboardLayout hKL_En_USA, SETFORACCESS
End Sub

================================================== ============
Στο κλικ του κουμπιου σου για αλλαγη στα Ελληνικα θα δωσεις αυτη την εντολη:
ChangeToEl_Gr

================================================== ============
Στο κλικ του κουμπιου σου για αλλαγη στα Αγγλικα θα δωσεις αυτη την εντολη:
ChangeToEn_Us

Καλη συνεχεια...

[Jim]

Φίλε Τόλη σε ευχαριστώ για την άμεση απάντησή σου και το ενδιαφέρον σου αυτό ακριβός ήθελα θα σε κούραζα με το τι θα πρέπει να συμπληρώσω για να πηγαίνει ο κέρσορας μετά το πάτημα του κουμπιού στο ίδιο πεδίο που ήταν πριν την εναλλαγή
Φιλικά Δημήτρης

[Tasos]

Καλησπέρα!
Αν δεν χρειάζεται να αλλάζει το πληκτρολόγιο στο ίδιο πεδίο τότε:
Στο φύλλο ιδιοτήτων του/των πλαισίων κειμένου, στην καρτέλα "Μορφή" και στην ιδιότητα Γλώσσα πληκτρολογίου μπορούμε να επιλέξουμε μια από τις εγκατεστημένες γλώσσες του υπολογιστή.
Έτσι, κάθε φορά που θα εστιάζεται κάποιο πλαίσιο κειμένου, θα αλλάζει και η γλώσσα του πληκτρολογίου αυτόματα.
Τάσος