Class Modul ile UserFormda Her Nesnede F Tuşlarını Kullanmak

Kulanıcı arayüz formu

Bu Örnek İşinize Yaradı Mı ?

Evet
25
100%
Hayır
0
Oy yok
 
Toplam oy : 25

Class Modul ile UserFormda Her Nesnede F Tuşlarını Kullanmak

İleti#1)  Tarkan VURAL » 10 Arl 2009 14:50

UserForm ile çalışırken F tuşlarını da kullanmak istiyorsanız, form üzerindeki her nesnenin KeyDown olayına bu durumu bildirmeniz gerekecek. Form üzerinde çok fazla nesne kullanıyorsanız, her nesnenin KeyDown olayına bu bildirimi yapmak için epeyce prosedür tanımlayıp kod yazmanız gerekir. Eğer yazmazsanız, F tuş basımlarında kodlarınız çalışmayacağı için işlem olmayacaktır. Bir nesneye yazarsanız sadece o nesne aktif iken çalışır. Burada tüm nesnelerle çalışabilecek bir kombinasyon geliştiriyoruz. Class Module uygulamaları bu tür sorunlar için bir çözüm getirir ve nesnelerin olayları için bir takım toplu kod çalıştırma işlemlerine yardım eder, kodları kısaltır.

Form üzerinde 20 adet TextBox, 10 Adet CommandButton vs.. varsa; her nesnenin tek tek KeyDown olaylarına kod yazmaya gerek kalmadan Class ile nasıl yapılacağı konusunda bir örnek çalışma hazırladım. Form açıldığında Standart VBA nesnelerinden hangisi aktif olursa olsun.

Projenize ExcelVBANet adında bir UserForm ekleyin. StdModul adında bir tane Standart Module ekleyin, EVN adında da bir tane de Class Module ekleyin.

ExcelVBANet adlı UserForm'unuzda sadece TextBox, ComboBox, CommandButton, MultiPage vs.. nesneleriniz olsun. Kod sayfasına bu aşamada kod yazmamıza gerek olmuyor. Proje amacınıza göre daha sonra kodlarsınız.

StdModul adlı modüle aşağıdaki kodları yazın.
Kod: Tümünü seç
Global Const evnF1 As Long = &H70
Global Const evnF2 As Long = &H71
Global Const evnF3 As Long = &H72
Global Const evnF4 As Long = &H73
Global Const evnF5 As Long = &H74
Global Const evnF6 As Long = &H75
Global Const evnF7 As Long = &H76
Global Const evnF8 As Long = &H77
Global Const evnF9 As Long = &H78
Global Const evnF10 As Long = &H79
Global Const evnF11 As Long = (&H37 + &H43)
Global Const evnF12 As Long = (&H37 + &H44)
Global Const evnESC As Long = (&H19 + &H2)
Public evnTus As Long
Public Nesne() As New EVN

Static Sub Kontrol()
For Each n In ExcelVBANet.Controls
    e = e + 1
    ReDim Preserve Nesne(1 To e)
    Select Case TypeName(n)
        Case Is = "Label"
            Set Nesne(e).Label = n
        Case Is = "TextBox"
            Set Nesne(e).TextBox = n
        Case Is = "ComboBox"
            Set Nesne(e).ComboBox = n
        Case Is = "CheckBox"
            Set Nesne(e).CheckBox = n
        Case Is = "CommandButton"
            Set Nesne(e).CommandButton = n
        Case Is = "Image"
            Set Nesne(e).Image = n
        Case Is = "ListBox"
            Set Nesne(e).ListBox = n
        Case Is = "MultiPage"
            Set Nesne(e).MultiPage = n
        Case Is = "OptionButton"
            Set Nesne(e).OptionButton = n
        Case Is = "ScrollBar"
            Set Nesne(e).ScrollBar = n
        Case Is = "SpinButton"
            Set Nesne(e).SpinButton = n
        Case Is = "ToggleButton"
            Set Nesne(e).ToggleButton = n
        Case Is = "ExcelVBANet"
            Set Nesne(e).ExcelVBANet = n
    End Select
    Next n
        ExcelVBANet.Show
End Sub

Public Sub ftus()
KeyCode = evnTus
Select Case KeyCode
    Case Is = evnF1
        MsgBox "F1 bastınız"
    Case Is = evnF2
        MsgBox "F2 bastınız"
    Case Is = evnF3
        MsgBox "F3 bastınız"
    Case Is = evnF4
        MsgBox "F4 bastınız"
    Case Is = evnF5
        MsgBox "F5 bastınız"
    Case Is = evnF6
        MsgBox "F6 bastınız"
    Case Is = evnF7
        MsgBox "F7 bastınız"
    Case Is = evnF8
        MsgBox "F8 bastınız"
    Case Is = evnF9
        MsgBox "F9 bastınız"
    Case Is = evnF10
        MsgBox "F10 bastınız"
    Case Is = evnF11
        MsgBox "F11 bastınız"
    Case Is = evnF12
        MsgBox "F12 bastınız"
    Case Is = evnESC
        MsgBox "ESC tuşuna bastınız"
        If MsgBox("Form kapansın mı", vbYesNo + vbQuestion, "Formu Kapatmayı Seçtiniz") = vbYes Then End
End Select
End Sub


EVN adlı Class Module içine de aşağıdaki kod bloklarını ekleyin.
Kod: Tümünü seç
Public WithEvents CheckBox As MSForms.CheckBox
Public WithEvents ComboBox As MSForms.ComboBox
Public WithEvents CommandButton As MSForms.CommandButton
Public WithEvents ExcelVBANet As MSForms.UserForm
Public WithEvents Image As MSForms.Image
Public WithEvents ListBox As MSForms.ListBox
Public WithEvents MultiPage As MSForms.MultiPage
Public WithEvents OptionButton As MSForms.OptionButton
Public WithEvents ScrollBar As MSForms.ScrollBar
Public WithEvents SpinButton As MSForms.SpinButton
Public WithEvents TextBox As MSForms.TextBox
Public WithEvents ToggleButton As MSForms.ToggleButton
Public WithEvents Label As MSForms.Label

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

Public Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub

Public Sub Image_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub

Public Sub CheckBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub

Public Sub ComboBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub

Public Sub CommandButton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub

Public Sub ListBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub

Public Sub Multipage_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub

Public Sub OptionButton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub

Public Sub ScrollBar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub

Public Sub SpinButton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub

Public Sub ToggleButton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub

Public Sub ExcelVBANet_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
Call ftus
End Sub


ThisWorkbook kod sayfasına da aşağıdaki kodları ekleyip dosyanızı kaydedin ve kapatıp açın.
Kod: Tümünü seç
Private Sub Workbook_Open()
Call Kontrol
End Sub


Şimdi form açıkken hangi nesne aktif olursa olsun, F tuşlarına ve ESC tuşuna basıp Class Module içindeki olayların çalışıp çalışmadığını test edebilirsiniz. --)(
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#2)  M Kubilay Karabulut » 10 Arl 2009 14:53

Emeğine ve bilgine sağlık
" WeWhoAreNotAsOthers"
Kullanıcı avatarı
M Kubilay Karabulut
Yönetim Kurulu
 
Adı Soyadı:Mustafa Kubilay KARABULUT
Kayıt: 15 Haz 2008 02:10
Konum: Maltepe/Istanbul
Meslek: Finans
Yaş: 40
İleti: 732
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Maltepe/İstanbul

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#3)  Erhan Yavuz » 10 Arl 2009 15:26

Eline sağlık.. Tarkan yine döktürmüşsün, birçok kişinin işine yarayacak, program revizesi yapmasına neden olacak bir uygulama... Teşekkürler... [op] [gulumse]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#4)  Emrah ÇANAKKALE » 10 Arl 2009 16:33

Elinize, emeğinize, bilginize sağlık bu mükemmel oldu. şkşk şkşk şkşk şkşk
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 14:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#5)  Murat OSMA » 10 Arl 2009 18:01

Teşekkürler abi. Ellerine sağlık. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#6)  Karabilal » 24 Şub 2010 17:23

Çok teşekkürler çok faydalı bir özellik.
Programlarımızda sıkça kullanacağız bundan sonra emin olabilirsiniz.
Kullanıcı avatarı
Karabilal
Yeni Başlamış
 
Adı Soyadı:Halil Yavuz
Kayıt: 25 Kas 2009 02:57
Konum: Bursa / Yıldırım
Meslek: Kalite kontrol
Yaş: 46
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yıldırım/Bursa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#7)  Osman AKYÜZ » 25 Ekm 2010 16:59

Çok güzel bir çalışma. [TESEKKÜR]
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 23:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 31
İleti: 645
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#8)  efeksk » 30 Oca 2011 17:12

Sn. Tarkan VURAL Hocam !!!!

Vermiş olduğunuz Fonksiyon Tuşları ile VBA Kontrolü çalışmanız gayet başarılı olmuş tebrik ederim.

LAKİN!!!
StdModul'de yazmış olduğunuz Kodlarda MsgBox olayı yerine sizin dediğiniz gibi Form üzerindeki CommandButton1 Nesnesini çalıştırmak için
Kod: Tümünü seç
MsgBox " F1 bastınız "
yerine
Kod: Tümünü seç
Call ExcelVBANet.CommandButton1_Click
olayını yazdım. Fakat F1 tuşuna veya diğer tuşlardan herhangi birine basınca Hata veriyor. Lütfen Yardımcı olurmusunuz....
Kullanıcı avatarı
efeksk
Yeni Başlamış
 
Adı Soyadı:halim karapınar
Kayıt: 03 Kas 2008 13:07
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: Cevap: Class Modul ile UserFormda Her Nesnede F Tuşla

İleti#9)  Tarkan VURAL » 31 Oca 2011 00:58

efeksk yazdı:Sn. Tarkan VURAL Hocam !!!!

Vermiş olduğunuz Fonksiyon Tuşları ile VBA Kontrolü çalışmanız gayet başarılı olmuş tebrik ederim.

LAKİN!!!
StdModul'de yazmış olduğunuz Kodlarda MsgBox olayı yerine sizin dediğiniz gibi Form üzerindeki CommandButton1 Nesnesini çalıştırmak için
Kod: Tümünü seç
MsgBox " F1 bastınız "
yerine
Kod: Tümünü seç
Call ExcelVBANet.CommandButton1_Click
olayını yazdım. Fakat F1 tuşuna veya diğer tuşlardan herhangi birine basınca Hata veriyor. Lütfen Yardımcı olurmusunuz....


Kolay bir çözüm:
CommandButton1 içindeki prosedürü bir module (makro1) içine taşıyın. CommandButton1 click olayında call makro1, diğer prosedüre de aynen call makro1 yazın. ;)

Kolay gelsin.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#10)  efeksk » 31 Oca 2011 10:39

Sayın Hocam dediğiniz gibi denedim ama yine hata aldım.

Call Makro1 dizilimini gerekli yerlere yazdım ama olmadı. Zaten iki sorun var. Birinci sorun UserForm üzerindeki çalışmasını istediğimiz nesneyi tetiklemek, ikinci sorun ise birden fazla UserForm olduğu için diğer nesnenelerin de "F" Fonksiyon tuşu ile çakışabilme ihtimali.

Sayın Hocam.
Acaba ricada bulunsak bize bir örnek halinde bu sorunlardan arındırılmış olarak bi dosya hazırlayabilirmisiniz örnek şeklinde.
Kullanıcı avatarı
efeksk
Yeni Başlamış
 
Adı Soyadı:halim karapınar
Kayıt: 03 Kas 2008 13:07
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#11)  Hamdi UNAL » 31 Oca 2011 11:04

Tarkan bey gerçekten güzel bir uygulama emin olun herkesin işine yarıyacaktır.

Hayırlı işler.
Kullanıcı avatarı
Hamdi UNAL
Site Dostu
 
Adı Soyadı:Hamdi Ünal
Kayıt: 01 Haz 2009 18:37
Yaş: 40
İleti: 616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul-Üsküdar-Çengelköy

Cevap: Cevap: Class Modul ile UserFormda Her Nesnede F Tuşla

İleti#12)  Tarkan VURAL » 31 Oca 2011 20:48

efeksk yazdı:Sayın Hocam.
Acaba ricada bulunsak bize bir örnek halinde bu sorunlardan arındırılmış olarak bi dosya hazırlayabilirmisiniz örnek şeklinde.



Yeni bir başlık açarak sorununuzu yazarsanız ilgilenmeye çalışalım. [evet]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#13)  hsayar » 01 Şub 2011 12:17

Sn. Vural ilginç ve yardımcı bir örnek. Şöyle bir şey mümkün mü?
Textbox üzerinde F1 e bastınız.
Label üzerinde f2 e bastınız.

gibi.
Felaket Başa Gelmeden Evvel Önleyici ve Koruyucu Tedbirler Düşünmek Lazım.

Felaket Geldikten Sonra Dövünmenin Yararı Yoktur.

Mustafa Kemal ATATÜRK
Kullanıcı avatarı
hsayar
Site Dostu
 
Adı Soyadı:Hüseyin SAYAR
Kayıt: 18 Eyl 2008 11:30
Meslek: Çalışma Ekonomisti
Yaş: 39
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#14)  Tarkan VURAL » 02 Şub 2011 19:14

Her iki durumda da aynı prosedür mü çalışacak ?
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#15)  hsayar » 02 Şub 2011 21:27

