Visual Basic Ile Ilgili Herseyi Bulabilirsiniz

AKTİF YAZICININ DEĞİŞTİRLMESİ

Bu kodlar Windows'un varsayılan yazıcısını değiştirmez. O an çalışan programın içindeki aktif yazıcıyı değiştirir.

Private Sub Form_Load()
prnlist
MsgBox ("Şu anki aktif yaziciniz : " & Printer.DeviceName & " ")
End Sub

Private Sub prnlist()
Dim X As Printer
For Each X In Printers
prncombo.AddItem X.DeviceName
Next
End Sub

Private Sub prncombo_Click()
Dim X As Printer
For Each X In Printers
Set Printer = X
If Printer.DeviceName = prncombo.Text Then
Exit For
End If
Next
MsgBox ("Şu anki aktif yaziciniz : " & Printer.DeviceName & " ")
End Sub

DESKTOPTAKİ İKONLARIN DÜZENLENMESİ

Aşağıdaki kodu fare ile copy yapın ve Visual Basic'i açarak General Declerations bölümünden itibaren paste edin
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long



Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long



Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long



Private Const GW_CHILD = 5



Private Const LVA_ALIGNLEFT = &H1



Private Const LVM_ARRANGE = &H1016







Private Sub Command1_Click()



Dim hWnd1 As Long



Dim hWnd2 As Long



Dim Ret As Long



hWnd1 = FindWindow("Progman", vbNullString)



hWnd2 = GetWindow(hWnd1, GW_CHILD)



hWnd1 = GetWindow(hWnd2, GW_CHILD)



Ret = SendMessage(hWnd1, LVM_ARRANGE, LVA_ALIGNLEFT, 0)



End Sub



Command1 fonksiyonunu bir butona bağlayın. Butona bastığınız zaman desktop'daki tüm ikonlar sol tarafa asker gibi dizilecektir.

İNTERNET BAĞLANTISINI KONTROL ETME


İnternet bağlantısının aktif olup olmadığını kontrol etmek için VB'de herhangi bir komut bulunmaz. Ancak internetle ilgili bir kontrol çalıştırıldığında bunu kontrol ederek aktif bağlantı yoksa, önce bağlantı kurmak için bağlantı penceresini açar. Yine de siz bir komutu kullanmadan önce internete aktif bağlantı olup olmadığını öğrenmek isterseniz bazı API'ler aracılığı ile regisrty dosyasında bulunan System\CurrentControlSet\Servi ces\RemoteAccess yolu altındaki "Remote Connection" anahtarının değerini okuyarak aktif bağlantının olup olmadığını anlayabilirsiniz.

ÖRNEK: Bilgisayarın internete bağlı olup olmadığını anlayacak kod.


Option Explicit

Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA"

(ByVal hKey As Long, ByVal alt As String, hKey As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA"

(ByVal hKey As Long, ByVal sKeyValue As String, ByVal lpReserved As Long,

lpType As Long, lpData As Any, nSizeData As Long) As Long



Private Sub Form_Load()

Dim hKey As Long, lpData As Long, nSizeData As Long

Dim alt, anahtar

alt = "System\CurrentControlSet\Serv ices\RemoteAccess"

anahtar = "Remote Connection"

If RegOpenKey(HKEY_LOCAL_MACHINE, alt, hKey) = 0 Then

lpData = 0&

nSizeData = Len(lpData)

If RegQueryValueEx(hKey, anahtar, 0&, 0&, lpData, nSizeData) = 0 Then

If lpData
<> 0 Then

MsgBox ("İnternet bağlantısı aktif")

Else

MsgBox ("İnternet bağlantısı aktif değil")

End If

End If

RegCloseKey (hKey)

End If

End Sub

MENÜLERE BITMAP RESİMLER EKLEME
______________________________ __________
Bu kod parçası menülere bitmap resimleri ekliyor. Öncelik bir modüle su satırları ekleyin.

Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, _ byVal hBitmapChecked As Long) As Long

Public Const MF_BITMAP = &H4&

Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type

Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long

Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, _
lpMenuItemInfo As MENUITEMINFO) As Boolean

Public Const MIIM_ID = &H2
Public Const MIIM_TYPE = &H10
Public Const MFT_STRING = &H0&

Daha sonra içerisinde menü bulunduran bir form üzerinde bir PictureBox yarattiktan sonra aşağıdaki kod satırını giriniz.

Private Sub Form_Load()
hMenu& = GetMenu(Form1.hwnd)
hSubMenu& = GetSubMenu(hMenu&, 0)
hID& = GetMenuItemID(hSubMenu&, 0)
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1.Picture, Picture1.Picture
End Sub

SAYILARI NOKTA İLE AYIRMAK



Kodun yazıldığı sistem..: Pentium II 333Mhz, 64Mb ram
İşletim Sistemi.............: MS WindowsNT 4.0, Service Pack 5
Version....................... : MS Visual Basic 6.0 Enterprise + Service Pack 3

Sayıları nokta ile ayırmak
______________________________ __________

Bir arkadaşımız mail'inde sayıların arasına nokta koyarak göstermek istediğini yazmış. Böylece okunurluluğu arttırmış olacaktır. Text box'a girilen sayı onlar, yüzler, binler vs olarak ayrılmakta ve aralarına nokta koyulmaktadır. Ayrıca eğer ondalıklı bir sayı ise ondalıklı kısım korunarak görüntülenmektedir. Şimdi aşağıdaki kodu bir modül içine kopyalayın ve bir form üzerine iki adet text box koyun.



Public Function VirgulEkle(ByVal Sayi As Double)

Dim YeniSayi As String
Dim VirgulluKisim As String
Dim Yedek As String
Dim TestSayisi As String

TestSayisi = CStr(Sayi)

For x = 1 To Len(TestSayisi)
Yedek = Left(TestSayisi, x)

If Right(Yedek, 1) = "," Then
VirgulluKisim = Right(TestSayisi, Len(TestSayisi) - x)
TestSayisi = Left(TestSayisi, (x - 1))
End If

Next x

If (Len(TestSayisi) Mod 3) <> 0 Then
YeniSayi = Left(TestSayisi, (Len(TestSayisi) Mod 3))
YeniSayi = YeniSayi & "."
TestSayisi = Right(TestSayisi, Len(TestSayisi) - (Len(TestSayisi) Mod 3))
End If

Do While (Len(TestSayisi) > 3)
YeniSayi = YeniSayi & Left(TestSayisi, 3)
YeniSayi = YeniSayi & "."
TestSayisi = Right(TestSayisi, Len(TestSayisi) - 3)
Loop

YeniSayi = YeniSayi & TestSayisi

If VirgulluKisim <> "" Then
YeniSayi = YeniSayi & ","
YeniSayi = YeniSayi & VirgulluKisim
End If

VirgulEkle = YeniSayi

End Function



Şimdi text boxlardan ilkinin LostFocus event'ine şu kodları yerleştirin.


Private Sub Text1_LostFocus()
Dim Yazi As String

Yazi = VirgulEkle(CDbl(Text1.Text))
Text1.Text = CStr(Yazi)
End Sub


Text box'dan lostfocus durumu gerçekleştiğinde tb içindeki sayı formatlanarak noktalı hale getirilecektir. Bu mail'e bu kadar geç cevap verdiğim için kusura bakmayın. Çok meşgul günler geçiriyorum.

TEXT BOX IN TEMİZLENMESİ
Bazen bir formdaki tüm text box'ların temizlenmesini isteriz bunun için çok kısa bir yol var
Aşağıdakı kodu fare ile copy yapın ve MS Visual Basic içinde kod kısmına paste edin
Command1 isimli fonksiyonuda bir tuşa bağlayın. Formun üzerinede bir kaç tane Text Box koyup derleyin.
Sub ClearAllTextBoxes(frmTarget As Form)

For i = 0 To (frmTarget.Controls.Count - 1)

Set ctrlTarget = frmTarget.Controls(i) 'Eğer TextBox ise temizle

If TypeOf ctrlTarget Is TextBox Then

ctrlTarget.Text = ""

End If

Next i

End Sub



Private Sub Command1_Click()

ClearAllTextBoxes Form1 'Text Boxlari temizlenecek formun ismini Form1 yerine yazın.

End Sub

VB DE KAYAN YAZI

Kodun yazıldığı sistem..: Pentium II 333Mhz, 64Mb ram
İşletim Sistemi.............: MS WindowsNT 4.0, Service Pack 5
Version....................... : MS Visual Basic 6.0 Enterprise

Bu örneğin amacı bir form üzerinde kayan yazı efekti sağlayacak bir görüntü elde etmektir. Bunun için bir form açın ve içine bir Edit Box ve bir Timer koyun. Edit box ile formun Background rengini aynı yapın. Edit Box'ın Border Style özelliğinide None yapın. Böylece form üzerinde görünmeyen bir edit box elde etmiş olucaz. Bundan sonra aşağıdaki kodu formun kod kısmına yapıştırın.
Private Sub Command2_Click()

End

End Sub



Private Sub Form_Load()



Tx2 = "Yeniçeri Warez, come.to/yeniceri. Net'deki en iyi WAREZ sitesi "

Text2.Text = Tx2



Text2.TabStop = False

End Sub



Private Sub Text2_GotFocus()

Command2.SetFocus



End Sub



Private Sub Timer1_Timer()

Text2.Top = Text2.Top - 10



If Text2.Top = -750 Then 'Bu ayarlanabilir.

Text2.Top = 2500 'Bu ayarlanabilir.

End If



End Sub


Projeyi F5 tuşu ile çalıştırınca text box yukarı doğru kayacak ve bir süre sonra tekrar alttan çıkarak yoluna devam edicektir. Bu uygulama 'Hakkında' ekranlarına da hoş bir efekt katabilir.

VB İLE SCREEN SAVER HAZIRLAMAK

Bu çalışma sonunda mouse denen minik ama hünerli alete nasıl hükmedeceğimizi göreceğiz. Kodu Eski bir visual basic kitabında bulup üstünde biraz değişiklik yaptım. Kendiniz uğraşarak daha da geliştirebilirsiniz. Aşağıdaki kodu bir modül içine paste edin. Başta Declare edilen fonksiyon fare imlecinin görünüp kaybolmasıyla ilgili user32 kütüphanesine ait bir fonksiyondur.
Declare Function ShowCursor Lib "user32" (ByVal fShow As Integer) As Integer

Global maxLines As Integer

Sub endScrnSave()

showmouse

End

End Sub



Sub HideMouse()

While ShowCursor(False) > = 0



Wend

End Sub



Sub main()

BlankForm.Show

End Sub



Sub showmouse()

While ShowCursor(True) < 0



Wend

End Sub




Projeye bir form ekleyip özelliklerini şu şekilde ayarlayın

1-Background = siyah
2-BorderStyle = 0-None
3-ShownInTaskBar = False
4-WindowState = 2-Maximized

Formu ekledikten sonra aşağıdaki koduda General Declerations kısmından itibaren kopyalayıp fonksiyonları sırayla bağlayın.
Dim lastX, lastY

Dim numlines



Sub form_Keydown(Keycode As Integer, Shift As Integer)

endScrnSave

End Sub



Private Sub Form_Load()

Move 0, 0, Screen.Width, Screen.Height

HideMouse

End Sub



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If IsEmpty(lastX) Or IsEmpty(lastY) Then

lastX = X

lastY = Y

End If



If Abs(lastX - X) > 2 Or Abs(lastY - Y) > 2 Then

endScrnSave

End If



lastX = X

lastY = Y

End Sub




Projeyi çalıştırınca ekran siyah bir formla kaplanacak ve siz mouse'a dokunan kadar kalacaktır. Fakat bu projenin henüz bazı eksik yanları var. Mesela klavyeden windows+E tuşuna basınca explorer açılıyor yani herhangi bir klavye kilidi yok. Bunun yanında bir password formu ekleyerek çıkışda (fare oynatıldıktan sonra) bir şifre girilmesi ve eğer şifre doğruysa screen saver'dan çıkılması güzel olurdu. Hadi yapın bunları ve programlama.com'a gönderin. Unutmayın ileride kaynak olarak başvuracağımız bu site ancak bizim çabamızla geniş bir arşiv olabilir. Kolay gelsin.

Temel VISUAL BASIC
Formlar
Visual Basic’de pencerelere form adı verilir. Bütün Visual Basic projelerinde en az bir form olmalıdır. Formlar uygulama arabirimini oluşturabilmek için üzerlerine denetimler ekleyebileceğimiz nesnelerdir.
Özellikler
Visual Basic’de formlara ait özellikler bulunur. Bu özellikler aracılığı ile formlarımızı istediğimiz gibi tasarlayabiliriz. Bu özelliklerin bir kısmı tasarım aşamasında değişebileceği gibi bir kısmıda sadece çalışma modunda değiştirilebilirler. Aşağıda en sık kullanılan form özellikleri açıklanmıştır ;
AutoRedraw
Formun kendini yenilemesini sağlar. Özellikle form üzerine bir şeyler yazdırıyor veya form üzerine çizim yaptırıyorsak kullanırız.
BackColor
Bu özellik formun arka plan rengini belirlemizi sağlar.
BorderStyle
Formun kenarlarının nasıl görüleceğini belirler. Altı farklı değer alabilir.
0-None ; Form boyutları değiştirilemez ve form taşınamaz. Başlık çubuğu görülmez.
1-Fixed Single ; Form kenarlarından tutularak genişletilemez.
2-Sizable ; Varsayılan değerdir.
3-Fixed Dialog ; Form boyutları değiştirilemez. Sadece form taşınabilir ve kapatılabilir.
4-Fixed ToolWindow ; Fixed Dialog ile benzerdir. Başlık Çubuğundaki etiket daha küçük bir fontta gösterilir.
5-Sizable ToolWindow ; Sizable ile aynıdır ama Maximize ve Minizmize düğmeleri görülmez.
Caption
Formun başlık çubuğunda görülecek etiketi belirler.
ContorlBox
True veya False ayarını alır. Kontrol menüsünü gizler.
Count
Form üzerindeki menüler dahil kontrol sayısını verir.
Controls(Index)
Form üzerindeki nesnelerin adını temsil eder.

Private Sub Command1_Click()
On Local Error Resume Next
Dim i
For i = 0 To Count - 1
Controls(i).BackColor = vbRed
Next
End Sub

Yukarıdaki kod form üzerindeki nesnelerin BackColor özelliklerini kırmızıya ayarlar.
CurrentX, CurrentY
Form üzerine yapılan yazım ve çizimlerin nereden başlayacağını belirler.

Private Sub Form_Load()
Dim t, i
t = "Visual Basic 6.0"
For i = 1 To 10
FontSize = i * 5
CurrentX = (ScaleWidth - TextWidth(t)) / 2
Print t
Next
End Sub
FillColor, FillStyle
Circle ve Line metodu ile form üzerine çizilen çember ve kutuların rengini belirler.
ForeColor
Form üzerine yazılan yazının rengini belirler.
Height
Formun yüksekliği belirlenir. Ölçü birimi Twips’dir.
Icon
Formun başlık çubuğunda gösterilecek ikonunu ayarlar.
KeyPreview
Form aktifken basılan tuşlardan haberdar edilip edilmeyeceğini belirler.
Left
Formun ekranın sol kenarından ne kadar uzakta olacağını ayarlar. Formu ekrana ortalatmak için aşağıdaki kod kullanılabilir.

Private Sub Form_Load()
Left = (Screen.Width - Width) / 2
Top = (Screen.Height - Height) / 2
End Sub
MaxButton
Formun başlık çubuğunda Maximize düğmesinin gösterilip gösterilmeyeceğini belirler.
MinButton
Formun başlık çubuğunda Minmize düğmesinin gösterilip gösterilmeyeceğini belirler.
Moveable
Formun taşınıp taşınamayacağını belirler.
ScaleMode
Form içerisinde kullanılacak ölçü birimini ayarlar.
Name
Formun en önemli özelliklerinden biridir. Proje içerisinde formun hangi ismi kullanacağını belir. Visual Basic bir nesneye gönderme yaparken bu name özelliğinden faydalanır. Genelde formlara verilen isimler frm harfleri ile başlar.
ShowInTaskbar
Formu görev çubuğunda gizlememizi sağlar.
StartupPosition
Form yüklendiğinde ekrandaki kordinatlarını belirler.
0: Form tasarlanırken bulunduğu pozisyonda açılır
1: Form içinde bulunduğu formun ortasında açılır. ( MDIChild formlar için )
2: Form ekranın ortasında açılır
3: Formun kordinatları Windows tarafından belirlenir
Width
Formun genişliğini belirler.
WindowState
Formun nasıl açılacağını ayarlar.
0-Normal ; Form normal durumda açılır
1-Minimized ; Form simge durumunda açılır
2-Maximized ; Form tam ekran durumda açılır
Olaylar
Visual Basic olay güdümlü bir programdır. Forma birkez tıkladığınızda, kapattığınızda ebatlarını genişlettiğinizde olaylar gelişir. Aşağıda en sık kullanılan form olayları açıklanmıştır ;
Activate
Formun ekranda aktif olması ile gelişir. Formun ilk yüklenmesinde Initialize ve Load olayından sonra gerçekleşir.
Deactivate
Activate olayın tam tersidir. Form aktiviteyi kaybettiğinde gerçekleşir.
DragDrop
Sürüklenen bir denetim form üzerine bırakıldığında gerçekleşir.
Load
Form henüz ekranda görülmeden yüklenmesi aşamasında, Initialize olayından hemen sonra gerçekleşir. En çok kulanılan olaydır.
Resize

Formun boyutları değiştirildiği zaman gerçekleşir. Ekranı kapla, simge durumuna küçült veya kullanıcı tarafından formun boyutu değiştirildiği anda meydana gelir.
Unload
Bu olay form kapatıldığında meydana gelir. Kullanıcıya formu kapatıp kapatmak istemediğini soran bir kod yazabilirsiniz. Cancel parametresine True değeri vererek kapatma işlemini iptal edebiliriz.
Private Sub Form_Unload(Cancel As Integer)
Dim Cevap As Integer
Cevap = MsgBox("Programdan çıkmak istediğinizde emin misiniz?", 20, "Brain")
If Cevap = 5 Then
Cancel = True
End If
End Sub
QueryUnload
Form kapatıldığında meydana gelir. Unload olayından farkı formun nasıl kapatıldığını öğrenebilirsiniz. Kendi kodunuzla, kullanıcı veya windows tarafından ve kapatma işlemini iptal edebilirsiniz. Cancel ve UnloadMode parametreleri kullanılır. UnloadMode parametresi kontrol edilerek formun hangi yöntem ile kapatıldığı öğrenilebilir. Cancel parametresine True değeri vererek kapatma işlemini iptal edebiliriz. UnloadMode aşağıdaki değerleri alabilir;
0: Kontrol kutusunda kapat seçildi
1: Unload komutu kullanıldı
2: Windows’tan çıkılmaya çalışldı
3: Task Manager araçılığı ile kapatılmaya çaılışıldı
4:MDIChild bir form ise MDI form kapatılmaya çalışıldı
Visual Basic Denetimlerine Giriş
Form nesneleri Visual Basic uygulamalarının temelidir. Geliştiriceğimiz tüm uygulamalarda en az bir form olacaktır. Formları ise istediğimiz halde tasarlayabilmek için denetimleri kullanırız.
CommandButton
Kullanıcıdan tepkiler toplamak için form üzerine yerleştirilen denetimlerdir. Komut düğmelerinin en önemli iki özelliği Name ve Caption’dur. Name özelliği nesneyi projede kullanılan diğer kontrollerden ayırt edebilmemizi sağlar. Komut düğmelerine isim verirken genellikle cmd yazarak başlarız. Caption özelliği ekranda görülecek etiket belirler. Caption özelliği verirken & karakterini kullanarak istenilen harfin altı çizgili gösterilir. Komut düğmelerinde en çok kullanılan özelliklerden biride Default ve Cancel özellikleridir. Default özelliğine True değeri verildiğinde form üzerinde üzerinde Enter tuşuna basılması ile komut düğmesinin click olayı meydana gelir. Cancel özelliğine True değeri verilmesi ile ise form üzerinde herhangibir denetim üzerinde ESC tuşuna basıldığında komut düğmesinin click olayı meydana gelir.
Komut düğmelerinde en çok kullanılan olay ise Click olayıdır. Kullanıcı komut düğmesi üzerine tıkladığı anda gerçekleşir.
TextBox
Genellikle kullanıcıdan veri toplamak amacı ile kullanılır. Metin kutuların caption özelliği bulunmaz bunun yerine text özellikleri vardır. Metin kutusu içerisinde yazan değeri görmemizi sağlar. Aşağıda metin kutularının çok kullanılan özellikleri verilmiştir.
Text
Metin kutusunun içeriğini gösterir.
MaxLenght
Varsayılan değeri 0’dır. Metin kutusu içerisine en fazla kaç karakter yazılabileceğini ayarlar.
PasswordChar
Parola giriş kutularında kullanıcının girdiği karakterler metin kutusunda gösterilmez bunun yerin * kararkterleri gösterilir. Bu özellik ilede metin kutusuna girilen karakterler yerine gösterilmesi istenen karakter ayarlanır.
MultiLine
Metin kutusuna bir satırdan fazla bilgi girilebilmesini sağlar.
ScrollBars
MultiLine özelliği True yapılmış bir metin kutusuna kaydırma çubukları ekler.
Locked
Metin kutusu içeriğinde değişiklik yapılmamasını sağlar. Metin kutusunu kitler.
TabStop
Tab tuşlarına basılarak Metin kutusuna ulaşılıp ulaşılamayacağını ayarlar.
TabIndex
Tab tuşu ile denetimler arasında dolaşma sırasını belirler.
Enabled
Metin kutusunun aktif veya pasif olacağını ayarlar.
Visible
Metin kutusunun ekranda gösterilip gösterilmeyeceğini belirler.

Metin kutularında en sık aşağıdaki olaylar kullanılır.
Change
Metin kutusu içeriğinde bir değişiklik olduğunda gerçekleşir.
GotFocus
Metin kutusu etkinleştiği anda gerçekleşir.
KeyDown
Bir tuşa basıldığı anda gerçekleşir.
KeyPress
Bir tuş basılı olduğu sürece gerçekleşir.
KeyUp
Tuş bırakıldığı anda gerçekleşir.
LostFocus
İmleç metin kutusundan ayrıldığı anda gerçekleşir.

Private Sub Text1_LostFocus()
MsgBox "Metin Kutusunda " & Text1.Text & " yazıyor."
End Sub

Metin kutularında kullanılan birkaç tane metot vardır. Bunlardan en önemlisi SetFocus metodudur. Bir metin kutusunu etkinleştirmek amacı ile kullanılır.

