textbox enter tuşu

[zulfuernek]

textbox 1 ve listbox 1 ve label 1 var

listbox 1 de mausla hangi veriye tıklarsam tıkladığım veri labelde görünüyor.

benim istediğim textbox 1 de enter tuşuna basınca listbox 1 deki sıradaki değeri seçmesi. ve maus imlecinin textboxda kalması. enter tuşuna her tıkladığımda lastoxda sıradaki veriyi seçsin

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları deneyin.

Dim txtSec As Boolean

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = txtSec
    txtSec = False
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Not ListBox1.ListCount = ListBox1.ListIndex + 1 And ListBox1.ListCount > 0 And KeyCode = 13 Then
        ListBox1.ListIndex = ListBox1.ListIndex + 1
    End If
    txtSec = True
End Sub

 

[zulfuernek]

Sayın dalgalıkur hocam;

verdiğiniz formül oldu. ancak ufak bi eksiğim var.

tetxtboxda enteerleyince listboxda bir alttaki seçeneği seçiyorfakat bir defaya mahsus. yani seçtiktn sonra imeç textboxdan çıkıyor. bunu engelleyebilirmiyiz. yani textboxda enter diyince ben mausla farklı bir yere tıklayıncaya kadar bu döngü textbox içinde devam etsin. mesela liitboxdaki liste sonuna gelirse bile tekrar başa dönsün isterim. sonsuz döngü yani

 

[Muzaffer Ali]

Sadece bu kodları kullanırsanız zaten öyle oluyor.

Demek ki sizin kodlarınızda başka bir olay daha var ve "TextBox" tan imleci çıkarıyor.

Eğer dosyanızı eklerseniz kontrolünü sağlayabilirim.

 

[zulfuernek]

http://dosya.co/7tawwb8dtelp/BRN_1_-_Kopya.xlsm.html

yeşil olarak işaretlediğim textbox hocam

 

[Muzaffer Ali]

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Satırı silip yerine aşağıdaki satırı kopyalayın

Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 

[zulfuernek]

hocam emeğinize sağlık. oldu. teşekkür ederim.hocam buna benzer bir sorum daha olucak

enter tuşu konusunda sizi uzman gördüm.

yan tarafta yeni kayıt seçeneğiyle farklı bir frame var
burdaki textboxlara yaz yazıp enterleyince diğer textboxa geçebilirmi ve soyadını yazdıktan sonra üye kayıt butonuna gelicek ve enter diyince bu butonun işini görecek.

sonra tekrar ilk textboxa(tckn) textboxuna dönecek

 

[Orion1]

Dosyanız linktedir.

DOSYAYI İNDİR

.

 

[zulfuernek]

olayın döngüsünü anladım Orion hocam. ellerine sağlık olmuş

 

[Orion1]

olayın döngüsünü anladım Orion hocam. ellerine sağlık olmuş

Tebrik ederim.
Kolay gelsin.