

Visual Basic 6 (Text Özellikleri Ve Olayları)
-
TEXT’İN ÖZELLİKLERİ
Alignment Yazının label içinde nerede olacağını belirlemek için kullanılır. 3 tane değer alır;0 – Left Justify ---à Sola dayalı1 – Right Justify ---à Sağa dayalı2 – Center ----------à Ortada AppearanceLabel’in görünümünün flat yada 3 boyutlu olmasını ayarlar. 2 tane değer alır;0 – Flat -à Flat yapar1 – 3D --à 3 boyutlu yapar BackColorLabel’in arkaplan rengini değiştirmeye yarar. Bu özelliği kullanmamız için Appearance’nin 3D ‘de ayarlı olması gerekir. BorderStyleKenarlık çizgisini belirler. 2 tane değer alır. 0- None à Çizgi koymaz1- Fixed Single à Çizgi koyar DataFieldVeritabanında kullanılacak alan adını belirler. DataFormat,DataMember: 4 senedir program yazarım. Hiç kullanmadım DataSourceVeritabanını kullanmak için bağlanılacak nesneyi belirler. Genelde data veya ado nesnesi kullanılır. DragIconLabele tıklandığında farenin ikonunu belirler. Bu özelliği kullanabilmek için DragMode’nin otomatik olması gerekir. DragModeFarenin ikonunun değişip değişmeyeceğini belirler. 2 tane değer alır.0 – Manuel à Aktif farenin ikonunu kullanır1 – AutoMatic à Tıklandığında seçtiğimiz ikonu kullanır EnabledText’in kullanılıp kullanılmayacağını belirler. Değeri True olursa kullanılabilir, False olursa kullanılamaz. Font
Text’in içine yazılacak yazının; tipini,boyutunu,kalınlığını,italik olmasını belirlemek için kullanılır.
ForeColor
Text’in içindeki yazının rengini belirler.Height
Text’in yüksekliğini belirler.Left
Text’in form içinde soldan ne kadar mesafede duracağını belirler.Locked
Text’in içeriğini kilitler ve değişim yapılmasını engeller.MaxLenght
Text’in içeriğine girilecek karakter sayısını belirler. Örneğin bunu 5 yaparsak 5 karakter girebiliriz.MouseIconText üzerinde kullanılacak ikonu belirler. Aktif olması için; mousepointer’in “99-custom” seçili olması gerekir. MousePointerText içerisinde Mouse ikonunun şeklini belirler. MultiLineBu özellik true olduğunda text’e yazılan yazı text’in boyutu kadar yazar ve satır bittiğinde alt satıra geçmesini sağlar. Bir nevi gazetede yazılan köşe yazıları gibi. Eğer false olursa text’e yazılan yazı hep sağa doğru yazmaya devam eder. PasswordCharBoş bırakıldığında bir özelliği yoktur.Text’e yazılan yazıların görüntüsünü şifrelemek için kullanılır. Mesela; “ * ” (tırnaksız) koyduğumuzda text’e ne yazarsak yazalım hep “ * ” karakterini alır. TabIndex
Normalde bu özellik her compenentte vardır. Forma bir tane text koyarsın bu özellik 0 değerini alır. Sonra buton koyarsın, bu özellik 1 değerini alır. Almasının nedeni ise bu compenentler arasında klavyeyi kullanarak geçişi sağlamak. Mesela texte bişey yazdıktan sonra cursorun butona gelmesini istiyorsak “ tab ” tuşuna basmamız yeterli. Neden; TabIndex sırası önce textte sonra butonda. Butonun ki 0 textin ki 1 olsaydı; Tab tuşuna bastığımızda önce butona sonra texte giderdi.TabStop
Yukarıda belirttiğim özellikle bağlantılı. Bu özellik true olursa “ tab “ tuşuyla cursoru texte getirebiliriz. Eğer false olursa cursor bu text’i atlayıp bir sonrakine gider.Text
Text kutusunun içine yazmak istediğinizi buraya yazarsınız.Top
Textin formun yukarıdan ne kadar uzaklıkta olmasını belirlemek için kullanılır.Visible
Gösterip, gizleme özelliğidir. Bu özellikle true olursa text kutusunu görünür. False olursa gizlenir.Width
Textin kendi boyutunun genişliğini ayarlamamızı sağlar.TEXT’İN OLAYLARI ChangeText kutusunda olan herhangi bir değişiklikte olan olaydır.Örn: text kutusuna her harf yazdığımızda aşağıdaki olay gerçekleşecek;Private Sub Text1_Change()MsgBox " tahribat.com "End Sub Her defasında “tahribat.com” diye mesaj verecek. ClickText kutusuna bir defa tıklanma olayıdır.Örn: Kutunun üzerinde gelip 1 kez tıklandığında aşağıdaki olay gerçekleşir.Private Sub Text1_Click()MsgBox " tahribat.com "End Sub DblClickText kutusuna iki defa tıklanma olayıdır.Örn: Kutunun üzerinde gelip 2 kez tıklandığında aşağıdaki olay gerçekleşir.
Private Sub Text1_DblClick()MsgBox " tahribat.com "
End Sub
GotFocus
TabIndex özelliğini kullanarak; cursor bu texte geldiği zaman bu olay gerçekleşir.Örn: text1 ile işimiz bitti,cursoru text2’ye geçirdiğimizde aşağıdaki olay gerçekleşir.
Private Sub Text2_GotFocus()
MsgBox " tahribat.com "
End Sub
KeyDown
Klavyedeki tuşun aşağı doğru basılma olayıdır.Örn: her hangi bir tuşa bastığınızda aşağıdaki olay gerçekleşir.
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox " tahribat.com "
End Sub
KeyPress
Tuşun basıldığı andır.Örn: her hangi bir tuşun son noktada basıldığı andır. KeyDown’dan farkı; keydown’da tuş aşağı doğru hareket ederken gerçekleşir, keypress’te tuş aşağı indikten sonra yani tam basıldığı anda gerçekleşir.
Private Sub Text1_KeyPress(KeyAscii As Integer)
MsgBox " tahribat.com "
End Sub
KeyUp
Tuşun basılıp bırakıldığı, yani tuş basıldıktan sonra yukarı doğru gelirken gerçekleşen olay.Örn:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
MsgBox " tahribat.com "
End Sub
MouseDown
Keydown olayının aynısı. Bu sefer Mouse kullanılıyor.Örn:
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox " tahribat.com "
End Sub
MouseMove
Farenin text üzerinde hareket ettiği olaydır. Yani fareyi text üzerinden bir kere geçirseniz textin boutundaki pixeller kadar bu olay gerçekleşiyor.Örn:
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "tahribat.com"
End Sub
Text’in üzerinde farenin her hareketinde forma tahribat.com yazacaktır.
MouseUp
Mouse’nin sol tuşunun basılıp bırakıldığı, yani tuş basıldıktan sonra yukarı doğru gelirken gerçekleşen olay.Örn:
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "tahribat.com"
End Sub
Validate
Cursor’un textten çıktığı anda gerçekleşen olay.Örn:
Private Sub Text1_Validate(Cancel As Boolean)
MsgBox "tahribat.com"
End Sub
Mesela texte yazıyı yazdınız, başka texte geçerken tahribat.com olarak mesaj verir.
Not: Yazının tamamı bana aittir ve tahribat.com için yazılmıştır.
-
hoca sağolasın parmaklarına sağlık ;)