click change gibi olaylar döngüye bağlanabilirmi

[osmanfenerli1907]

merhba
bir userformda 15 adet buton var.bunlara tek bir click yazabilirmiyiz?

 

[Orion1]

merhba
bir userformda 15 adet buton var.bunlara tek bir click yazabilirmiyiz?

Forumda ClassModule diye arama yapınız.

 

[osmanfenerli1907]

hocam aradım ancak tam istediğim yok.beni yönlendirirseniz sevinirim.
ben sadece userformdaki kart1_1 den kart1_24 e kadar olan textboxların change olaylarını kontrol etmek istiyorum.

 

[osmanfenerli1907]

hocam aradım ancak tam istediğim yok.beni yönlendirirseniz sevinirim.
ben sadece userformdaki kart1_1 den kart1_24 e kadar olan textboxların change olaylarını kontrol etmek istiyorum.

 

[Orion1]

merhba
bir userformda 15 adet buton var.bunlara tek bir click yazabilirmiyiz?

hocam aradım ancak tam istediğim yok.beni yönlendirirseniz sevinirim.
ben sadece userformdaki kart1_1 den kart1_24 e kadar olan textboxların change olaylarını kontrol etmek istiyorum.

Bu 2 ifade birbiri ile çelişiyor?
Bende hangisini istiyorsunuz anlayamadım.
Bu konuda kesin kararınız verirseniz örnek dosyanızıda ekleyip ne istediğinizi mesela change olayında şu olsun diyerek açıklamzmnızı yapınız.

 

[osmanfenerli1907]

hocam ben hepsini size yaptırmak istemiyorum.örnek şu olsun
kart1_1 den kart1_24 e kadar textbox var.bunlara change yapınca backcolor blue olsun.bunu gösteririrseniz hallederim gerisini

 

[Orion1]

hocam ben hepsini size yaptırmak istemiyorum.örnek şu olsun
kart1_1 den kart1_24 e kadar textbox var.bunlara change yapınca backcolor blue olsun.bunu gösteririrseniz hallederim gerisini

Tamamda bunları benmi hazırlayım?
Hazırlayın yapayım.Nede olsa bana lazım değil size lazım.

 

[osmanfenerli1907]

dosya ekte

 

[Orion1]

Dosyanız ektedir.

Userformda
Genaral kısmında

Dim krt(24) As New Class1


Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 24
    Set krt(i).krt = Me.Controls("Kart1_" & i)
Next
End Sub

ClassModule de

Public WithEvents krt As MSForms.TextBox
Private Sub krt_Change()
Dim i  As Integer
For i = 1 To 24
    UserForm2.Controls("kart1_" & i).BackColor = vbWhite
    UserForm2.Controls("kart1_" & i).ForeColor = vbBlack
    UserForm2.Controls("kart1_" & i).Font.Bold = False
Next
krt.BackColor = vbBlue
krt.ForeColor = vbWhite
krt.Font.Bold = True

End Sub

 

[osmanfenerli1907]

teşekkürler hocam şöyle bir şey eklemek istedim.ama yapamadım.
örneğin kart1_1 e ne yazıyosam commandbutton1 in captionu o yazdığım olsun.anında olacak.
yani kart1_9 a ali yazarsam commandbuttonun captionu ali olcak.

 

[Orion1]

teşekkürler hocam şöyle bir şey eklemek istedim.ama yapamadım.
örneğin kart1_1 e ne yazıyosam commandbutton1 in captionu o yazdığım olsun.anında olacak.
yani kart1_9 a ali yazarsam commandbuttonun captionu ali olcak.

Sizin sorunuzun bu konuyla ilgisi yok.
Yeni bir başlık açarak örnek dosya ile beraber açıklamsını vererk sorunuzu sorunuz.

 

[osmanfenerli1907]

hocam aynı soru.kart1_1 change yaparken commandbutton1 in captionu o olacak.
yani commandbutton1.caption=kart1_1.text olacak ama classta nasıl yaparım?

 

[Orion1]

hocam aynı soru.kart1_1 change yaparken commandbutton1 in captionu o olacak.
yani commandbutton1.caption=kart1_1.text olacak ama classta nasıl yaparım?

Sadece Kart1_1 textboxı ile yapacaksan bunun için classa gerek yok.
Kart1_1 in changed olayına CommandButton1.caption=Kart1_1.text yazmanız yeterlidir.

 

[osmanfenerli1907]

bütün kartlar için gerekli ve aynı butonun captionunu değiştirecek hepsi.yani önizleme gibi bişe.butonun önizlemesi.fontu felan ayarlamak için.

 

[Orion1]

bütün kartlar için gerekli ve aynı butonun captionunu değiştirecek hepsi.yani önizleme gibi bişe.butonun önizlemesi.fontu felan ayarlamak için.

Ekli dosyayı inceleyiniz.

 

[osmanfenerli1907]

çok teşekkürler

 

[Orion1]

çok teşekkürler

Rica ederim.

 

[osmanfenerli1907]

hocam kusura bakmayın tek ve son sorum.bu olayı şimdi combobox lar içinde yaptım ancak.
aşağıdaki satıra hata veriyor.o satırı Private Sub UserForm_Initialize() ın üstüne yazdım ama hata veriyor.

Dim font(24) As New Class2

 

[Orion1]

hocam kusura bakmayın tek ve son sorum.bu olayı şimdi combobox lar içinde yaptım ancak.
aşağıdaki satıra hata veriyor.o satırı Private Sub UserForm_Initialize() ın üstüne yazdım ama hata veriyor.

Dim font(24) As New Class2

Örnek dosyayı göreyim.

 

[Orion1]

Bu iş aslında change olayında değilde benim şimdi yaptığım gibi keyup ve mouseup olaylarında kullanılırsa güzel olur.
İşte dosya ekte ve kodlar aşağıda.
Userformdaki kodlar.
General kısmındaki kod

Dim krt(24) As New Class1

ınitialize deki kod

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 24
    Set krt(i).krt = Me.Controls("Kart1_" & i)
Next
End Sub

class modül kodları:

Public WithEvents krt As MSForms.TextBox
Private Sub krt_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim i  As Integer
For i = 1 To 24
    UserForm2.Controls("kart1_" & i).BackColor = vbWhite
    UserForm2.Controls("kart1_" & i).ForeColor = vbBlack
    UserForm2.Controls("kart1_" & i).Font.Bold = False
Next
krt.BackColor = vbBlue
krt.ForeColor = vbWhite
krt.Font.Bold = True
UserForm2.CommandButton1.Caption = krt.Text
End Sub
Private Sub krt_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim i  As Integer
For i = 1 To 24
    UserForm2.Controls("kart1_" & i).BackColor = vbWhite
    UserForm2.Controls("kart1_" & i).ForeColor = vbBlack
    UserForm2.Controls("kart1_" & i).Font.Bold = False
Next
krt.BackColor = vbBlue
krt.ForeColor = vbWhite
krt.Font.Bold = True
UserForm2.CommandButton1.Caption = krt.Text
End Sub