[es] - Procedura za događaj Workbook open

jmunja
Zoran Jovanović
Automatičar,
Pančevo,Srbija

Član broj: 279448
Poruke: 33
*.dynamic.isp.telekom.rs.

Profil

^{13.05.2012. u 08:50 - pre 145 meseci}

Molim za pomoć !
Procedura za događaj Workbook open koja će automatski da promeni postavku u Language bar na željeni ispis ( engleski , srpski latinica ili srpski ćirilica ).

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Procedura za događaj Workbook open

^{13.05.2012. u 23:03 - pre 145 meseci}

Pogledaj u MSDN library Keyboard Input API funkcije:
LoadKeyboardLayout(), ActivateKeyboardLayout()

Našao sam instant rešenje na MSDN forumu ali ga nisam proverio, vidi da li ti radi:

Code:
Option Explicit

Private Declare Function ActivateKeyboardLayout Lib _
"user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long

'define your desired keyboardlanguage
'find your desired language at http://www.trigeminal.com/frmrpt2dap.asp

Private Const KLL_SRL = 2074 'Serbian (Latin)
Private Const KLL_SRC = 3098 'Serbian (Cyrilic)
Private Const KLL_ENG = 1033 'English (US) keyboard language layout

'with app start, switch on your desired language
Private Sub A_Enter()

Call ActivateKeyboardLayout(KLL_SRC, 0)
End Sub

'with app exit, switch back to the defaults
Private Sub A_Exit(Cancel As Integer)

Call ActivateKeyboardLayout(KLL_ENG, 0)
End Sub

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu