ClassModulde Msforms.Control ile TextBox Enter Exit Olayları

Class Module İşlemleri

ClassModulde Msforms.Control ile TextBox Enter Exit Olayları

İleti#1)  hsayar » 22 Şub 2010 22:38

Bir userform, 25 textbox ım var...userformda aşağıdaki gibi tekrar eden 2 kod var... bunu classmodulde yapmak istiyorum ancak Textbox'ın Enter ve Exit olayları classmodulde çalışmıyor ne yapabiliriz?

Kod: Tümünü seç
Private Sub TextBox1_Enter()
   TextBox1.BackColor = &HFFFF&
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.BackColor = vbWhite
End Sub
....
...
...
Private Sub TextBox25_Enter()
   TextBox25.BackColor = &HFFFF&
End Sub
Private Sub TextBox25_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox25.BackColor = vbWhite
End Sub


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 09:30
Meslek: Çalışma Ekonomisti
Yaş: 40
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: ClassModullerde Textbox_Enter ve Exit olayları yada e

İleti#2)  Emrah ÇANAKKALE » 23 Şub 2010 06:21

Ben MouseMove özelliğini kullanıyorum deneyin.

Formu açmak için :

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Call AC
End Sub


Module :

Kod: Tümünü seç
Dim Buton1() As New Class1

Sub AC()
Dim sayi As Integer
Dim ctl As Control
    sayi = 0
    For Each ctl In UserForm1.Controls
        If TypeName(ctl) = "TextBox" Then
            sayi = sayi + 1
            ReDim Preserve Buton1(1 To sayi)
            Set Buton1(sayi).fd = ctl
        End If
    Next ctl
    UserForm1.Show
End Sub



Classmodule :

Kod: Tümünü seç
Public WithEvents fd As MSForms.TextBox
Private Sub fd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim i As Integer
For i = 1 To 5 ' textbox sayısı
UserForm1.Controls("textbox" & i).BackColor = vbWhite
Next i
fd.BackColor = &HFFFF&
fd.SetFocus
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 12:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: ClassModullerde Textbox_Enter ve Exit olayları yada e

İleti#3)  hsayar » 23 Şub 2010 08:17

Çalışma form doldururken mouse kullananlar için ideal bir çözüm.
Ancak ben asla fare kullanmam :( Genelde Metin Kutuları, combolar arasında tab tuşu ile ilerler, shift + tab ile geri dönerim. Nadiren ise yön tuşlarını kullanırı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 09:30
Meslek: Çalışma Ekonomisti
Yaş: 40
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: ClassModullerde Textbox_Enter ve Exit olayları yada e

İleti#4)  Emrah ÇANAKKALE » 23 Şub 2010 08:44

O zaman keyup ta işinize yarar.

Kod: Tümünü seç
Private Sub fd_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim i As Integer
For i = 1 To 5 ' textbox sayısı
UserForm1.Controls("textbox" & i).BackColor = vbWhite
Next i
fd.BackColor = &HFFFF&
fd.SetFocus
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 12:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

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

Cevap: ClassModullerde Textbox_Enter ve Exit olayları yada e

İleti#5)  hsayar » 23 Şub 2010 09:45

Bu durum işime yarayabilir tabi orjinal çalışmamda textboxların adı textbox1,2,3 .... 25 diye gitmediği için uyarlamam gerekecek.
Teşekkürler
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 09:30
Meslek: Çalışma Ekonomisti
Yaş: 40
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: ClassModullerde Textbox_Enter ve Exit olayları yada e

İleti#6)  Tarkan VURAL » 23 Şub 2010 09:50

Emrah beyin yazdığı yöntemin uyarlanmışı. Denemedim.

Kod: Tümünü seç
Private Sub fd_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim i As Integer
For each i in userform1.controls
if TypeOf i is Msforms.TextBox then i.BackColor = vbWhite
Next i
fd.BackColor = &HFFFF&
fd.SetFocus
End Sub
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 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: ClassModullerde Textbox_Enter ve Exit olayları

İleti#7)  Emrah ÇANAKKALE » 23 Şub 2010 09:52

hsayar yazdı:Bu durum işime yarayabilir tabi orjinal çalışmamda textboxların adı textbox1,2,3 .... 25 diye gitmediği için uyarlamam gerekecek.
Teşekkürler

Onu düşünmemiştim, alttaki şekilde kullanırsanız buda problem olmaz.

Kod: Tümünü seç
Private Sub fd_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim i As Integer
    For Each ctrl In UserForm1.Controls
        If TypeName(ctrl) = "TextBox" Then ctrl.BackColor = vbWhite
Next
fd.BackColor = &HFFFF&
fd.SetFocus
End Sub


Geç kalmışım...
İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 12:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: ClassModullerde Textbox_Enter ve Exit olayları yada e

İleti#8)  hsayar » 23 Şub 2010 19:14

Mudülü Ado ile ilgili sorunum hafflediği için adapte edip denedim...emeğinize sağlık çok güzel fakat textboxtan çıkıp textboxtan farklı bir kontrole (combo, listbox, commandbuton vs.) geçince son seçilen textbox'ın arkaplanrengi sarı kalıyor. Nasıl aşılabilir?
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 09:30
Meslek: Çalışma Ekonomisti
Yaş: 40
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: ClassModullerde Textbox_Enter ve Exit olayları yada e

İleti#9)  Tarkan VURAL » 23 Şub 2010 22:37

hsayar yazdı:... çok güzel fakat textboxtan çıkıp textboxtan farklı bir kontrole (combo, listbox, commandbuton vs.) geçince son seçilen textbox'ın arkaplanrengi sarı kalıyor. Nasıl aşılabilir?


Kod: Tümünü seç
For each i in userform1.controls
if TypeOf i is Msforms.TextBox then
i.BackColor = vbWhite
else
i.BackColor = istediğniz bir renk
end if
Next i


Kod: Tümünü seç
For Each ctrl In UserForm1.Controls
        If TypeName(ctrl) = "TextBox" Then
        ctrl.BackColor = vbWhite
        else
        ctrl.BackColor = istediğiniz bir renk
        end if
Next
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 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

ClassModulde Msforms.Control ile TextBox Enter Exit Olayları

İleti#10)  hsayar » 27 Şub 2010 19:01

Class modulde en üstte aşağıdaki satır var,
Kod: Tümünü seç
Public WithEvents objKNTRLExE As Msforms.Control


Userformda da aşağıdaki kodlar var
Kod: Tümünü seç
Private cKNTRL_ExE()     As New cls_DENETIM

Private Sub UserForm_Initialize()

  Call subTEXTBOXLARICLASAAL2
End Sub


Private Sub subTEXTBOXLARICLASAAL2()
Dim ufCTRL As Object
Dim i As Integer
  For Each ufCTRL In Me.Controls
'    If (TypeOf ufCTRL Is MSForms.TextBox) Or _
'       (TypeOf ufCTRL Is MSForms.ComboBox) Then
       i = i + 1
       ReDim Preserve cKNTRL_ExE(1 To i)
       Set cKNTRL_ExE(i).objKNTRLExE = ufCTRL
'    End If
  Next
End Sub


Bilindiği üzere textbox ve comboboxların exit, enter olayları class da desteklenmiyor,classda yukarıdaki satırı koyunca Enter, Exit, After update ve After Before olayları geliyor ama döngüde sorun çıkartıyor.
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 09:30
Meslek: Çalışma Ekonomisti
Yaş: 40
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: ClassModulde Msforms.Control değerine atama yapmak

İleti#11)  hsayar » 27 Şub 2010 19:13

http://www.eggheadcafe.com/forumarchive ... 180923.asp
burda bir şeyler var ama ben anlayamadı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 09:30
Meslek: Çalışma Ekonomisti
Yaş: 40
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: ClassModulde Msforms.Control değerine atama yapmak

İleti#12)  hsayar » 27 Şub 2010 20:06

http://hanatyan.sakura.ne.jp/logbbs1/wf ... de=msgview
burdada bazı kodlar var, ondada
AddressOf TimerProc değerinde hata veriyor :(
Örnek ilginç CLass ile vbada özel event tanımlıyor :)
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 09:30
Meslek: Çalışma Ekonomisti
Yaş: 40
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: Cevap: ClassModulde Msforms.Control değerine atama ya

İleti#13)  hsayar » 28 Şub 2010 18:55

hsayar yazdı:http://hanatyan.sakura.ne.jp/logbbs1/wforum.cgi?no=7330&reno=7285&oya=7285&mode=msgview
burdada bazı kodlar var, ondada
AddressOf TimerProc değerinde hata veriyor :(
Örnek ilginç CLass ile vbada özel event tanımlıyor :)


Sonunda buradaki kodlara göre düzenleme yaptım [oley]
Dosyayı SkyDrive Alanıma Yükledim indirmek için: önce indireceğinşiz dosyayı sonra karşıdan yükleyi seçiniz:
http://cid-2de0f5321dad5d5a.skydrive.li ... 4%B1z2.JPG

Gönderilmiş resmi tam boy görmek istiyorsanız, eklentinin üzerini tıklayınız.




Dosya:
http://wvgtkw.bay.livefilestore.com/y1p ... r?download
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 09:30
Meslek: Çalışma Ekonomisti
Yaş: 40
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: ClassModulde Msforms.Control ile TextBox Enter Exit O

İleti#14)  Tarkan VURAL » 28 Şub 2010 19:53




Class kodları;

Kod: Tümünü seç
Private Declare Function SetTimer Lib "user32" ( _
                            ByVal Hwnd As Long, ByVal nIDEvent As Long, _
                            ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Private Declare Sub KillTimer Lib "user32" ( _
                            ByVal Hwnd As Long, ByVal nIDEvent As Long)

Event EnterControl(ByVal Ctrl As MSForms.Control)
Event ExitControl(ByVal Ctrl As MSForms.Control)

Private myForm As UserForm
Private myPreActiveControl As MSForms.Control

Private myTimerId As Long

Private Function GetActiveControl( _
    ByVal ParentObject As Object) As MSForms.Control
    Dim myContena As Object
    Dim myActiveControl As MSForms.Control
    On Error GoTo LstHdl
   
    Set myContena = ParentObject
    Set myActiveControl = myContena.ActiveControl
    Set GetActiveControl = myActiveControl
LstHdl:
    Set myContena = Nothing
    Set myActiveControl = Nothing
End Function

Public Sub CheckActiveControl()
    Dim myActiveControl As MSForms.Control
    On Error Resume Next
    Set myActiveControl = GetActiveControl(myForm)
    If myActiveControl Is Nothing Then Exit Sub
    If myActiveControl Is myPreActiveControl Then GoTo LstHdl
    RaiseEvent ExitControl(myPreActiveControl)
    RaiseEvent EnterControl(myActiveControl)
    Set myPreActiveControl = myActiveControl
LstHdl:
    Set myActiveControl = Nothing
End Sub

Public Sub Init(ByVal myNewForm As UserForm)
    Set myForm = myNewForm
    Set myPreActiveControl = GetActiveControl(myForm)
    RaiseEvent EnterControl(myPreActiveControl)
    myTimerId = SetTimer(0&, 0&, 0&, AddressOf TimerProc)
End Sub

Private Sub Class_Terminate()
    KillTimer 0&, myTimerId
    Set myForm = Nothing
    Set myPreActiveControl = Nothing
End Sub


Module Kodları;
Kod: Tümünü seç
Private Declare Sub KillTimer Lib "user32" ( _
                    ByVal Hwnd As Long, ByVal nIDEvent As Long)

Public Sub TimerProc( _
                    ByVal Hwnd As Long, ByVal uMsg As Long, _
                    ByVal idEvent As Long, ByVal dwTime As Long)
                   
On Error Resume Next
    If UserForms.Count = 0 Then
        KillTimer 0&, idEvent
        Exit Sub
    End If
        UserForm1.EventClass.CheckActiveControl
End Sub



UserForm1 kodları ;
Kod: Tümünü seç
Private WithEvents myClass As Class1
Private myCollection As Collection

Public Property Get EventClass() As Class1
    Set EventClass = myClass
End Property

Private Function CheckControl( _
    ByVal Ctrl As MSForms.Control) As Boolean
    Dim myCtrl As MSForms.Control
    For Each myCtrl In myCollection
        If myCtrl Is Ctrl Then Exit For
    Next
    CheckControl = Not myCtrl Is Nothing
    Set myCtrl = Nothing
End Function

Private Sub myClass_EnterControl(ByVal Ctrl As MSForms.Control)
    If Not CheckControl(Ctrl) Then Exit Sub
    MsgBox Ctrl.Name & " 'e Giriş Yaptınız"
End Sub

Private Sub myClass_ExitControl(ByVal Ctrl As MSForms.Control)
    If Not CheckControl(Ctrl) Then Exit Sub
    MsgBox Ctrl.Name & " 'den Çıkış Yaptınız"
End Sub

Private Sub UserForm_Activate()
    Static f As Boolean
    Dim i As Long
    If f Then Exit Sub
    Set myCollection = New Collection
        For Each ctl In UserForm1.Controls
            If TypeOf ctl Is MSForms.TextBox Then myCollection.Add ctl
        Next
    Set myClass = New Class1
    myClass.Init Me
    f = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Set myClass = Nothing
End Sub


Kodlar hanatyan.sakura.ne.jp sitesinden alıntı yapılmıştır.
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 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: ClassModulde Msforms.Control ile TextBox Enter Exit O

İleti#15)  hsayar » 28 Şub 2010 20:56

Tarkan bey alakanıza teşekkür ederim, bende derlediğimi söylemiş ve örneği sunmuştum : )
http://wvgtkw.bay.livefilestore.com/y1p ... r?download
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 09:30
Meslek: Çalışma Ekonomisti
Yaş: 40
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: ClassModulde Msforms.Control ile TextBox Enter Exit O

İleti#16)  Tarkan VURAL » 28 Şub 2010 21:06

Örneklerin açık kodlu ve eklenen dosyaların sitemizden indirilebilecek şekilde olması taraftarı olduğum için ayrıca ekleme ihtiyacı duydum. Çok örnek, ekleyenlerin zamanla ilgili sitelerden kendileri tarafından iptal edildiği, yahut yükledikleri sunucu tarafından iptal (reject ) edildiğinden, konusunu açtığınız faydalı çalışmayı bizzat siteye ekleyerek arandığında bulunmasını kolaylaştırmak istedim. Kodları zaten sizin verdiğiniz bağlantıdan aldım. [evet] Paylaşımınız , konuyu dile getirdiğiniz ve çözüm sunduğunuz için çok teşekkür ediyorum. şkşk şkşk
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 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: ClassModulde Msforms.Control ile TextBox Enter

İleti#17)  hsayar » 28 Şub 2010 21:36

Tarkan VURAL yazdı:Örneklerin açık kodlu ve eklenen dosyaların sitemizden indirilebilecek şekilde olması taraftarı olduğum için ayrıca ekleme ihtiyacı duydum. Çok örnek, ekleyenlerin zamanla ilgili sitelerden kendileri tarafından iptal edildiği, yahut yükledikleri sunucu tarafından iptal (reject ) edildiğinden, konusunu açtığınız faydalı çalışmayı bizzat siteye ekleyerek arandığında bulunmasını kolaylaştırmak istedim. Kodları zaten sizin verdiğiniz bağlantıdan aldım. [evet] Paylaşımınız , konuyu dile getirdiğiniz ve çözüm sunduğunuz için çok teşekkür ediyorum. şkşk şkşk


Eklediğim bağlantı Microsoft skydrive dır. Siliniceğini sanmıyorum.
Boş bir zamanınızda Kodlar üzerinde çalışırsanız daha verimli kullanabiliriz diye düşünüyorum. benin gözüme çarpan eksiklikler şunlar:
Aktif Userform üzerinden başka bir userform çağırdığımızda Enter/Exit olayları iptal oluyor :)
Uyarladığım Text ve Comboboxlarda SagTus Uygulamasındaki gibi Class initalizede kullanıllacak kontrolleri Ekleyeceğimiz Ek Collection clası çözüm olabilir mi?

İnsanoğlu daima fazlasını ister :)
Frame5 içindeki Text ve Combo lara girince Kırmızı çıkınca beyaz
Frame6 içindeki Text ve Combo lara girince Yeşil çıkınca Sarı
olsun nasıl deriz.

Exit2, eneter 2 gibi classta event tanımlasak işe yarar 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 09:30
Meslek: Çalışma Ekonomisti
Yaş: 40
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: ClassModulde Msforms.Control ile TextBox Enter Exit O

İleti#18)  Tarkan VURAL » 28 Şub 2010 21:40

Hüseyin bey, Class olaylarında siz ne biliyorsanız ben daha azını biliyorumdur. [evet] Dediklerinizi uygun zamanda deneyerek çözmeye çalışırım elbette. Hem sizin sorununuzu gidermek hem kendi merakımı ve Class seviyemi ilerletmek için. 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 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: ClassModulde Msforms.Control ile TextBox Enter

İleti#19)  hsayar » 28 Şub 2010 21:51

Tarkan VURAL yazdı:Hüseyin bey, Class olaylarında siz ne biliyorsanız ben daha azını biliyorumdur. [evet] Dediklerinizi uygun zamanda deneyerek çözmeye çalışırım elbette. Hem sizin sorununuzu gidermek hem kendi merakımı ve Class seviyemi ilerletmek için. Kolay gelsin. --)(

Estağfurullah Tarkan bey, bende baştan sona kadar Class yazmıyorum kopyala yapıştır değiştir ..
Keşke daha iyisini yapabilsem.
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 09:30
Meslek: Çalışma Ekonomisti
Yaş: 40
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: ClassModulde Msforms.Control ile TextBox Enter Exit O

İleti#20)  Tarkan VURAL » 28 Şub 2010 22:28

Bu arada bir püf belirtmek istiyorum. AddressOf özelliği sadece Module içerisinde çalışır. O satırı gördüğünüzde, o prosedürü Module içine atmayı hatırlayınız. [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 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Sonraki

Forum Class Module

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe