VISUAL BASIC 6.0


MESAJ KUTULARI
Hepimizin yakından tanıdığı karşımıza cıktığında bizi bazen uzen bazen sevindiren mesaj kutularından bahsetmek istiyorum. Bu kutuları yakından tanımamıza ve sadece tek bir satır kod ile calıştırmamıza rağmen bu kutular ile saatlerini harcayan kişiler olmuştur. Konuyu fazla uzatmadan isterseniz mesaj kutusunun komut satırını vererek konuya giriş yapalım.



Msgbox Acıklama [,Duğme] [,Başlık] [,Yardım Dosyası, Bolum Numarası]

Yukarda MsgBox komutunun dizilimini verdim burada koşeli parantezler icinde yazılmış olan kısımlar istemliklidir.

Yukarda ki komut diziliminde "Acıklama" mesaj kutusunda goruntulenmesini istediğimiz mesajı temsil etmektedir. Burada onemli olan nokta eğer mesaj birden daha fazla satırdan oluşuyorsa bunları Chr$(13) ve Chr$(10) kodlarını mesajımıza ekleyerek sağlayabiliriz.

Ornek:

Private Sub Form_Load()

Dim Mesaj As String
Mesaj = "Merhaba" + Chr$(13) + Chr$(10) + "Dunya"
MsgBox Mesaj, vbInformation + vbOKOnly, "Mesaj İcin Başlık"

End Sub

Duğme ve simge tanımlamaları icin komut dizilimin ikinci kısmını kullanırız. Bu kısımda eğer birden fazla ozellik kullanacaksak bu ozellikleri "+" sembolu ile birlikte kullanırız. Aşağıda bu ozellikleri ve sayısal değerlerini bulabilirsiniz.




[IMG]http://by_netur.*********.com/visualbasicdizeler/vbdg/1b.jpg[/IMG]




[IMG]http://by_netur.*********.com/visualbasicdizeler/vbdg/2b.jpg[/IMG]



Mesaj kutularını goruntulerken ister sabitleri istersek bunların karşılıkları olan sayısal değerleri kullanabiliriz.VB 'de bazı şeyleri de oğrendiğimize gore isterseniz ilk programımızı oluşturalım bu sayede biraz once oğrendiklerimizi de kucuk bir ornekle pekiştirelim

VB calıştırdığımızda karşımıza ilk olarak aşağıdaki ekran gelecektir. Buradan Standart EXE ye cift tıklayarak VB ' geceriz

.

Daha sonra form alanına cift tıklayarak projemizde kodları yazacağımız "Kod Penceresi" 'ne geceriz




Kod penceresi acıldıktan sonra aşagıdaki kodları yazın

Private Sub Form_Load()

Dim Cevap As VbMsgBoxResult
MsgBox "Programa Hoşgeldiniz", vbInformation + vbOKOnly, _
"Deneme v1.0"
Cevap = MsgBox("Programın yuklenilmesine devam edilsin mi?", _
vbQuestion + vbYesNo, "Deneme v1.0")

If Cevap = vbYes Then
MsgBox "Program Yuklenmeye Devam Edecek", vbOKOnly + _
vbInformation, "Deneme v1.0"
Else
MsgBox "Gule Gule", vbOKOnly + vbInformation, "Deneme v1.0"
End
End If

End Sub


Evet arkadaşlar ilk uygulamamızı biraz anlatmak istiyorum "A" satırında yazdığımız kodların form ilk yuklendiğinde işleme sokulacağını anlatmaktadır bu kısmı iler ki derslerimizde daha ayrıntılı bir şekilde inceleyeceğiz cunku formların "load" olayından başka bir cok olayları vardır daha sonra "B" satırında ise "Cevap" isimli değişkenimizin bir Mesaj Kutusunun sonuc değişkeni olduğunu tanımlıyoruz. "C" satırındaki alttan cizgi (_) ise satırın daha bitmediğini cizginin altındaki satırında allatan cizgiyi kullandığımız satırın devamı olduğunu belirtmektedir isterseniz bu ozelliği kullanmanıza gerek yok ben yazılar pencerenin dışına taşmasın diye kullandım ama cok uzun bir satır kullandığınızda bunu kullanmanız hataları bulmanız acısından kolaylık sağılacaktır. "C" satırında "Cevap" değişkenine mesaj kutusundan bir değer atanıyor burada onemli olan nokta Mesaj kutusundaki basılan duğmeyi atama yapıyorsak "MsgBox" komutundan sonra yazacağımız argumanları parantez() icinde yazmalıyız. "D,E ve G" satırında şuan daha oğrenmediğimiz bir program kontrol deyimi kullandık bu ve bunun gibi daha bir cok program kontrol deyimini gelecek ay anlatacağım icin şimdi uzerinde durmuyorum "F" satırındaki komut programı sona erdirmeye yani kapatılmasını sağlıyor

Huseyin Biteker
Duzenleyen Baksana59
__________________