[IMG]file:///C:/DOCUME%7E1/ahmetcan/LOCALS%7E1/Temp/moz-screenshot.jpg[/IMG][IMG]file:///C:/DOCUME%7E1/ahmetcan/LOCALS%7E1/Temp/moz-screenshot-1.jpg[/IMG][IMG]file:///C:/DOCUME%7E1/ahmetcan/LOCALS%7E1/Temp/moz-screenshot-2.jpg[/IMG]1- RaiseEvent
2- Redim
3- Rem
4- Reset
5- Resume
6- RmDir
7- Rset
8- SavePicture
9- SaveSetting

Yukarıdaki Visual Basic 6 . 0 komutlarının açıklamaları ve kod örnekleri:

RaiseEvent event_name (arglist)

RaiseEvent ifadesi bir sınıf modülü.ActiveX denetimi veya form içinden özgün bir olayı ateşler. event_name olayın ismidir, bu olayın ev sahibi uygulamadaki yöneticisi ise bileşenin isminin sonuna bir alt çizgi karakteri ve olay ismi eklenerek isimlendirilmelidir.Olayın isminin modülün başına yerleştirilmiş olan Event ile örtüşmesi gerekir.

Özgün bir ActiveX denetimi oluşturur ve bir Selected olayı ateşlemesini isterseniz, ev sahibi uygulamanın (form üzerindeki denetimin isminin Control1 olduğunu varsayarsak) Control1_Selected olay yöneticisini sunması gerekir.Selected olayının ismi editörün Events açılır listesinde, Object listesinden Control1’i seçtiğinizde otomatik olarak görülür.

Olayın ismini izleyen bir parantez çifti içinde, bu olay ateşlendiği zaman (Visual Basic’in olay yöneticisine geçeceği) argüman listesini sunmanız gerekir.Selected olayının bir karakter katarı ve bir indeks değeri bildirmesi gerekiyorsa bu olayı aşağıdaki örnektede görebiliriz:


RaiseEvent Selected (Names (i) , i )


Burada Names özgün denetim üzerinde seçilebilecek olan değerleri içeren bir karakter katarı dizisidir.Olayın ev sahibi uygulamadaki yöneticisine geçtiğiniz değerlerin , olayın tanımındaki argümanlara uyması gerekir.Olay yöneticisine herhangi bir değer bildirmiyorsa, parantezler kullanılmaz.

RaiseEvent ifadesi bileşen kodu içinde herhangi bir yerde, bir olay çıkartmak için kullanılabilir.Örneğin onu UserControl nesnesinin Click olayından veya uygun bir denetimin DplClick olayından çağırabilirsiniz.
Hatta bir olayı belirli bir denetim odağa sahip olduğu sırada belirli bir tuşa basıldığında bile çıkartabilirsiniz.Visual Basic tarafından algılanabilen bütün eylemler, olayın ismi bir Event ifadesi ile deklare edildiği sürece özgün olayların birer tetikçisi olarak kullanılabilir.


Bir olay çıkartmak için özgün bileşeninizin kodunda yer vermeniz gereken kod yer alıyor :

Public Event Selected (ByVal SelItem As String , Byval SelIndex As Long)

Private Sub UserControl_DblClick ( )

{ statements }

RaiseEvent Selected (Names (i) , i )

{ more statements }

End Sub

Ev sahibi uygulamanın Selected olayı için bir yönetici sunması gerekir.Form üzerindeki denetimin isminin DeluxeList olduğunu varsayarsak, aşağıda bu denetimin Selected olayı için örnek bir yönetici görebilirsiniz:

Private Sub DeluxeList_Selected (ByVal SelItem As String, _ ByVal SelIndex As Long)

MsgBox “You have selected the “ & SelIndex & “th item in the list” & _

vbCrLf & “The selected item’s text is “ & SelItem

End Sub

Aynı teknikler sınıf bileşenleri için de geçerlidir.Ancak ev sahibi uygulamada bu sınıfı temsil etmek üzere bir nesne değişkeni deklare ettiğinizde, aşağıda görüldüğü gibi WithEvents anahtar kelimesini kullanmanız gerekir:



Private WithEvents MyCalc As Calculator.Matrix

Calculator.Matrix kodunuzun MyCalc nesene değişkeni aracılığı ile temas kurabileceği sınıfın ID’sidir.WithEvents anahtar kelimesini ihmal etmiş olsaydınız, ev sahibi uygulamada bu sınıf tarafından çıkartılan olayları alamazdı.

ReDim [Preverse] array_name [As array_type]

ReDim deyimi,dinamik bir dizinin boyutlarını değiştirir.Dinamik dizinlerin isimlerini izleyen bir çift parantezle ve boyut belirtilmeden deklare edilmeleri gerekir:

