UpDown nesnesi ve tüm özellikleri

[aLayıNaiSyaN]

UpDown nesnesi ve tüm özellikleri UPDOWN NESNELERİ VE ÖZELLİKLERİ
UPDOWN (Yukarı-Aşağı Arttırma)

Textbox’lara bilgi girişi yaparken kontrollü bir şekilde yapılmasını istiyorsak kullanırız. Bunun için Components menüsünden Microsoft Windows Common Controls-2 seçilerek ekrana getirilir. Bu kontrolün amacı bir değerin arttırılıp azaltılmasında görsel bir arabirim sağlamaktır. Bu kontrol Başka bir kontrolle bağlantı kurarak onun içindeki değeri arttırıp azaltabilmektedir…



Properties :
1.Orientation Properties :
Updown kontrolünün yatay ve dikey olarak yerleştirilmesini sağlar.Bu özelliğin değeri 0 ise kontrol yatay olarak,1 ise dikey olarak görülmesini sağlar…
Kullanımı:
Nesne.Orientation
Not : Orientation özelliğinde,UpDown kontrolü otomatik pozisyonu yanında Buddy Control kullanılır.

2-Increment Properties :
Updown kontrolünün her tıklamada ne kadar değişime uğrayacağını belirler.Normalde bu değer 1’dir ve bier birer artar veya azalır…
Kullanımı:
nesne.Increment [=değer]
Not: UpDown özelliğine her tıklandığı zaman Increment özelliğl ne kadar değişime uğrayacağını belirler. Aşağı yada yukarı tıklandığında Increment özelliği doğru yada yanlış Max değer elde etmemizi sağlar.

3-Min-Max Properties :
Updown konrolünün alt ve üst sınırlarını değiştirebileceği değer aralığı bu iki özellikle belirlenir. Bu değerler 0-10’dur ve 0 ile 10 arasında değer ayarlar.Bu iki özellik değiştirilerek aralık yeniden belirlenebilir…
Kullanımı:
nesne.Max [=değer]
nesne.Min [=değer]
Not: Bu özellik her zaman yukarı veya sola gidildiğinde Value değer özelliği maximum değer alır. Bu özellik her zaman asağı veya sağa gidildiğinde Value değer özelliği minimum değer alır.



4-BuddyControl Properties :
Updown kontrolünün hangi kontrole atanacağını belirler.Örneğin programda bir Text kutusu veya Label içindeki sayıyı bu kontrol aracılığı ile değiştirmek istersek bu özelliğe o kontrolün adını vermemiz gerekir…
Kullanımı:
Updown.BuddyControl=Text1
Not: Buddy Control özelliği dizayn zamanında veya çalışma zamanında ayarlanabilir. Çalışma zamanında, Buddy Control özelliği özellikler penceresindedir. Çalışma zamanında Buddy Control özelliğini ayarlamak için şu kod kullanılır;
Updown.BuddyControl=Text1

5-Alignment Properties :
Updon kontrolünün BuddyControl ile herhangi bir kontrole bağlantı kurulmuşsa Updown o nesnenin sağında mı solunda mı olacağını belirler.Bu özelliğin değeri 0 ise kontrolün soluna, 1 ise sağına yerleşecektir…
Kullanımı:
nesne.Alignment [=değer]
Not: Updown kontrolü yanında Buddy Control’ü Alignment özelliğinin özel durumlarında kullanın. En son olarak Buddy Control UpDown’nın doğru yöne oynatılmasıdır…

6-Buddy Property :
Updown kotrolünün bağlandığı kontrolün hangi özelliğine bağlanacağını belirler. Yani BuddyControl özelliği ile Updown kotrolünün kullanacağı kontrolü belirledikten sonra bu özelliklede o kontrolün hangi özelliğinin değiştirileceğini belirlememiz gerekir…

Kullanımı:

1. Text1 kutusu içindeki sayıyı bu özellikle değiştirmek için;
2. Label1 kutusu içindeki sayıyı bu özellikle değiştirmek için;
3. Text1 kutusunun yüksekliğini bu özellikle değiştirmek için;

Not: Eğer SyncBuddy özelliği doğruysa, Kontrol aynı zamana uygun Value(doğru-yanlış) değer özelliğiyle BuddyProperty özelliği hizalanabilir.

7-Value Properties :
Value Updown kontrolünün teslim ettiği değer bu özellikle belirlenir…
Kullanımı:
nesne.Value [=long]
Not: Eğer SyncBuddy özelliği True(doğru) ile başlarsa,Buddy Property özelliği oradaki değişikliği Value(doğru-yanlış)özelliğini aynı zamana uydurur veya Buddy Property özelliği kullanıldığı zaman Value değeriyle değiştirilir.

9-AutoBuddy Properties :
Updown kontrolünün herhangi bir kontrole otomatik olarak atanmasını sağlar. Genellikle kullanılmaz.
Kullanımı:
nesne.AutoBuddy [=değer]
Not: AutoBuddy özelliğini doğru kullanın hemde Buddy Control Buddy Control özelliğini ayarlayın.AutoBuddy özelliği yanlış kullanıldığında Buddy Control özelliğini siler.

10-SyncBuddy Properties :
Updown kontrolünün herhangi bir kontrole atasak bile bu özelliği False yaparak işlemi durdurabiliriz…
Kullanımı:
nesne.SyncBuddy [=değer]
Not: SyncBuddy özelliği Aynı zamana uygun OpDown kontrolünün Vakuedeğer özelliğinin yanında Buddy Control kullanılır.


ÖRNEK :
Yazı sitilini ve büyüklüğünü değiştiren program…

Private Sub Combo1_Click()
Text2.FontName=Combo1.Text
End Sub

Private Sub From_Load()
Dim i
Updown1.BuddyControl=Combo1
Updown1.BuddyProperty=”listindex”
Updown2.BuddyControl=Text1
Updown2.BuddyProperty=”text”
For i=0 to Screen.FontCount-1
Combo1.AddItem Screen.Fonts(i)
Next
Combo1.ListIndex=0
Updown1.Min=0
Updown1.Max=Combo1.ListCount-1
Updown1.Increment=1
Updown2.Min=0
Updown2.Max=100
Updown2.Increment=5
End Sub

Private Sub Text1;_Change()
Text2.FontSize=Val(Text1)
End Sub



EVENTS

1-DownClick() :
Kontrol üzerindeki azaltma düğmesi tıklandığında bu özellik meydana gelir…
Kullanımı:
Private Sub nesne_DownClick ( [index as integer] )
Not : Aşağı tıklama nesnesi değişiklik nesnesinden sonra ortaya çıkar.

2-UpClick() :
Kontrol üzerindeki arttırma düğmesi tıklandığında bu özellik meydana gelir…
Kullanımı:
Private Sub nesne_UpClick ( [index as integer] )
Not : Yukarı tıklama nesnesi değişiklik nesnesinden sonra ortaya çıkar.

3-Change() :
Updown kontrolünün teslim ettiği değer değiştiğinde bu özellik meydana gelir.
Kullanımı:
Private Sub nesne_Change ( [index as integer] )
Not : Değişiklik nesnesi Value değer özelliğiyle oluşur. Value özelliği nesne arasındaki kod tıklanıldığında ok butonları veya tıklanıldığında nesnenin Buddy Control değeri True (doğru) olduğu zaman SyncBuddy özelliği kullanılır.
Buddy özellikleri aracılığıyla bu kontrol ile başka bir kontrol arasında bağlantı varsa herhangi bir komut yazmak gerekmez.Ancak bir bağlantı yoksa bu özellikler kullanılarak değer değişimlerinde yapılacak işlemler için gerekli kod bu özelliklere yazılacaktır.
Örnek : Örnek olarak aşağıdaki formda font adı ve font boyutunu seçmeye yarayan kutularla Updown kontrolü arasında bağlantı kurarak değişimleri Updown aracılığıyla da yapabilmesini sağlayalım…

Private Sub Combo1_Click()
Text2.FontName=Combo1.Text
End Sub

Private Sub From_Load()
Dim i
Updown1.BuddyControl=Combo1
Updown1.BuddyProperty=”listindex”
Updown2.BuddyControl=Text1
Updown2.BuddyProperty=”text”
For i=0 to Screen.FontCount-1
Combo1.AddItem Screen.Fonts(i)
Next
Combo1.ListIndex=0
Updown1.Min=0
Updown1.Max=Combo1.ListCount-1
Updown1.Increment=1
Updown2.Min=0
Updown2.Max=100
Updown2.Increment=5
End Sub

Private Sub Text1;_Change()
Text2.FontSize=Val(Text1)
End Sub

Kullanıcı Combo kutusundan bir font adı seçebileceği gibi Updown kontrolüUpdown aracılığı ile de arttırıp azaltabilir ile de fontu değiştirebilir.Aynı şekilde Text1 kutusuna istediği bir değeri elle yazabileceği gibi Updown aracılığı ile de arttırıp azaltabilir.