BoDyGuArD

Picture1.Picture=LoadPicture( ) ‘Bu kod ise resim kutusu içerisini boşaltır.
Frame OptionBox CheckBox

Frameler çerçeve olarakda geçerler ve formların biraz daha profosyonel görülmelerini sağlarlar. Genellikle seçim kutuları ve onay kutuları ile birlikte kullanılırlar. Seçim kutuları ise kullanıcıya birkaç seçenek sunar. Kullanıcıda bu seçeneklerden sadece bir tanesini seçebilir. Onay kutuları da tıpkı seçim kutularına benzer fakat aynı anda birden fazla onay kutusu işaretlenebilir. Seçim ve onay kutularının en önemli özelliği Value’dur. Bu özellik True ve False değeri atayarak işaret koydurabilir veya işareti kaldırabiliriz.
File-New Project komutunu vererek yeni bir proje başlatalım. Aşağıdaki gibi bir form tasarlayalım. OptionBox ve CheckBox’ların Click olayına ise aşağıdaki kodları yazalım. Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub
Program çalıştırıldığında aşağıdaki gibi bir görünüm oluşur. Bu seçim kutuları ve onay kutuları kullanılarak istenilen özellikler verilebilir. Seçim Kutularında value değerleri için True veya False özelliği verebiliyoruz onaykutularında ise 0 ve 1 değerlerini girmemiz gerekir.

Private Sub Check3_Click()
If Check3.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontItalic = False
End If
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Label1.ForeColor = vbRed
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Label1.ForeColor = vbBlue
End If
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then
Label1.ForeColor = vbYellow
End If
End Sub
Timer

Zamanlayıcı denetimidir. Çalışma kipinde görülmezler. Önemli iki özelliği vardır.
Enabled

Timer denetiminin aktif veya pasif olacağını belirler.
Interval

Timer denetiminin ne kadar aralıkla timer olayını üreteceğini belirleriz. Milisaniye cinsinden bir değer yazarız. 1 sn. için 1000 yazmalıyız.
Timer

Timer olayını kullanarak istediğimiz aralıklalarla olaylar gerçekleştirebiliriz. Aşağıdaki kodu kullanarak bir saat yapabiliriz.

Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
ScroolBars

Formumuza yatay ve diaaa kaydırma çubukları eklememizi sağlarlar. Her iki denetimde aynı özellikleri taşırlar.
Max

Kaydırma çubuğunun alabileceği en büyük değeri belirler.
Min

Kaydırma çubuğunun alabileceği en küçük değeri belirler.
LargeChange

Kullanıcı kaydırma çubuğuna tıkladığında value değerinin en fazla ne kadar değişeceğini belirler.
SmallChange

Kullanıcı kaydırma çubuğuna tıkladığında value değerinin en az ne kadar değişeceğini belirler.
Value

Kaydırma çubuğunun değerini belirler.
Change

Kullanıcı kaydırma çubuğunun değerini değitirdiğinde gerçekleşir.

Aşağıdaki şekilde form üzerine bir kaydırma çubuğu ve birde etiket yerleştirilmiştir. Kaydırma çubuğunun Max değeri 100 Min değeri ise 0 olarak ayarlanmıştır. Kullanıcının kaydırma çubuğunu sürüklediğinde etiket içerisinde değerini görmek için aşağıdaki kodu girmeliyiz.




Private Sub HScroll1_Change()
Label1.Caption = HScroll1.Value
End Sub



Listbox

Liste kutuları kullanıcılara bir liste sunmanın ideal bir yoludur. Kullanıcılar liste kusuntunda bulunan verileri inceleyebilir ve istediklerini seçebilirler. Liste kutularının bazı özellik ve metotları şunlardır.
List

Bu özellik ile listedeki herhangi bir öğenin değeri öğrenilebilir. Listedeki ilk elamanın list özelliği 0’dır. Örnegin listede bulunan 3. elemanın değerini öğrenmek için şunu yazmalıyız;
MsgBox List1.List(2)


ListIndex

Listede seçili olan elemanın indeks numarasını verir.
MsgBox List1.List(List1.ListIndex)
Yukarıdaki ifade yerine liste kutusunun text özelliğide kullanılabilir.
List1.Text
Yukarıdaki her iki ifade de aynı işi gerçekleştirir.
ListCount

Listede bulunan eleman sayısını verir. Eğer ListCount 0 ise liste kutusu boştur.
MultiSelect

Bu özellik True olarak ayarlanmış ise listeden aynı anda birden fazla eleman seçebiliriz. Listelerden birden fazla seçim yapmak için Shift tuşu kullanılır.
Sorted

Sadece tasarım kipinde ayarlanabilecek bir özelliktir. Listedeki elemanları otomatik olarak sıralar.
AddItem

Liste kutularında kullanılan en önemli metotdur. Listeye yeni elemanlar eklemek için kullanılır.
List1.AddItem "Uğur ŞAHIN"
RemoveItem