Dim DynArray( ) As Long

Daha sonra,kodunuzda bu dizinin boyunu ReDim deyimi ile değiştirebilirsiniz:


ReDim DynArray( 100 )

ReDim deyimi herhangi bir veri tipi gerektirmez,çünkü zaten tipini değiştiremezsiniz.Orijinal tip Variant olduğunda, bu dizinin boyutunu ilk kez değiştirdiğiniz sırada tipini değiştirmeye yetkiniz vardır.Diyelim ki aşağıdaki ifade ile varyantlardan oluşan dinamik bir dizi deklare ettiniz:

Dim Varray ()

Aşağıdaki ifade çalıştırıldıktan sonra bu dizi tipini değiştiremez.

ReDim Varray (100) As Long

Bir dinamik dizinin tipine ek olarak boyutunuda değiştirebilirsiniz.

ReDim DynArray (9, 9, 9)


Bu dizinin boyu ilk kez değiştirildikten sonra boyutlarının sayısı bir daha değişemez.Üç boyutlu bir dizi olarak kalmalıdır.Başka bir ReDim deyimi ile sınırlarını değiştirebilirsiniz:


ReDim DynArray (20, 20, 20)

Bu ReDim deyimini her çalıştırmanızda dizi içinde mevcut olan bütün değerler kaybolur.Visual Basic bu elementlerin değerlerini yeni deklare edilmişler gibi sınıflanır.Varyantlar Empty, nümerik tipler 0 ve karakter katarları da sıfır uzunlukta karakter katarları “” olarak sıfırlanır.Bir dizinin boyunu verilerini kaybetmeden değiştirmekte mümkündür.Preverse anahtar kelimesi Visual Basic’e bu dizinin boyunu mevcut verileri göz ardı etmeden değiştirmesini bildirir.Örneğin mevcut elementlerinin değerlerini kaybetmeden bir diziyi bir eleman büyütebilirsiniz.Bu işi aşağıdaki kodda görüldüğü gibi UBound() fonksiyonu ile yapabilirsiniz:

ReDim Preverse DynArray (UBound ( DynArray ) + 1 )

Rem

Bu ifade genellikle hatırlatmalar içeren bir kod satırının başında yer alır.Rem ifadesinin sağında kalan her şey derleyici tarafından göz ardı edilir.Rem ifadesinin yerini ‘ karakteri almıştır.


Kod Örnekleri :

‘ Now set up array Score ( 1 ) = 45: Score ( 2 ) = 41 : Score ( 3 ) = 54

‘ and calculate averages

For i = 1 To 30 ‘ This loop scans all the elements of the array

Total = total + Score ( i )

Next

Rem anahtar kelimesi bir satırdaki başka ifadelerin ardında yer alırsa bunun ifadelerden ( : ) işareti ayrılması gerekir. Rem ifadesini For ifadesinden sonra bir yorum eklemek amacı ile kullanmak için ,aşağıdaki söz dizimini kullanmalısınız:

For i = 1 To 30: REM This Loop Scans all the elements of_the array

RESET

Reset ifadesi Open ifadesiyle açılmış olan bütün dosyaları kapatır.

Resume İfadesi

Bir hata oluştuktan sonra işleyişi yordam içinde belirli bir yere yönlendirir.Resume ifadesinin üç biçimi vardır:

· Resume
· Resume Next
· Resume Label


Resume ifadesinin kendi başına kullanılması denetimi hataya neden olan ifadeye geri döndürür.Hata yöneticiniz bu hataya neden olan problemi düzeltiyorsa ve problemle karşılaşılan yerden devam etmek için Resume ifadesi tek başına kullanılmalıdır.


Sub CopyToFloppy ( strFile As String )

Dim strDest As String

‘ Set the error trap

On Error GoTo HandleError

‘ Construct destination file path

strDest = “a: \ “ & TrimDirectory( strFile )

‘ Delete file from the floppy

Kill strDest

‘ Attempt to copy the file

FileCopy strFile , strDest

ExitHere.

Exit Sub

HandleError:

Select Case Err.Number

Case 71 ‘ Drive not ready

If MsgBox ( “Please place a floppy disk in the “ & _

“ drive. “, vbExclamation + vbOKCancel , “Load Diskette”) = _

vbOK Then

Resume

Case Else

MsgBox Err.Description, vbExclamation, “Error “ & Err.Number & _

“ in CopyToFloppy”

End Select
Resume ExitHere
End Sub


Hata yöneticisi 71 numaralı hatayı bulursa, kullanıcıya disket sürücüsüne bir disket yerleştirmesini bildiren bir talimat görüntüler.yukarıdaki örnekte iletişim kutusunun OK ve CANCEL düğmeleri vardır.Kullanıcı OK düğmesini tıklarsa hata yöneticis VBA’e FileCopy ifadesini tekrar denemesini bildiren bir komut verir.Problem bununla çözülmediği takdirde ilk ifade tekrar başarısız olacağı için sonsuz bir döngü başlar. CANCEL düğmesi bu noktada kullanılır.Bu düğmenin tıklanması yordamı bitirir.

Resume Next Bir hata durumunu düzeltemezseniz, ( Bu hata kritik değilse ve yordamın sonucunu da etkilemiyorsa ) Resume Next ifadesini kullanabilirsiniz.Resume Next VBA’e hataya neden olan satırı izleyen kod satırını çalıştırmasını bildirir.CopyToFloppy yordamı son derece basittir ve çalıştırılacak başka ifadeler içermez.

Resume Label ifadesini hataya neden olan veya bunu izleyen satırdan başka bir satıra geri dönmek için kullanılır.Resume Label Go To ifadesine benzer, ancak onu sadece bir hata yöneticisi içinde kullanabilirsiniz.


RmDir path


RmDir ifadesi, path argümanı ile belirtilen bir dizini siler.Bu argüman joker karakter içeremez.Söz konusu dizinin boş olması gerekir;aksi taktirde bir çalışma kipi hatası oluşur.Dosyalar içeren bir klasörü silmek için, ilk önce Kill ifadesini kullanarak dosyaları silin.Ayrıca belirli bir dizini silmek için, alt dizini varsa önce bunları silmeniz gerekir.Aşağıdaki ifade bir hata mesajına neden olur:

RmDir “C: \Users”

İlk önce “New User” alt klasörünü, daha sonra bunun üst klasörünü silmeniz gerekir:

RmDir “C: \Users\New User”


RmDir “C: \Users”


LSet StringVar = string ve RSet stringVar = string


Bu iki ifade bir karakter katarını bir karakter katarı değişkeni içinde sola veya sağa hizalar.Bu karakter katarı değişkeni sabit uzunlukta bir karakter katarı olarak gerektiği gibi ilk kullanıma hazırlanabilir.

Private LName As String * 20
Private FName As String * 12

Bu karakterlere bir karakter değeri atamak isterseniz, karakterler bu değişken içinde sola hizalanır.

Rset LName = “Mızrak”
Lset FName = “Yasemin”
Debug.Print “ [“ & LName & “ , “ & FName & “]”

Bu ifadeler Immediate penceresine aşağıdaki ibareyi yazar:

[ Mızrak , Yasemin ]

Soyad 20 karakterden oluşan bir karakter katarı içinde sağa, isim de 12 karakterden oluşan bir karakter katarı içinde sola hizalanmıştır.Yukarıdaki gibi birden fazla karakter katarı oluşarak onları alt alta yerleştirildiğinde Courier gibi eş boşluklu bir fon kullanılmadığı sürece virgüller alt alta gelmez.

LSet ve RSet ifadeleri nümerik değerlerde de kullanılabilir.Bir numara listesini sağa hizalamak isterseniz, onları RSet deyimi ile sabit uzunluklu bir karakter katarına kopyalayın ve basın.Aşağıdaki örneğin ilk satırı Fstring değişkenini ilk kullanıma hazırlar ve içinde çıktı değerlerinin hizalanacağı değişkenin uzunluğunu ayarlar.


FString = “1234567.00”
RSet FString = 34 . 56
Debug . Print FString
RSet FString = 4356 . 99
Debug . Print FString
RSet FString = 4 . 01
Debug . Print FString


Yukarıdaki ifadeler Immediate penceresinde aşağıdaki çıktıyı üretir:

34 . 56
4356 . 99
4 . 01


SavePicture Picture, file_name

Bu ifade bir grafik veya form üzerindeki bir resmi, diskteki bir dosyaya kaydeder.Picture argümanı resim görüntüleyebilen bir denetimin Picture veya Image özelliğidir.Bu ifade genellikle PictureBox denetimi ve formlarla kullanılır.İkinci argüman olan file_name bu bitmap görüntünün saklanacağı bir dosyanın ismidir.SavePicture yöntemi sıkıştırılmamış bir BMP dosyası oluşturur ve bu dosyanın uzantısının da BMP olması gerekir.Denetimin resmi, tasarım kipinde LoadPicture() fonksiyonu ile yüklenmiş bir GIF görüntüsü olsa bile yine de bu kural geçerlidir.Aynı zamanda sadece denetimin AutoRedraw özelliğinin değeri True olduğu sırada çizilen öğeler bu Bitmap dosyaya kaydedilecektir.AutoRedraw özelliğinin değeri False olduğu sırada denetime yerleştirilen hiçbir şekil kaydedilemez.Diyelim ki üzerinede bir PictureBox denetimi bulunan bir formumuz var.Bu denetime bir resim yükleyebilir ve/veya denetimin çizim yöntemlerini kullanarak üzerine şekiller çizebilirsiniz.Bu denetim üzerindeki Bitmap görüntüyü yöntemini SavePicture kullanarak aşağıdaki satırla kaydedebilirsiniz:

SavePicture Picture1.Image, “c : counter.bmp”


Aşağıdaki satırlar bir sayaç oluşturur.Program bu sayacın Bitmap görüntüsünü oluşturarak diskteki bir dosyaya kaydeder.Daha sonra


Private Sub Command1_Click ( )

SetBackground Picture1 . Currentx = 60
Picture1 . CurrentY = 0
Picture1 . ForeColor = RGB ( 255 , 0 , 0 )
Picture1 . Font . Name = “Comic Sans MS”
Picture1 . Font . Sıze = 24
Picture1 . Print “ACME Inc.”
Picture1 . Print “Vistor # 3999”
SavePicture Picture1 . Image, “c: \ counter.bmp”

End Sub


Kod içinde doğrudan yazılmış olan 3,999 değerini değiştirebilirsiniz. SetBackground() alt rutini denetimin arla planına kademeli bir geçiş çizer.Aynı zamanda PictureBox denetiminin AutoRedraw özelliğinin True olması gereklidir.Ziyaretçi sayısını basan satırın önüne aşağıdaki satırı da ekleyebiliriz:


Picture1 . AutoRedraw = False

Bu satırları tekrar çalıştırarak Counter.bmp dosyasını açarsanız denetim üzerine AutoRedraw özelliğinin değeri False olduğu sırada yerleştirilen son satır hariç düzgün bir arka planı ve metni olduğunu görürsünüz.


SaveSetting appname, section, key, setting

Bu , Registry’e yeni bir ayarı kaydeden veya mevcut bir ayarı güncelleyen bir ifadedir.Appname argümanı söz konusu bilgileri Registry’e kaydeden uygulamanın adıdır.Bunu uygulamanın asıl ismi olması şart değildir;uygulamanıza özgü olduğu ve GetSetting() fonksiyon ile Registry’den aynı ayarı okuduğunuz sırada yine bu karakter katarını kullandığınız sürece sizin belirteceğiniz herhangi bir karakter katarı olabilir. Section argümanı içine anahtar değerinin kaydedileceği, uygulamanın dalının altındaki kısmın ismidir.Key argümanı ise kaydedilecek olan anahtar ayarının ismidir.Son argüman olan setting kaydedilecek olan bu anahtarın değeridir.Bu ayar herhangi bir nedenle kaydedilemezse, yakalanabilir bir çalışma kipi hatası oluşur.Aşağıdaki ifadeler Registry içinde bir uygulamanın Startup dalı altındaki kısmına “Left” ve “Top” anahtarlarını kaydeder:

SaveSetting “MyApp” , “Startup” , “Top” , Me.Top

SaveSetting “MyApp” , “Startup” , “Left” , Me.Left

Bu değerlerin uygulama bittiğinde Registry’e kaydedilmesi ve çalışmaya başladığında da formu masa üstünde yerleştirmek için okunması gerekir.

Seek #file_number, record_number

Rasgele erişimli dosyaların işlemesindeki önemli bir kavram da etkin kayıttır.Visual Basic açık bütün rasgele erişimli dosyaların etkin kaydına bir işaretçi tutar.Bir kaydı okuduğunuz veya bir dosyaya kaydettiğinizde bu işaretçinin değeri bir sonraki kaydı gösterecek biçimde bir arttırılır.Kayıt sayısı diske kaydedilmez.Bütün kayıtlar aynı uzunlukta olduğu için, işletim sistemi bütün kayıtların nerede başlayacağını hesaplayabilir ve ilgili byte’a hemen geçebilir.

Visual Basic rasgele erişimli bir dosyadaki herhangi bir kayda gitmenizi sağlayan Seek ifadesi ile etkin kaydın numarasını döndüren Loc() fonksiyonunu sunar.Başka bir deyişle Seek ifadesi kayıt işaretçisini kullanırken Loc() fonksiyonu sadece bu değeri okur.

Record_number argümanı gitmek istediğiniz kaydın numarasıdır.Seek ifadesi bir kaydı içeriğine göre bulamaz.Bu daha çok bir dizi elementine indeksi ile erişmeye benzer.