Text1.SetFocus
Label
Etiketlerde metin kutularına benzer, aralarında fark ise kullanıcı etiketlere değer giremez. Çok fazla özelliği yoktur. Caption özelliklei kullanılarak içlerine yazılar yazılabilir.
Alignment
İçerisinde bulunan yazının hizalanmasını sağlar.
AutoSize
Etiket içerisinde bulunan değere göre boyutlarını otomatik olarak ayarlar
BackStyle
Etiketin form ile aynı rengi almasını sağlar.
BorderStyle
Etiketin 3 boyutlu görülmesini sağlar.
MouseMove
Mouse işaretçisi üzerlerine geldiğinde gerçekleşir.
UseMnemonic
Etiketlerde Caption özelliğinde & karakteri kullanılmasını sağlar.
Image
Görüntü denetimleri resim gösterme işlemlerinde kullanılırlar. Resim denetime oranla daha az hazfıza tüketir. Image’lar içerisinde *.Bmp, *.Ico, *.Wmf, *.Jpg, ve *.Gif dosyaları görüntülenebilir.
Picture
Bu özelliği araçılığı ile resim eklenebilir.
Stretch
Bu özellik False ise resmin boyutlarını alır. Eğer özellik True olursa resim denetimin boyutlarına ayak uydurur.
PictureBox
Resim kutuları genellikle grafikleri (örneğin bmp, jpg, gif ) görüntülemek için kullanılır. Görüntü denetimleri ile çok benzerdirler. Aralarında çok az farklılık vardır. Eğer sadece bir resim göstermek isteniyorsa görüntü kutusu daha iyi bir seçimdir. Graifiği form üzerinde taşımayı düşünüyorsak resim kutuları daha esnektir. Resim kutuları içerisine çizim yapabiliriz.
AutoSize
Resim kutusuna bir resim yerleştirildiğinde normal boyutlarda gösterilir. Eğer resim, resim kutusundan büyük ise resim kırpılır. Bu özelliğin değerini True yaparsak resim kutusu boyutlarını grafiğe uyacak şekilde ayarlamasını sağlar.
Picture
Resim kutusu içerisinde gösterilen resim bu özellikle belirlenir. Hem tasarım modunda hemde çalışma modunda kullanılabilir.
Image
Bu özellik sadece çalışma modunda kullanılabilir. Resim kutusu içerisinde gösterilen resmi başka bir Resim kutusu içerisine kopyalarken kullanılabilir.
Picture2.Picture=Piture1.Image
LoadPicture
Bu metot çalışma kipinde resim kutusuna resim yükletmek için kullanılır.
Picture1.Picture=LoadPicture(d osya adı) ‘Bu kod dosya adı verilen resmi görüntüler
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
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 dikey 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 Integer,Shift 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 Integer,Shift 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

Formlarla Çalışmak,
Hazırladığımız projelerde çoğu zaman kullanıcı ile iletişim kurabilmek için birden fazla forma ihtiyaç duyarız. Visual Basic bu konuda bize yardımcı olmakta, projelerimize birden fazla form eklememize imkan sağlamaktadır. Projeye eklenen her yeni forma Visual Basic bir isim vermektedir. Yeni bir proje başlattığımızda Visual Basic bir tane form oluşturmakta ve buna Form1 adını vermektedir. Daha sonradan bizim eklediğimiz formlar ise sırası ile Form2, Form3 gibi isimler alacaktır.
Bir projeye yeni bir form eklemek için Project menüsünü kullanabileceğimiz gibi Project Explorer penceresine sağ tıklayarak gelen menüden Add seçeneğini kullanarak da yeni bir form ekleyebiliriz. Bu komutlar verildikten sonra Visual Basic bize aşağıdaki gibi bir pencere sunacak.
Bu pencerede Visual Basic ile beraber gelen birçok hazır form şablonu bulunmaktadır. Eğer istersek bu şablonlardan birini seçerek projemize ilave edebilir veya Form seçeneğini kullanarak boş bir form ekleyebiliriz.
Projemize yeni bir form ekledikten sonra, eklenen yeni form adı Project Explorer penceresinde görülebilir. Projemizde birden fazla form varsa eğer, hangi formla çalışmak istiyorsak Project Explorer penceresinden formu seçip View Object butonuna basarız.
Eklediğimiz yeni formu projemize kaydetmek için File-Save Form komutunu verebiliriz. Karşımıza gelen pencereden formun bulunmasını istediğimiz klasör ve forma vermek istediğimiz ismi belirtiriz. Visual Basic formu .frm uzatısı ile kaydeder.
Visual Basic’de eğer bir forma ihtiyacımız kalmadı ise, o formu projemizden çıkarmak için File-Remove Form komutunu kullanırız. Böylece form projeden ve Project Explorer penceresinden çıkartılır.
Visual Basic başka bir projede kullandığımız bir formu üzerinde çalıştığımız projeye eklememize izin verir. Böylece tekrar tekrar aynı tip formları dizayn etmekle uğraşmak zorunda kalmayız. Add Form komutunu verdiğimizde gelen pencerede Existing sekmesini kullanarak istediğimiz .frm uzantılı dosyayı seçerek projemize ekleyebilriz.
Program Kodları ile Formları Yönetmek
Projelerimizde yeni bir formu yüklemek için aşağıdaki yöntem kullanılır.

Load FormAdı

Burada FormAdı yerine yüklemek istediğimiz formun adını yazmalıyız. Daha önceden yüklenmiş olan bir formu göstermek için ise aşağıdaki sözdizimi kullanılır.

FormAdı.Show Mode

Mode parametresine 1 verilirse form kalıcı olacak, 0 verilirse kalıcı olmayacaktır. Eğer mode bildirilmezse Visual Basic varsayılan değeri olan 0’ı kullanacaktır. Kalıcı formlara örnek olarak ekrana gelen mesaj pencerelerini verebiliriz. O pencerede kapanmadan başka bir işlem yapamayız.
Bir formu henüz yüklemeden Show yöntemini kullanırsak Visual Basic önce formu yükleyecek yani load olayını gerçekleştirecek ardından ise formu gösterecektir.
Açık olan veya yüklenmiş olan bir formu kapatmak için ise aşağıdaki yöntemler kullanılır.

