Bu Örnek İşinize Yaradı Mı ?

[Murat OSMA]

Tarkan bey'in ilk mesajda eklediği dosyadaki StdModule içerisine aşağıdaki kodu ilave edin...

Kod: Tümünü seç

Public ad As String

Public Sub ftus()
Altındaki MsgBoxları aşağıdaki gibi değiştirin.

Kod: Tümünü seç

MsgBox ad & vbLf & "F5 bastınız"

gibi...

EVN ClassModule deki her nesnenin koduna, aşağıdaki kodu nesnelere göre değiştirip deneyiniz....

Kod: Tümünü seç

Public Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
ad = TextBox.Name
Call ftus
End Sub

[hsayar]

Bu yöntem için teşkkürler. Başka bir yöntem var mı?

[selcukbackir]

Allah razı olsun Tarkan abi gerçekten çok işe yarar bu..Şİmdi 38 textbox lu bir projem biraz dinamik bir yapısı olmasını istiyordum.Bu işe yarar...

[Ozan İLGÜN]

Elinize sağlık Tarkan Bey.

[selcukbackir]

Çok Teşekkürler bu tam aradığım şeydi.Allah razı olsun...

[yaveryen]

Tarkan Bey elinize sağlık çok güzel bir çalışma olmuş.
Amacım userform üzerinde iken F10 tuşuna basıldığında başka bir formu açıp inputbox ile arama fonksiyonunu hazırlamaktı. Bu F tuşlarının aktif hale getirmeyi ararken resmen google'da arama yapmaktan parmaklarım ağrıdı diyebilirim
Tekrar çok teşekkürler.

Farklı yöntem arayan arkadaşlar için;
* Call Kontrol yazısını userform_activate olayına yazarsanız userform her aktif olduğunda F fonksiyonlarını kullanabilirsiniz.
* Msgbox "F.. bastınız" yerine uygulanmasını istediğiniz kodu yazarsanız (commandbutton_click vs olayındaki kodu) F tuşu ile herhangibir butonu aktif ettirmeye gerek kalmaz. Örn: Msgbox yerine userform1.show veya textbox1 = textbox2 gibi

[GeNCo]

Hocam merhaba, birkaç userform olursa bunu nasıl yapacağız ?