Textboxları toplu olarak bir frame kontrolüne almak

[tamer42]

Merhabalar;

Form içerisindeki bir kısım Textboxları sonradan (Text11, Text13,Text15,Text17,....) toplu olarak bir frame (Frame19) içerisine alarak;

Bu textbox ların arka plan renklerini aynı anda kolayca yapmak istiyorum.
Aşağıdaki kodu buna nasıl uyarlayabilirim.

   Dim kontrol As Control
       For Each kontrol In Me.Frame19.Controls
       
           kontrol.BackColor = 16777215

Next

 

[modalı]

Sayın tamer42,

Bu sorunu değişik bir şekilde çözdüm. Form üstüne eklediğimiz nesnelerin bir de İm özelliği var. Siz rengini değiştireceğiniz metin kutularını çerçeve yerine (Çerçeve içine, seçenek düğümesi, onay kutusu ve çift konumlu düğüme konabiliyor) İm özelliklerini mesela * olarak ayarlayın ve aşağıdaki kodları kullanın.

Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "*" Then
            ctl.BackColor = vbRed
        End If
    Next

İyi çalışmalar

 

[hozzeybek]

Syn Modalı
Bu değişikliklerin kalıcı olması için
ne yapmalıyız?

 

[beab05]

Kalıcı olması ne demek??

 

[hozzeybek]

değişen renkler form açılıp kapanınca eski haline dönmesin anlamında sormuştum. bunun için tasarım moduna mı geçmek gerekiyor.

 

[beab05]

Ama zaten her açılışta o şekilde açılıyor yani vbred= kırmızı olarak??!! Gayet kalıcı gibi?? Ben mi sizi anlayamıyorum?? O kodları formun açılışına, yüklenişine currentine nereye yazarsanız yazın her açılışta o renklerle gelir..

 

[hozzeybek]

Syn beab05,
sizin renk değiştirme örneğindeki renk paletini
kullndım istediğim renk paletinden seçtiğimiz renk
form açılıp kapandığında da değişmesin.

 

[tamer42]

Sn Modalı çok teşekkürler....
Emeğinize sağlık...

Sizlerin bilgi ve tecrübenize dayanarak;

Oluşturduğum bu formu Veri sayfası olarak kullanmak istiyorum....

Şöyleki; Access Database' in şirket (ağ) içerisinde bir bilsayarda saklanması ve herkesin (kullanması gereken personelin ) bu bilgisayara internet aracılığı ile ulaşıp formları kullanması gibi düşüncem var.

Bu husuta bildiğiniz bir örnek varsa paylaşabilirmisiniz.

İyi Çalışmalar.

 

[tamer42]

Merhabalar;

Form içerisindeki bir kısım Textboxların arka plan renklerini

Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "*" Then
            ctl.BackColor = vbRed
        End If
    Next

Bu kodlarla istediğimiz anda kolayca ayarlayabiliyoruz.

Diyorum ki Acaba Textbox' un üzerine mouse geldiğinde;

Private Sub Text11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Text11.BackColor = vbYellow
End Sub

renk değiştirmek için uygulanan bu kod; Bu textox' ar için bir seferde yazılarak genelleştirilebilir mi?


Tabi bunu yaparsak mouse metin kutusundan çıktığında tekrar eski rengine dönmesi de kolayca yapılabilir?
İyi Çalışmalar.

 

[modalı]

Sayın tamer42,

Yine aynı kodları kullanın.

 

[assenucler]

Bir Rica.

Sn. tamer42;

Günaydın. Sn. Modalı'nın verdiği bilgi ışığında dosyanızın mahzuru yoksa son halini yükleyebilir misiniz?

Forum sayesinde here gün yeni bir şeyler öğreniyoruz.Teşekkürler.

 

[tamer42]

Yine aynı kodları kullanın.

Buradaki Text box ların her birinde bu olaya ayrı ayrı olacak, imleç hangisine basılırsa sadece onun rengi değişecek.

Sn Modalı

Private Sub Text11_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Text11.BackColor = RGB(250, 150, 150)
End Sub

Private Sub Text13_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Text13.BackColor = RGB(250, 150, 150)
End Sub

..........
............
...................


Bu durumu hangi olaya yazacağız

Private Sub Form_Current()
Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "*" Then
            
[COLOR=blue][B]............[/B][/COLOR]

        End If
    Next

End Sub

Form_Current() içine yazmayı denedim, Yukarıdaki ............
yerine nasıl bir ifade yazacağız.

İyi Çalışmalar.

 

[tamer42]

Arkadaşlar ne dersiniz?
Benim düşündüğüm bu durum olabilirmi ?

Yoksa tüm tesxbox lar için ayrı ayrı yazmam mı gerekiyor?

İyi ÇAlışmalar.