Αυτόματη επιλογή γλώσσας
 

Καλησπέρα σε όλους,

Σε κάποια φόρμα εύρεσης έχω ενα πεδίο [SearchBox] στο οποίο θα ήθελα να βρώ τρόπο έτσι ώστε να γίνονται τα εξής:

Στο συμβάν On Enter του πεδίου εάν καταχωρηθεί ελληνικός χαρακτήρας (γράμμα) να αλλάζει αυτόματα την γλώσσα πληκτρολογίου στα ελληνικά και το αντίθετο. Δηλαδή, εάν καταχωρηθεί αγγλικό γράμμα (χαρακτήρας) να αλλάζει σε αγγλικά εφόσον ειναι στα ελληνικά.

Για την αλλαγή της γλώσσας πληκτρολογίου χρησιμοποιώ τον πιο κάτω κώδικα ο οποίος δουλεύει μια χαρά απλά προσπαθω να αυτοματοποιήσω την πιο πάνω διαδικασία έτσι ώστε να μην δημιουργούνται συγχίσεις κατά την διαδικασία εύρεσης εφόσον υπάρχουν κοινά γράμματα και στις δύο γλώσσες (πχ Α - Β - Ζ - Ν κλπ)

Option Compare Database
'#If Win64 Then
Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32.dll" (ByVal mylanguage As Long, flag As Boolean) As Long
Private Const EN = 1033
Private Const GR = 1032
Private Const RU = 1049


Private Sub txtGR_Enter()
Call ActivateKeyboardLayout(GR, True)
End Sub
Private Sub txtRU_Enter()
Call ActivateKeyboardLayout(RU, True)
End Sub
Private Sub txtEN_Enter()
Call ActivateKeyboardLayout(EN, True)
End Sub