Unload FormAdı ‘Formu hafızadan kaldırır.
FormAdı.Hide ‘Formu gizli hale getirir. Form hala hafızada yer işgal eder.

Visual Basic’de birden fazla form ile çalışırken projeyi çalıştırdığımızda hangi formun ilk olarak çalışacağını belirlemek için Project –Project Properties komutunu kullanmalıyız. Bu komutu verdikten sonra karşımıza yukarıdaki gibi bir pencere gelecek. Gelen pencereden Startup Object adlı açılan liste kutusundan projenin hangi form ile açılacağını belirleyebiliriz.







MDI Formlar
Hazırlayacağımız projelerde genellikle birden fazla form kullanacağız. Bu formlardan birisi Ana Formumuz olacak, diğerleri ise bu form içerisinde çalışan Yavru Formlar olacaktır. Örneğin Microsoft Word, Microsoft Excel bu şekilde tasarlanmış uygulamalardır. Word ve Excel içerisinde birden fazla form açılmaktadır. Uyguluma simge durumunda küçültüğünde veya kapatıldığında içerisinde bulunan formlar da otamatik olarak kapanmaktadır. Visual Basic’de bu tip Formlara MDI From ve MDI Child Form adı verilmektedir.
Projemize bir MDI Form eklemek için Project-Add MDI Form komutunu veririz. Bir projede en fazla bir tane MDI Form olabilir. Projemizde bulunan diğer formları ise yavru form olarak tanımlamak için Properties penceresinden MDIChild özelliklerine True değerini atamamız gerekir. MDI Form aşağıdaki özellikler dışında diğer formlarla aynı işlevleri sağlarlar.
• Bütün yavru formlar ait oldukları MDI Form içerisinde görülürler.
• Bir yavru form simge durumunda küçültüğünde, görev çubuğunda değilde ait olduğu MDI Form içerisinde küçük bir başlık çubuğuna dönüşür.
• MDI Form simge durumunda küçültüğünde, yavru formlarda kendisi ile beraber simge durumunda küçülür ve hepsi görev çubuğunda tek bir düğme olarak gösterilirler.
• Bütün yavru formlarda bulunan menüler, MDI Formun menü çubuğunda görülür.
Visual Basic’de Çizim
Visual Basic’de çizim yapabilmek için Line, Circle, Pset yöntemlerini kullanırız. Bu yöntemler Form ve Printer için kullanılabilir. Form üzerine çizim yapılırken formun AutoRedraw özelliğini True yapmalıyız.
Visual Basic’de çizim yaparken kordinat sistemini anlamalıyız. Çizim yaparken X ve Y kordinatlarını kullanırız. Y kordinatının yukarıdan aşağı inerken artar ve başlangıç değeri 0’dır. X kordinatı ise soldan sağa giderken artar ve başlangıç değeri 0’dır. Formun sol üst köşesi kordinatları 0,0 dır.
Form üzerinde çizim yapılacak alan formun iç kısımlarıdır. Width ve Height özellikleri ise formun çerçeveler ve başlık çubuğu dahil olmak üzere genişlik ve yüksekliğini verir. Formun iç yükseklik ve genişliğini ise ScaleWidth ve ScaleHeight özelliklerini kullanarak öğrenebiliriz.
DrawWidth; Çizgi kalınlığını belirler.
Line Yönetimi
Line (X1,Y1) - (X2,Y2), renk;Line yöntemi form üzerine çizgi çizmek için kullanılır. X1 ve Y1 başlangıç, X2 ve Y2 bitiş noktasını belirler. Renk paramtresi seçimlidir. Eğer istenirse ForeColor özelliğine değer atayarakda renkli çizmler yapılabilir.
Private Sub Form_Load()
DrawWidth = 5
For i = 0 To Form1.ScaleHeight Step Form1.ScaleHeight / 10
Line (0, i)-(Form1.ScaleWidth, i), vbRed
Next
End Sub
Circle Yönetimi
Circle (MX,MY), R , renk; Circle yöntemi merkezi MX ve MY olan çemberi R yarıçapında verilen renkte çizer. FillStyle özelliği 0 yapıldıktan sonra ve FillColor özelliğini kullanılarak içleri renklendirilebilir.

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 1 To 5
Circle (X, Y), i * 100, vbRed
Next
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FillStyle = o
FillColor = Rnd * 16777216
Circle (X, Y), 500
End Sub
Pset Yönetimi
Pset(X,Y), renk; Pset yöntemi X ve Y olarak verilen kordinatlara bir nokta koyar.

Private Sub Form_Load()
Dim x, y, i, r
r = ScaleHeight / 2
While r > 0
i = (i + 1) Mod 360
r = r - 1 'Yarıçağı sürekli azalt
y = ScaleHeight / 2 + r * Sin(i * 3.1415 / 180)
x = ScaleWidth / 2 + r * Cos(i * 3.1415 / 180)
PSet (x, y)
Wend
End Sub

Yazıcı Kullanımı
Er yada geç projelerimizde yazıcıyı kullanmak zorunda kalacağız. Visual Basic ile yazıcıdan döküm alabilmek için Windows ortamında tanıtılmış bir yazıcıya ihtiyaç duyulur. Visual Basic yazıcı kullanımı için Printer nesnesini sunar. Printer nesnesinin önemli özellikler aşağıda verilmiştir;

