Soru TextBox Dolu İse Uyarı Versin!

[TiOr]

Merhaba Kıymetlı Hocalarım,
Görselde kırmızı kutu içerisinde belirtiğim not (TextBox8) genelde boş oluyor fakat not düştüğüm kayıtlarda oluyor. TextBox1 e özel kod yazıp bul butonu ile kayıtlı verileri tüm TextBox lara getiriyorum bilgilerin gelmesi akabinde eğer TextBox8 dolu ise msxbox ile bir mesaj alabilme ihtimalim var mıdır? veya TextBox8 dolu ise renginin kırmızı olması ihtimali var mıdır?

Kıymetli desteklerinizi talep eder, hayırlı akşamlar dilerim.

 

[Haluk]

    If TextBox8 <> "" Then
        TextBox8.BackColor = vbRed
    Else
        TextBox8.BackColor = &H80000005
    End If

.

 

[TiOr]

@Haluk Hocam Merhaba,
Süpersiniz. Tam istediğim gibi elinize, emeğinize sağlık.
Çok çok teşekkür ederim desteğiniz için.
Hayırlı akşamlar...

 

[TiOr]

@Haluk Hocam Merhaba,
Desteğine ihtiyacım var

Yukardaki işlem desteğin sayesine gerçekleşti. Bir de texboxa not sığmadığında (texboxu açabilirim-genişletebilirim ama mevcut düzeni yani ekranın görselliğini bozmak istemiyorum) yazı eğer texboxa sığmadığında sağdan sola doğru kaydıra bilir miyiz otomatik yani kayan yazı gibi düşünebiliriz. Hem kırmızı uyarı verecek ve yazı sığmadığında sağdan sola kayacak.

Bu işin oluru var mı var ise desteğinizi talep eder, hürmetlerimi sunarım.
Şimdiden teşekkürler..

 

[Korhan Ayhan]

Not ya da açıklama bölümü uzun olma durumu olduğundan ilgili nesneyi tasarim modunda aşağıya doğru genişletmenizde fayda var. Daha sonra nesnenin özelliklerinden wraptext ayarını true olarak ayarlarsaniz sığmayan metin satırlara yayılır.

 

[TiOr]

@Korhan Ayhan Hocam,
Evet haklısınız. Bahsettiğiniz detay talepte bulunduğum üzere böyle bir imkan yok ise en son düşündüğüm bir detaydı çünkü ekranın düzenini-tasarımını ciddi anlamda bozacak. Bir forma danışmak istedim. Kayan yazı örnekleri var formda ama konuya tam hakim olmadığım için danışmak istedim. Şarta göre; texbox dolu ise renklenmesi ve şarta göre texbox dolu ise vede texboxa sığmıyor ise kayan yazı imkanı varmı bir danışmak istedim. (Renklendirme @Haluk hocamın desteği ile gerçekleşti)

 

[alicimri]

Merhaba, basit bir kayan yazı örneği, 5 kere tekrarlıyor.

Private Sub CommandButton1_Click()
For e = 1 To 5
kelime = "Ali geldi gitti bulamadı."
For i = 1 To Len(kelime) + 1
    PauseTime = 0.5  
    Start = Timer  
    Do While Timer < Start + PauseTime
        DoEvents  
        TextBox1.Value = Mid(kelime, i) & "    " & kelime
    Loop
Next
Next
End Sub

 

[TiOr]

@alicimri Hocam Merhaba,
Kod paylaşımınız için teşekkür ederim.
Fakat bunu butona tıklamadan koşula bağlı olarak yani yukardaki mesajlarda da göreceğiniz üzere mesela texbox dolu iken rengi kırmızı oluyor boş iken normal renginde bu bahsettiğimde aynı şekilde koşula bağlı olacak texbox dolu ise sağdan sola kayacak. Mümkünmüdür acaba
Tekrardan teşekkürler, hayırlı pazarlar..

 

[Korhan Ayhan]

Bu tarz işlemler ilerde performans kaybına yol açabilir. Aklınızda bulunsun.