Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Procedura za događaj Workbook open

[es] :: Office :: Excel :: Procedura za događaj Workbook open

[ Pregleda: 1217 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

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

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



Profil

icon Procedura za događaj Workbook open13.05.2012. u 08:50 - pre 104 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: 1287

Jabber: 3okc@elitesecurity.org


+109 Profil

icon Re: Procedura za događaj Workbook open13.05.2012. u 23:03 - pre 104 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

[es] :: Office :: Excel :: Procedura za događaj Workbook open

[ Pregleda: 1217 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.