Özellik Tanımı
• DeviceName Yazıcı ismi bu özellikle öğrenilebilir
• FontName Metinde kullanılacak yazı tipinin adını belirler
• FontSize Metinde kullanılacak yazı tipi boyutunu belirler
• FontBold Metinde kullanılacak yazı tipi biçeminin kalın olup olmaycağını belirler
• FontItalik Metinde kullanılacak yazı tipi biçeminin eğik olup olmaycağını belirler
• Page Basılmakta olan sayfa numarasını belirler
• CurrentX Yazdırma işlemine sayfanın üstünden ne kadar boşluk bırakılarak başlanacağını belirler.
• CurrentY Yazdırma işlemine sayfanın sol tarafından ne kadar boşluk bırakılarak başlanacağını belirler.
• ColorMode Yazdırmanın renklimi siyah beyazmı olacağını belirler.
• Copies Alınacak kopya sayısı belirlenir.
• Orientation Sayfanın yataymı, dikeymi kullanılacağını belirler
• Papersize Sayfa boyutunu belirler.

Yöntem Tanımı
• Print Belirlenen metnin yazıcıdan çıkmasını sağlar.
• Circle, Line, Pset Yazıcıda çizi yapmayı sağlar
• NewPage Baskı işlemine yeni bir sayfadan devam edileceğini belirler
• EndDoc Baskı işleminin bittiğini belirler
• KillDoc Sürmekte olan baskı işlemini sona erdirir.

Visual Basic’de kullanılan varsayılan ölçü birimi Twip’dir. Bir Twip 1/1440 inç’e tekabül etmektedir. Buna göre A4 ebatındaki bir kağıtın boyutları Twip cinsinden 11909 X 16834’dür.

Printer.CurrentY = 300
Printer.CurrentX = 400
Printer.FontName = "Times New Roman"
Printer.Font.Size = 16
Printer.Font.Bold = True
Printer.Print "Brain Bilişim Akademisi "
Printer.EndDoc
Yukarıda kod ile üstten ve yandan ne kadar boşluk bırakılacağını belirledikten sonra yazı tipini ve biçemini belirledik. Ardından Printer.Print yazdırmak istediğimiz metni belirledik. Son olarak da Printer.EndDoc komutunu vererek yazdırma işinin son bulduğunu belirledik.
Circle, PSet gibi işlevler Printer nesnesiyle kullanılabilmektedir. Bu yöntemler kullanılarak sayfalarımıza şekillerde çizdirebiliriz.
Yordamlar ve Fonksiyonlar
Visual Basic’de sık sık tekrarlanan kodlar yazmak yerine yordam ve fonksiyonlar oluşturulabilir. Oluşturulan bu yordam veya fonksiyonlar program içerisinde istenilen yerden ismi kullanılarak çağrılabilir. Bu sayede tekrar eden kodlar yazmaktan kurtulabiliriz. Eğer oluturduğumuz yordam geriye bir değer gönderiyorsa fonksiyon adını veririz.

Procedure (Yordam)
Projelerimizde şimdiye dek hep nesnelere ait olaylar üzerine kodlar yazdık. Eğer proje içerisinde birçok kez tekrarlanan kodlar varsa sürekli olarak aynı kodları yazmak yerine bu işlemleri gerçekleştiren yordam’lar yazarız. Visual Basic’de yazılan bir yodamı sadece yordam adı belirterek çağırabiliriz.
Visual Basic’de yeni bir yordam oluşturmak için Tool-Add Procedure komutunu veririz. Bu komut verildikten sonra yandaki gibi bir pencere ile karşılaşırız. Name kutucuğuna yordama vermek istediğimiz adı yazarız. Type bölümünden tür seçeriz. Yordamlar için Sub Fonksiyonlar için ise Function seçilir. Scope bölümünden ise Public işaretlenir. Tüm bu işlemler yapıldktan sonra Visual Basic formumuzun General Declarations bölümünde belirlediğimiz isimde bir yordam oluşturur. Eğer bu yordamın paramtre almasını istiyorsak parantezler içerisine değişkenler tanımlanır.
Yukarıda tanımlanmış bir yordam örneği var. Command1 nesnesinin Click olayı gerçekleştiğinde yordam çalışıyor.
Function (Fonksiyon)
Fonksiyonların oluşturulması ve kullanılması tıpkı yordamlara benzer. Fonksiyonlar yordamlardan farklı olarak geriye bir değr gönderirler.
Bir fonksiyon oluşturmak için Tool-Add Procedure komutunu veririz. Name kutucuğuna fonksiyona vermek istediğimiz adı yazarız ve Function seçeneğini işaretleriz. Fonksiyonun sadece form üzerinde çalışmasını istiyorsak Private Bütün Projede çalışmasını istiyorsak Public işaretlenmelidir. Tüm bu işlemler yapıldktan sonra Visual Basic formumuzun General Declarations bölümünde bir fonksiyon oluşturur. Eğer bu fonksiyona paramtre vermek istiyorsak parantezler içerisine değişkenler tanımlanır. Parantez sonrasında ise fonksiyonun geriye döndüreceği veri tipini belirlememiz gerekir.
Yukarıda tanımlanmış bir fonksiyon örneği var. Command1 nesnesinin Click olayı gerçekleştiğinde fonksiyon çalışıyor.

Diziler
Aynı tür bilgileri bellekte tutmak için kullanabileceğimiz listelere dizi adı verilir. Dizi kullanmanın avantajı, aynı tür bilgileri bir listede tutarak daha hızlı işlem yapılabilmesidir. Visual Basic'de dizi şu şekildedir

Örnek
Private Sub Form_Load()
Dim Ad(2) As String
Ad(0) = "Ali"
Ad(1) = "Ahmet"
Ad(2) = "Ebru"
End Sub
Option Base
Eğer diziyi 0’dan değilde 1’den itibaren başlatmak istersek diziyi tanımlamadan önce Option Base 1 satırını eklemeliyiz.
Statik Diziler
Bu tip dizilerde kullanılacak yer sayısı sabittir. Bu tip diziler sadece tanımlandıkları modül içersinde kullanılabilirler. Statik dizi şu şekilde tanımlanabilir

