AKTİF USERFORMDA Kİ COMMANDBUTTON ADINI DEĞİŞTİRMEK

[Ongun]

Selamlar, arkadaşlar userform aktif halde iken CommandButton adını değişteribilirmiyiz.

Yani Userform açıldığında Commandbutton`da "ÇIKIŞ" yazıyor ise bunu "KAPAT" olarak değiştirebilirmiyiz.
Userform kapandığında da "kapat" olarak kayıtlı olacak.

Bu şekilde istediğimiz kadar isim değişikliği yapabilirmiyiz. Saygılarımla. :hey:

 

[Haluk]

Hangi olay olduğunda bunun olmasını istiyorsanız, o olaya ait prosedürde;

commandbutton1.caption ="KAPAT"

yazın.

 

[Ongun]

Sayın Haluk bey, öncelikle teşekkür ederim.

Aslında tam olarak istediğim bu değil şöyle izah edeyim.
Diyelimki, birden fazla Commandbutton var başka bir commandbutton`na tıklayınca diğer commandbuttonların adlarını userform üzerinde klavye kullanarak değiştirebilirmiyiz. Yani Commandbuttonların Caption özelliğini açık hale getirip yazılacakları yazıp tekrar butona bastığımızda o yazılanların kayıtlı olması gibi Böyle bir şey mümkünmü?

Saygılarımla

 

[Ongun]

Arkadaşlar bu konuda yardımcı olabilirseniz. Sevinirim. Saygılarımla.


Örnek dosya ektedir.

 

[Haluk]

Private Sub CommandButton2_Click()
    x = Application.InputBox("Değiştirmek istediğiniz buton numarasını ve" _
        & "yeni etiketi aralarında '';'' işareti girerek yazın....", , "1;KAPAT")
    If Not x = False Then
    y1 = Mid(x, InStr(1, x, ";") + 1, 98)
    y2 = Replace(x, ";" & y1, Empty)
    Me.Controls("Commandbutton" & y2).Caption = y1
    End If
End Sub

 

[Ongun]

Sayın Haluk bey, çok çok teşekkür ederim. Elinize yüreğinize sağlık. Güzel bir çalışma olmuş. :dua:

Saygılarımla. k::