Listeden elemanları çıkartmak için kullanılan bir metotdur.
List1.RemoveItem List1.ListIndex
Yukarıdaki kod listeden seçili elemanı siler.
Clear

Liste boşaltır.
List1.Clear
ComboBox

Açılır liste kutularıda liste kutuları ile aynı özellik ve metotları paylaşır. 3 değişik görünüm sunarlar; Bu görünümleri style özelliğini kullanarak değiştirebiliriz. Alabilecekleri değerler
0-Dropdown Combo ; İçerisine yazılabilir ComboBox
1-Simple Combo ;TextBox Görünümünde
2-Dropdown List ; Salt okunur ComboBox.
Combo1.Style = 2
Shape

Form üzerine dikdörtgen kare elips çember ve oval çizmek için kullanılır.
Shape

Shape kontrolunun çizeceği şekli belirler.
0: Dikdörtgen
1: Kare
2: Elips
3:Çember
4: Oval Diktörgen
5: Oval Kare
BorderStyle

Nesnenin çerçeve biçimini belirler.
0: Zemin rengiyle uyumlu görülmez
1: Solid tam çerçeve
2: Dash Çizgi
3ot Nokta
4: Dash Dot Çizgi nokta
5: Dash Dot Dot Çizgi nokta nokta
6: Inside Solid Şekil ile çerçeve kenarları çakışık şekilde
BorderWidth

Çerçeve kalınlığını belirler. BorderStyle özelliği Solid ve Inside Solid iken kullanılır.
FillColor

Şeklin iç boyama rengini belirler.
FillStyle

Şeklin içini boyamak için kullanılacak deseni belirler.
Line

Form üzerine çizgi çizmek için kullanılır.
X1 X2 Y1 Y2

X1 ve Y1 başlangıç noktasını X2 ve Y2 ise bitiş noktasını belirler.
DriveListBox

Sürücü listelerini çağırmak için kullanılır. Dizin ve dosya liste kutuları ile birlikte kullanılır. Name dışında önemli tek özelliği Drive’dır.
Drive

Kullanıcının seçmiş olduğu sürücüyü gösterir. Çalışma kipinde kullanılabilir.
Change

En popüler olayıdır. Kullanıcı bir sürücü seçtiğinde gerçekleşir.
DirListBox

Dizinleri listeletmek için kullanılır. Sürücü ve dosya liste kutuları ile birlikte kullanılır.
Path

Gösterilecek dizini ayarlayan özelliğidir. Çalışma kipinde kullanılabilir.
Change

En popüler olayıdır. Kullanıcı bir dizin seçtiğinde gerçekleşir.
FileListBox

Dosyaları listeletmek için kullanılır. Sürücü ve dizin liste kutuları ile birlikte kullanılır.
FileName

Seçili dosyanın adını verir.
Path

Gösterilecek dosyaların hangi dizin veya sürücüde olduğunu belirler. Çalışma kipinde kullanılır.
Pattern

Hangi dosyaların gösterileceğini belirleyen biir özellikltir. Bir filtre görevi görür. Gösterilecek dosyaların hangi dizin veya sürücüde olduğunu belirler. Çalışma kipinde kullanılır.
Archive

True yada false değerini alabilir. Arşiv dosyalarının görünümünü sağlar. Başlangıç değeri True’dur
Hidden

True yada false değerini alabilir. Gizli dosyalarının görünümünü sağlar. Başlangıç değeri False’dir
ReadOnly

True yada false değerini alabilir. Salt okunur dosyalarının görünümünü sağlar. Başlangıç değeri True’dur
System

True yada false değerini alabilir. Sistem dosyalarının görünümünü sağlar. Başlangıç değeri False’dur
Change

Kullanıcı bir dosya seçtiğinde gerçekleşir.
PathChange

Path değeri değiştiğinde gerçekleşir.
PatternChange

Pattern değeri değiştiğinde gerçekleşir.

Yandaki şekilde görüldüğü gibi bir form dizayn edelim. Formumuza bir sürücü listesi bir dizin listesi bir dosya listesi ve bir de image denetimi ilave edelim ve bu denetimlerin özelliklerini aşağıdaki gibi değiştirelim sonrada aşağıda görülen kodu girelim.

Nesne Özellik Değeri
File1 Pattern *.bmp;*.wmf;*.ico
Image1 Stretch True
Image1 BorderStyle 1-Fixed Single

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path & "\" & File1.filename)
End Sub
Drag & Drop