Dim dizi_adı(sayi) As Veri_Tipi

Tüm proje içinde kullanılacak bir dizi tanımlanmak isterse standart modülün General Declarations bölümünde yukarıdaki şekildeki gibi tanımlanmalıdır
Örnek
Option Base 1
Dim a(5) As Integer
Private Sub Form_Load()
a(1) = 10
a(2) = 20
End Sub

Private Sub Command1_Click()
Text1.Text = a(1) + a(2)
End Sub

Bu örnekte görüldüğü gibi projenin General Declarations kısmında a(5) dizisi tanımlanıyor. Bu dzi tanımlanmadan önce dizi indislerinin 1 den itibaren başlıyacagını belirten Option Base1 satırı koda dahil edilmiştir. Form1 yüklendiğinde bu dizinin ilk elemanınna 10 sayısı ikinci elemanına 20 sayısı atanıyor. Eğer kullanıcı Command1 isimli butona tıklarsa dizinin ilk ve ikinci elemanları toplanarak Form üzerinde Text1 adlı nesnenin Text özelliğine atanıyor. Yani TextBox'ın bu sayıların toplamını göstermesi sağlanıyor.
Dinamik Diziler
Bu tip dizilerde kullanılacak yer sayısında bir sınırlama yoktur. Bu tip diziler ilk başta aşagıdaki şekildeki gibi bir tanımlamaya ihtiyaç duyarlar

Dim dizi_adı( ) As Veri_Tipi

Daha sonra bu dizi kullanılacak iken indis sayısını belirtmek gerekir bunun içinde aşagıdaki gibi bir tanımlama yapılmalıdır.

ReDim dizi_adı(boyut ) As Veri_Tipi

Artık bu veri dizisini projemiz içinde kullanabiliriz.
Örnek
Option Base 1
Private Sub Form_Load()
Dim s() As String
End Sub

Private Sub Command1_Click()
ReDim s(10) As String
s(1) = "Selam "
s(2) = "Ayşe"
Text1.Text = s(1) + s(2)
End Sub

Bu dizi tanımlanmadan önce dizi indislerinin 1’den itibaren başlıyacagını belirten Option Base1 satırı koda dahil edilmiştir. Form1 yüklendiginde s adlı bir dinamik dizi tanımlanmaktadır. Kullanıcı Command1 isimli butuna tıkladığında, ReDim anahtar sözcüğü ile s dizisinin boyutu belirlenir. Bu dizinin ilk elemanınna "Selam " değeri ikinci elemanına "Ayşe" değeri atanıyor. Dizinin ilk ve ikinci elemanları birleştirilerek Form üzerinde Text1 adlı nesnenin Text özelligine atanıyor. Yani TextBox'ın bu değerlerin toplamını göstermesi sağlanıyor.

Dim Ad As String * 20
ClipBoard
Windows işletim sistemi Kopyala-Yapıştır ve Kes-Yapıştır yöntemini kullanırken ClipBoard nesnesinden faydalanır. Visual Basic’de ClipBoard’u nesnesini kullanabilmemiz için birkaç yöntem sunar.
Clear
ClipBoard nesnesinin içeriğini temizler.
SetText
ClipBoard nesnesinin içerisine gidecek yazıyı belirler. Kopyalama işlemlerinde kullanılır.
GetText
ClipBoard nesnesinin içerisindeki yazıyının alınacağını belirler. Yapıştır işlemlerinde kullanılır.
SetData
ClipBoard nesnesinin içerisine gidecek resini belirler. Kopyalama işlemlerinde kullanılır.
GetData
ClipBoard nesnesinin içerisindeki resmin alınacağını belirler. Yapıştır işlemlerinde kullanılır.

Visual Basic’de Clipboard nesnesini kullanarak kes, kopyala ve yapıştır işlemlerini gerçekleştiren yeni bir proje tasarlayalım. İlk önce yeni bir proje başlatalım. Projenin formuna bir TextBox nesnesi yerleştirip Text özelliğindeki değeri boşaltalım, Left ve Top özelliklerinede 0 değerini verelim. Bu sayede formun sol üst köşesinde içi boş bir TextBox nesnesi oluşturmuş olduk. Ardından Menü editörü açarak yanda görüldüğü gibi menüleri ekleyelim. Formumuzu tasarladıktan sonra kes, kopyala ve yapıştır işlemlerini gerçekleştirecek kodları Code Editörü açarak aşağıdaki gibi girelim. Eğer istenirse yeni menüler ilave ederek kullanıcının yazı biçemlerini değiştirmesinide sağlayabilirsiniz.


Private Sub Form_Load()
Text1.Text = ""
Text1.Left = 0
Text1.Top = 0
Text1.Width = Form1.ScaleWidth
Text1.Height = Form1.ScaleHeight
End Sub

Private Sub Form_Resize()
Text1.Width = Form1.ScaleWidth
Text1.Height = Form1.ScaleHeight
End Sub

Private Sub mnuCikis_Click()
End
End Sub

Private Sub mnuDuzen_Click()
If Text1.SelLength = 0 Then
mnuKes.Enabled = False
mnuKopyala.Enabled = False
Else
mnuKes.Enabled = True
mnuKopyala.Enabled = True
End If
End Sub


Private Sub mnuKes_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub


Private Sub mnuKopyala_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
End Sub

Private Sub mnuSecim_Click()
Dim Mesaj As String
Dim KarakterSayisi As Integer
KarakterSayisi = Text1.SelLength
Mesaj = "Seçili karakter sayısı : "
Mesaj = Mesaj & Str(KarakterSayisi)
MsgBox Mesaj
End Sub

Private Sub mnuYapistir_Click()
Text1.SelText = Clipboard.GetText
End Sub