
Ayrıca değişken tanımlarken kullanılabilecek bir başka bildiri deyimide Def- bildiri deyimidir.Bu bildiri deyimi daha genel tanımlamalar yapmak için kullanılır..Def bildiri deyimleri aşagıda verilmiştir. Def bildiri deyimi projenin general,declarations bölümünde tanımlanmalıdır
DefBool : Boolean tipinde degişken tanımlamak için kullanırız.
DefByte : Byte tipinde degişken tanımlamak için kullanırız.
DefInt : Integer tipinde degişken tanımlamak için kullanırız.
DefLng : Long tipinde degişken tanımlamak için kullanırız.
DefCur : Currency tipinde degişken tanımlamak için kullanırız.
DefSng : Single tipinde degişken tanımlamak için kullanırız.
DefDbl : Double tipinde degişken tanımlamak için kullanırız.
DefDate : Date tipinde degişken tanımlamak için kullanırız.
DefStr : String tipinde degişken tanımlamak için kullanırız.
DefVar : Variant tipinde degişken tanımlamak için kullanırız.
Örnek :
Private Sub Form_Load()
Dim Ad As String
Dim Maas As Currency
Dim D_tarihi As Date
Dim Adres As String
Dim Sira As Integer
End Sub
Burada görmüş olduğunuz gibi 5 adet degişken tanımlanmaktadır.Ad değişkeni string tipinde bir değişkendir.Maaş değişkeni Currency tipinde bir değişkendir.D_tarihi değişkeni Date tipinde bir değişkendir.Adres değişkeni string tipinde bir değişkendir.Sira değişkeni integer tipinde bir değişkendir.
Aşagıdaki satırları formun general,declarations bölümüne yazalım.
Örnek :
DefInt A-C
DefStr S
DefVar K
DefDate D
DefSng V
Bu örnekte
A , B, C ile başlayan bütün karakterler Integer türünde olmak zorundadır.
D ile başlayan bütün karakterler Date türünde olmak zorundadır.
V ile başlayan bütün karakterler Single türünde olmak zorundadır.
K ile başlayan bütün karakterler Variant türünde olmak zorundadır.
S ile başlayan bütün karakterler String türünde olmak zorundadır.
Def deyimi dim deyiminden farklıdır. Def ile sadece bir harf yada harf aralıgı belirtilebilir.Burada belirtilen harf ile başlayan bütün değişkenler artık o bildiri deyimindeki tipdedir
Örnek :
Private Sub Form_Load()
Dim ad As String , soyad As String
Dim maas As Currency
End Sub