Class No.sunu Öğrenmek

[Ergün Güler]

Selam,
bir userformdaki 30 adet textbox için aşağıdaki gibi class modul uyguladım. Bu texbox'lara tıkladığımda, classa eklenen no.sunu veya kendi no.sunu öğrenmek istiyorum.
Nasıl öğrenebilirim?

Option Explicit

Dim Txt() As New Class1

Private Sub UserForm_Initialize()
    Dim X As Byte
    
    ReDim Preserve Txt(30)
    For X = 1 To 30
    Set Txt(X).Txt = Controls("TextBox" & X)
    Next
End Sub

Option Explicit

Public WithEvents Txt As MSForms.TextBox

Private Sub Txt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "bu mesajda no.sunu öğrenmek istiyorum"
End Sub

mesajda Ya X no.sunu ya da örneğin TextBox1'in 1'ini öğrenmek istiyorum.
Yardımcı olabilirseniz çok sevinirim.

İyi çalışmalar.

 

[mustafaine1]

merhaba, suan bilgisayarim yok telefondan yaziyorum direk bir kodu varmi bilmiyorum ama, texboxinizin adinin len ile uzunlugunu ogrenip, cikan sonuctan 7 cikartarak; kalan kadar sag kisminin degerini alabilirsiniz. En azindan fikrimi soyleyim istedim, kolay gelsin..

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz.

MsgBox replace(txt.name,"TextBox","")

 

[Ergün Güler]

Aşağıdaki gibi kullanabilirsiniz.

MsgBox replace(txt.name,"TextBox","")

merhaba, suan bilgisayarim yok telefondan yaziyorum direk bir kodu varmi bilmiyorum ama, texboxinizin adinin len ile uzunlugunu ogrenip, cikan sonuctan 7 cikartarak; kalan kadar sag kisminin degerini alabilirsiniz. En azindan fikrimi soyleyim istedim, kolay gelsin..

Sayın mustafaine ve Sayın Levent Menteşoğlu,
Her ikinize de çok teşekkür ederim. tam olarak istediğim buydu. Yalnız birşey farkettim; Kod sayfasına TextBox. yazdıktan sonra nokta(.)'dan sonra Name çıkmıyor. ancak el ile yazınca komutlar çalışıyor. Bu bazı nesnelerde başka komutlarda da oluyor. Sebebi nedir? (.) noktadan sonra görünmeyen başka ca komutlar olabilir mi?
İyi çalışmalar.

 

[Levent Menteşoğlu]

Yalnız birşey farkettim; Kod sayfasına TextBox. yazdıktan sonra nokta(.)'dan sonra Name çıkmıyor. ancak el ile yazınca komutlar çalışıyor. Bu bazı nesnelerde başka komutlarda da oluyor. Sebebi nedir? (.) noktadan sonra görünmeyen başka ca komutlar olabilir mi?
İyi çalışmalar.

Bunun için early binding (erken bağlanma) ve late binding (geç bağlanma) konularını araştırmanızı öneririm.

 

[Ergün Güler]

Bunun için early binding (erken bağlanma) ve late binding (geç bağlanma) konularını araştırmanızı öneririm.

Selam,
Sayın Hocam,
Çok teşekkür ederim.
Verdiğiniz her iki konuyu aradım ve tüm sonuçları incedim. Yalnız, ben tam anlatamamış olabiliriz. Kastettiğim şu idi;

class modülde:

Public WithEvents deneme As MSForms.TextBox 'deneme

Private Sub deneme_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox deneme.Name [COLOR="red"]'burada nokta'dan sonra name çıkmıyor. Ancak, el ile girebiliyor. diğerleri otomatik çıkıyor[/COLOR]End Sub

userformda:

Private Sub UserForm_Initialize()
Me.TextBox1.Name [COLOR="Red"]'class modül uyguladığım textboxlarda biri burada nokta'dan sonra Name otomatik çıkıyor[/COLOR]End Sub

İyi çalışmalar.