Drag&Drop olayı bir nesnenin bir yerden başka bir yere sürüklenmesi olayıdır. Bu olayları takip edebilek için Visual Basic bir takım özellik olay ve yöntem sunar.
Drag Icon
Bir nesne taşınırken alacağı şekli belirler.
Drag Mode
Bu özellik iki farklı değer alabilir.
0 : vbManual ; Bu durumda kullanıcı bir nesneyi sürükle bırak yaptığında nesnenin taşınabilmesi için üzerine bırakılan nesnenin DragDrop olayına kod yazılır. Nesneleri taşımak için Drag yönteminden faydalanılır.
1: vbAutomatic; Bu durumda nesne otomatik olarak sürüklenir. Bu yöntem kullanıldığında nesnenin click olayı çalışmaz.
DragMode özelliği manual olarak belirtilmişse kontrollerde Drag olayı o kontrolun MouseDown olayında Drag metodu ile başlar.

Private Sub Text1_MouseDown(Button As IntegerShift As Integer X As Single Y As Single)
'Farenin sol tuşu basılı ise drag olayını başlat
If Button = 1 Then
Text1.Drag
End If
End Sub

DragDrop(Source As Control X As Single Y As Single)
Taşınan bir nesnenin bir kontrol üzerine bırakılması olayıdır. Bırakma işlemi için kod bu olaya yazılmalıdır.
Source parametresi üzerine bırakılan nesneyi ifade eder. X ve Y parametreleri ise sürüklenen elemanın bırakıldığı kordinatları verir.
DragOver(Source As Control X As Single Y As Single State As Integer)
Taşıma esnasında hedef nesne üzerinden geçerken bu olay meydana gelir.
Source parametresi üzerine bırakılan nesneyi ifade eder. X ve Y parametreleri sürüklenen elemanın bırakıldığı kordinatları verir. State parametresi ise 3 farklı değer alabilir.
0: vbEnter; Taşınan nesne hedef üzerine giriş yaptı
1: vbLeave; Taşınan nesne hedef üzerinden ayrıldı
2: vbOver; Taşınan nesne hedef üzerinde geçiş yapıyor.


Formlarımıza Menü Ekleyelim

Bütün profosyonel Windows programlarında menüler bulunmaktadır. Visual Basic formlarımıza menü ekleyebilmemiz için bize imkan sağlar. Bir forma menü eklemek için Tools-Menü Editor komutunu veririz. Bu komut verildikten sonra karşımıza yandaki gibi Menü Editor penceresi gelir.








Formlarımıza menü eklerken ve menüleri düzenlerken yanda görülen pencereden faydalanacağız. Oluşturmak istediğimiz menünün başlığını Caption adlı bölüme gireriz. Name kısmına ise bu menü için bir ad yazarız. İlk menümüzü belirledikten sonra Next düğmesine basarız. Visual Basic Caption ve Name kutucuklarını bir sonraki menüyü ilave edebilmemiz için boşaltır. Yeni menü öğeleri yaratıldıkça aşağıda bulunan liste kutusunda listelenirler. Alt menüleri oluşturmak için ise Next düğmesinin sol tarafında bulunan ok düğmelerini kullanırız. Var olan bir menünün silinmesi için liste kutusundan menüyü seçer ve Delete butonuna tıklarız. Yeni menüler ilave ederken ise Insert butonundan faydalanırız.
Microsoft Word’de Düzen menüsüne tıkladığımız zaman Kopyala için Ctrl + C Kes için Ctrl + X Yapıştır için Ctrl + V kısayol tuşları görülür. Visual Basic’de de bu tip menüler oluşturmak istediğimizde Menü Editor penceresindeki liste kutusundan bir menü seçtikten sonra Shotcut bölümünü kullanabiliriz.
Popup Menüler

Windows’ta sağ düğmeye bastığımızda çıkan menülere popup menüler adını veririz. Visual Basic’de hazırladığımız projelerde de popup menüler oluşturabiliriz. Popup menü tasarımı normal menü tasarımı gibi gerçekleşir. Sadece bu menünün visible özelliğine false değeri verilir ve açılması istenilen yerde PopupMenu yöntemi kullanılır.

PopupMenu MenüAdıFlags X Y Bold

MenüAdı; Menü Editörde tasarlanan menünün adı
Flags; X parametresinin nasıl kullanılacağını ve açılan menüde farenin hangi tuşunun click olayını gerçekleştireceğini belirler.
Flags parametresi aşağıdaki gibi kullanılır;
Flags=KoorX + Fare
KoorX aşağıdaki değerleri alır
0: Menü X kordinatının solunda yer alır
4: Menü X kordinatını ortalayacak
8: Menü X kordinatının sağında yer alır

Fare aşağıdaki değerleri alır
0: Sol fare tuşu ile menüden eleman seçilebilecek
2: Sağ fare tuşu ile menüden eleman seçilebilecek
Bold; Bu parametre ile menüdeki elemanlardan biri kalın yapılabilir

Private Sub Text1_MouseDown(Button As IntegerShift As Integer X As Single Y As Single)
'Sağ fare düğmesine basıldı ise
If Button = 2 Then
PopupMenu mnuDuzen 4 Text1.Left + X Text1.Top + Y
End If
End Sub