evet, F tuşuna bastığımda hangi nesnede olduğunun kontrolünü yapacak bir prosodür olursa, nesne türüne göre işlem yapılabilir. mesala listboxta sıralama ile listwievte sıralama işlemleri değişklik gösteriyordu bildiğim kadarı ile,
f5 basınca hangi nesnede algıladığını anlayarak ona göre sıralama yaptırılması sağlanabilir.
Felaket Başa Gelmeden Evvel Önleyici ve Koruyucu Tedbirler Düşünmek Lazım.

Felaket Geldikten Sonra Dövünmenin Yararı Yoktur.

Mustafa Kemal ATATÜRK
Kullanıcı avatarı
hsayar
Site Dostu
 
Adı Soyadı:Hüseyin SAYAR
Kayıt: 18 Eyl 2008 11:30
Meslek: Çalışma Ekonomisti
Yaş: 39
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: Cevap: Cevap: Class Modul ile UserFormda Her Nesnede

İleti#16)  butterfly_valley » 03 Şub 2011 23:28

Tarkan VURAL yazdı:
efeksk yazdı:Sayın Hocam.
Acaba ricada bulunsak bize bir örnek halinde bu sorunlardan arındırılmış olarak bi dosya hazırlayabilirmisiniz örnek şeklinde.



Yeni bir başlık açarak sorununuzu yazarsanız ilgilenmeye çalışalım. [evet]


Sn. Hocam,

Ben yeniyim burda ve soru sormak istiyorum ancak konu açamıyorum. acil yarıma ihtiyacım var. nasıl başlık açabilirim?
Kullanıcı avatarı
butterfly_valley
 
Adı Soyadı:Aydın eroğlu
Kayıt: 11 Oca 2011 03:10
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#17)  Tarkan VURAL » 04 Şub 2011 02:17

Ana başlıklara girdiğinizde ( mesajın detayı değil bir üst başlık) Yeni Konu butonunu seçerek konu açabilirsiniz. Forum kurallarına uygun yazmayı ihmal etmeyiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#18)  hsayar » 02 Mar 2011 23:28

Sn. Vural, mevcut örnek, hangi F kontrolüne, hangi nesne üzerinde basıldığını söyleme şeklinde geliştirilebilir mi?
Örneğin;
cbxADRESID adlı comobox üzerinde F4 tuşuna basıldığında frmY_ADRES framesi
cbxX1ID adlı comobox üzerinde F4 tuşuna basıldığında frmY_X1 framesi
cbxX2ID adlı comobox üzerinde F4 tuşuna basıldığında frmY_X2 framesi
ni çağıracacak şekilde kullanımı bana lazım.
Felaket Başa Gelmeden Evvel Önleyici ve Koruyucu Tedbirler Düşünmek Lazım.

Felaket Geldikten Sonra Dövünmenin Yararı Yoktur.

Mustafa Kemal ATATÜRK
Kullanıcı avatarı
hsayar
Site Dostu
 
Adı Soyadı:Hüseyin SAYAR
Kayıt: 18 Eyl 2008 11:30
Meslek: Çalışma Ekonomisti
Yaş: 39
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: Class Modul ile UserFormda Her Nesnede F Tuşlarını Ku

İleti#19)  Tarkan VURAL » 03 Mar 2011 04:40

Nesnelerin tag değerlerine ilgili Frame adı yazılıp pratik bir şekilde çözülebilir. [evet]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: Class Modul ile UserFormda Her Nesnede F Tuşla

İleti#20)  hsayar » 04 Mar 2011 19:34

Tarkan VURAL yazdı:Nesnelerin tag değerlerine ilgili Frame adı yazılıp pratik bir şekilde çözülebilir. [evet]


Tarkan bey, herhalde anlatamadım.
Mevcut durumda iletiler;
"F1 tuşuna bastınız"
"F2 tuşuna bastınız"
şeklinde gelmekte,
Ftus yordamında bu durumu;
"??? nesnesinde F1 tuşuna bastınız"
"??? nesnesinde F2 tuşuna bastınız"
şeklinde değiştirmek mümkün mü diye soruyorum.
Nesnenin adını bilmeden tag değerini nasıl kontrol edebiliriz?
Felaket Başa Gelmeden Evvel Önleyici ve Koruyucu Tedbirler Düşünmek Lazım.

Felaket Geldikten Sonra Dövünmenin Yararı Yoktur.

Mustafa Kemal ATATÜRK
Kullanıcı avatarı
hsayar
Site Dostu
 
Adı Soyadı:Hüseyin SAYAR
Kayıt: 18 Eyl 2008 11:30
Meslek: Çalışma Ekonomisti
Yaş: 39
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Sonraki

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe