Form içinde başlık değiştirme yardım

[mustafa7456]

ek' teki dosyada bulunan dört adet başlık var. 2009-2010-2011-2012...
bunları bir buton vasıtasıyla değiştirmem mümkünmü ?

mesela; bir yıl sonra 2009' u iptal edip 2010-2011-2012-2013 yapmam gerektiğini, veya başka bir isim vermem gerektiğini düşünün.

yardımlarınız için şimdiden teşekkür ederim...

 

[Ömer]

Merhaba,

Form üzerine bir TextBox ve CommandButton ekleyip aşağıdaki kodları kullanın.

Eklediğiniz;

TextBox; TextBox1
CommandButton; CommandButton2

olsun.

Private Sub CommandButton2_Click()
 
    Dim i As Byte, sat As Double
 
    For i = 1 To 4
        sat = TextBox1.Text + (i - 1)
        Controls("OptionButton" & i).Caption = sat
    Next i
 
End Sub

 

[mustafa7456]

teşekkür ederim. söylediğinizi yapınca birer yıl ileri atıyor. ama; başka isimler de verip kullanmam gerekiyor. farklı bir dosyada şehir isimleri ve kişi isimleri ile kullanmam lazım. başka bir yolu varsa lütfen yardım edermisiniz.

 

[Ömer]

Dosyanız ektedir.

Formdaki textboxa değiştireceğiniz yılın ilk tarihini yazıp değiştir butonuna basın.

.

 

[mustafa7456]

başka isimler de verip kullanmam gerekiyor. farklı formlarda şehir isimleri ve kişi isimleri ile kullanmam lazım. başka bir yolu varsa lütfen yardım edermisiniz. hocam birde şu var... formu kapattıktan sonra yine eski haline geliyor.

 

[Ömer]

başka isimler de verip kullanmam gerekiyor. farklı formlarda şehir isimleri ve kişi isimleri ile kullanmam lazım. başka bir yolu varsa lütfen yardım edermisiniz.

Aynı yolla tek bir textbox değilde optionbutton sayısı kadar buton ekleyip,

CommandButton1_Click

kodlarındaki yapıyı aşağıdaki gibi kurarsınız.

Private Sub CommandButton1_Click()
 
    OptionButton1.Caption = TextBox1.Text
    OptionButton2.Caption = TextBox2.Text
    OptionButton3.Caption = TextBox3.Text
    OptionButton4.Caption = TextBox4.Text
 
End Sub

.