[VBA] Navigacija kroz objekte userforme

[VBA] Navigacija kroz objekte userforme 18.07.2007. u 15:11 · pre 234 meseca #1

Da li postoji nacin da postavim keyboard shortcut na userform textbox-u. Recimo imam ROBU i da kad kliknem na userform i pritisnem R on me prebaci na taj textbox itd.Nadam se da ste me shvatili.Puno hvala!!!

Re: [VBA] Navigacija kroz objekte userforme 19.07.2007. u 22:53 · pre 234 meseca #2

Pozdrav za sve ,
ne znam dali sam razumeo tvoje pitanje , bez obzira evo jednog primera .
Za prebacivanje na neku kontrolu u UserForm koristise komanda SetFocus
Cao

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

TextBox_SetFocus.xls31k

Re: [VBA] Navigacija kroz objekte userforme 20.07.2007. u 11:50 · pre 234 meseca #3

upravo to ali ne preko commandbuttona nego shortcuta na tastaturi: recimo ako hocu na textbox4 ja pritisnem ctrl + 4 itd. da je tako nesto moguce?

Re: [VBA] Navigacija kroz objekte userforme 22.07.2007. u 19:15 · pre 234 meseca #4

kako da namestim da ako recimo imam 10 textboxa jedan ispod drugog sa redom postavljenim tebindexima da na enter prebaci sa jednog na drugi a ne i kursorima i kako recimo u comboboxu kada strelicama trazim vrednost da kada dodje do kraja ne predje na sledeci objekat (neki textbox ) nego da to uradi samo na enter to jest kada se izabere neka vrednost? hvala

Re: [VBA] Navigacija kroz objekte userforme 23.07.2007. u 14:57 · pre 234 meseca #5

Koristeci KeyDown dogadjaj (ili KeyPress, KeyUp) svake textbox kontrole, treba ispistati pritisnuti taster i zavisno od toga prebaciti se u drugu kontrolu - SetFocus. Npr. sledeci kod reaguje na CTRL+4 u prvom textboxu i pozicionira te u četvrti

Code:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim fAlt As Boolean
Dim fShift As Boolean
Dim fCtrl As Boolean

fAlt = IIf(Shift = 4, True, False)
fShift = IIf(Shift = 1, True, False)
fCtrl = IIf(Shift = 2, True, False)

If KeyCode = vbKey4 And fCtrl Then
' Pressed CTRL + 4
Me.TextBox4.SetFocus
'Clear the key stroke
KeyCode = 0
End If

End Sub

Da se kod nebi duplirao najbolje da napišeš poseban podprogram sa Select ... Case koji će da na osnovu ulaznih parametara odradi šta treba. Ovaj podprogram treba da pozivaš iz KeyDown događaja svake textbox kontrole prosleđujući parametre KeyCode i Shift

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: [VBA] Navigacija kroz objekte userforme 23.07.2007. u 15:06 · pre 234 meseca #6

Citat:

na enter prebaci sa jednog na drugi

- Enter standardno prebacuje sa jednog na drugi, ukoliko ti textboxovi nisu multiline

Citat:

a ne i kursorima

da bi sprečio navigaciju na kursor treba da napišeš svoj kod na KeyDown događaj kontrole u kome ćeš da ispitaš da li pritisnuta strelica (keyCode = vbKeyUp, vbKeyDown...) i onda da radiš šta treba, a ne prelazak u sledeću kontrolu

Obrati pažnju da se radi o događaju text box kontrole, a ne forme.
Pritisak na taster sa standardnim ANSII kodom (alfanumerički karakteri, kombinacija sa CTRL, Backspace, Esc) izaziva događaje KeyDown - KeyPress - KeyUp (tim redom). Za razliku od KeyDown i KeyUp pritisak na strelice, tab, Enter, Alt ne izaziva događaj KeyPress.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Forum kao aplikacija na telefonu

Srodne teme