Class Modullerle TextBox Nesnelerinde Kopyala ve Yapıştır

Class Module İşlemleri

Class Modullerle TextBox Nesnelerinde Kopyala ve Yapıştır

İleti#1)  Tarkan VURAL » 28 Şub 2010 16:57

Aşağıdaki kodlarla UserForm üzerindeki TextBox nesnelerinde sağ fare tuşuna bastığınızda, kopyalama panelindeki veriyi TextBox' a yapıştırabilirsiniz. Yada TextBox 'ta yazılı veriyi seçip başka TextBox' lara yapıştırabilirsiniz. Yahut komple TextBox içeriğini temizleyebilirsiniz. Uygulama, CommandBar nesnesinin kendi Kopyala, Yapıştır ve Temizle özelliklerini kullanıyor. Aynı işlemi ComboBox için de yapabiliriz ancak ComboBox nesnelerindeki verilerin daha çok kayıtlı ve seçilebilir olmaları özelliklerinden dolayı sadece TextBox nesnelerinde kullanmak daha mantıklı geldi.



UserForm1 kod sayfasına;
Kod: Tümünü seç
Dim cBar As evnClass

Private Sub UserForm_Initialize()
   Set cBar = New evnClass
   cBar.Initialize Me
End Sub


evnClass adlı bir Class Module kod sayfasına;
Kod: Tümünü seç
Private cmdBar As CommandBar
Private WithEvents cmdCopyButton As CommandBarButton
Private WithEvents cmdPasteButton As CommandBarButton
Private WithEvents cmdClearButton As CommandBarButton
Private WithEvents TControl As MSForms.TextBox
Private fmUserform As Object
Private colControls As Collection

Sub Initialize(ByVal UF As Object)
   Dim Ctl As MSForms.Control
   Dim cBar As evnClass
   For Each Ctl In UF.Controls
      If TypeName(Ctl) = "TextBox" Then
        If colControls Is Nothing Then
            Set colControls = New Collection
            Set fmUserform = UF
           CreateBar
         End If
        Set cBar = New evnClass
         cBar.AssignControl Ctl, cmdBar
        colControls.Add cBar
      End If
   Next Ctl
End Sub

Private Sub Class_Terminate()
  On Error Resume Next
   cmdBar.Delete
End Sub

Private Sub cmdCopyButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   fmUserform.ActiveControl.Copy
   CancelDefault = True
End Sub


Private Sub cmdPasteButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   fmUserform.ActiveControl.Paste
   CancelDefault = True
End Sub

Private Sub cmdClearButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   fmUserform.ActiveControl.Value = ""
   CancelDefault = True
End Sub

Private Sub cmdCutButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   fmUserform.ActiveControl.Cut
   CancelDefault = True
End Sub

Private Sub TControl_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _
      ByVal X As Single, ByVal Y As Single)
   If Button = 2 And Shift = 0 Then
     cmdBar.ShowPopup
   End If
End Sub

Private Sub CreateBar()
    Set cmdBar = Application.CommandBars.Add(, msoBarPopup, 0, 1)
    Set cmdCopyButton = cmdBar.Controls.Add(, 19)
    Set cmdPasteButton = cmdBar.Controls.Add(, 22)
    Set cmdClearButton = cmdBar.Controls.Add(, 47)
End Sub

Sub AssignControl(TB As MSForms.TextBox, Bar As CommandBar)
   Set TControl = TB
   Set cmdBar = Bar
End Sub


Kodlar yabancı bir kaynaktan alıntı yapılarak derlenmiştir.
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: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Class Modullerle TextBox Nesnelerinde Kopyala ve Yapı

İleti#2)  Emrah ÇANAKKALE » 28 Şub 2010 17:39

Güzel çalışma --)( teşekkürler.
İ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 14:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Class Modullerle TextBox Nesnelerinde Kopyala ve Yapı

İleti#3)  hsayar » 28 Şub 2010 20:38

Tarkan bey aşağıdaki konu başlığında bulunan download/file.php?id=6028 bu dosyada Combolar eğer Açılır liste görünümünde ise Hata denetimi koyduğum bir çalışma var. Fakat iki ayrı Classta. Bunları diğer ç.alışma kitaplarından çağrılır hale getirebilirsek çok güzel olur.
viewtopic.php?f=78&t=797
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 Modullerle TextBox Nesnelerinde Kopyala ve Yapı

İleti#4)  f_simsek863 » 17 May 2016 18:24

Merhabalar
Mause ile değilde kodlarla bu islemi yapabilirmiyiz acaba.
Kullanıcı avatarı
f_simsek863
Yeni Başlamış
 
Adı Soyadı:fatih şimşek
Kayıt: 02 Tem 2011 16:10
Konum: ankara
Meslek: bilgi işlem
Yaş: 32
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

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

Cevap: Class Modullerle TextBox Nesnelerinde Kopyala ve Yapı

İleti#5)  f_simsek863 » 20 May 2016 17:57

Yardımcı olursanız sevinirim.
Kullanıcı avatarı
f_simsek863
Yeni Başlamış
 
Adı Soyadı:fatih şimşek
Kayıt: 02 Tem 2011 16:10
Konum: ankara
Meslek: bilgi işlem
Yaş: 32
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Class Modullerle TextBox Nesnelerinde Kopyala ve Yapı

İleti#6)  Tarkan VURAL » 09 Haz 2016 13:17

Kodlarla yapılıyor zaten. Kodlar mouse sağ tuş özelliği kazandırıyor.
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: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Class Module

Online Kullanıcılar

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

Bumerang - Yazarkafe