Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 1 odgovor
  • 2.715 pregleda

Najnovija ↓

Procedura za događaj Workbook open 13.05.2012. u 09:50 · pre 176 meseci #1
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 ).
Re: Procedura za događaj Workbook open 14.05.2012. u 00:03 · pre 176 meseci #2
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
Potpis
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!
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme