API - Uygulama Programlama Arabirimi
Api fonksiyonları DLL uzantılı Dynamic Link Libraries dosyalarından çağrılır. Fonksiyon olarak tanımlanan API'lerden geriye bir değer döner. Altprogram olarak tanımlananlardan bir değer geri dönmez. Form yada modüllerin (General) (Declaration) kısmında tanımlanırlar.
(General)Declerations)
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" _
(ByVal hwnd As Long, ByVal baslik As String) As Long
Private Sub Command1_Click()
SetWindowText Form1.hwnd, "Yeni Başlık"
End Sub
Alt program olarak API tanımı:
Private/Public Declare Sub isim Lib "LibName" [parametreler]
Fonksiyon program olarak API tanımı:
Private/Public Declare Function isim Lib libname [parametreler] [As tip]
API doğru olarak tanımlandığı halde ilgili dosyada böyle bir API bulunmadığı mesajı alınıyorsa veya API ile aynı isme sahip bir VB komutu var ise bu durumda API isminin sonuna “A” ekleyerek Alias isimi kullanılır. Bunun sebebi Windows işletim sistemi farklı dilleri desteklemektedir. ANSI karakter setini destekleyen ülkeler için sonuna A harfi, UniCode veya iki karekter genişliğini kullanan ülke seti için ise sonuna W harfi eklemeniz gerekir.
Private/Public Declare Function/Sub isim Lib libname Alias "isim" [Parametreler] [As tip]
Alias kullanımı
Tanımlanacak bir yordama DLL kütüphanesi içindeki tanımından farklı bir isim verilmek istendiğinde yordamın DLL kütüphanesi içindeki adı Alias kısmında verilir.
(General)(Declaration)
Private Declare Function WindowsDiziniGoster Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Command1_Click()
Dim n As Integer
Dim str As String
str = Space$(100)
n = WindowsDiziniGoster(str, 100)
Label1.Caption = Left$(str, n)
End Sub
Api fonksiyonları DLL uzantılı Dynamic Link Libraries dosyalarından çağrılır. Fonksiyon olarak tanımlanan API'lerden geriye bir değer döner. Altprogram olarak tanımlananlardan bir değer geri dönmez. Form yada modüllerin (General) (Declaration) kısmında tanımlanırlar.
(General)Declerations)
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" _
(ByVal hwnd As Long, ByVal baslik As String) As Long
Private Sub Command1_Click()
SetWindowText Form1.hwnd, "Yeni Başlık"
End Sub
Alt program olarak API tanımı:
Private/Public Declare Sub isim Lib "LibName" [parametreler]
Fonksiyon program olarak API tanımı:
Private/Public Declare Function isim Lib libname [parametreler] [As tip]
API doğru olarak tanımlandığı halde ilgili dosyada böyle bir API bulunmadığı mesajı alınıyorsa veya API ile aynı isme sahip bir VB komutu var ise bu durumda API isminin sonuna “A” ekleyerek Alias isimi kullanılır. Bunun sebebi Windows işletim sistemi farklı dilleri desteklemektedir. ANSI karakter setini destekleyen ülkeler için sonuna A harfi, UniCode veya iki karekter genişliğini kullanan ülke seti için ise sonuna W harfi eklemeniz gerekir.
Private/Public Declare Function/Sub isim Lib libname Alias "isim" [Parametreler] [As tip]
Alias kullanımı
Tanımlanacak bir yordama DLL kütüphanesi içindeki tanımından farklı bir isim verilmek istendiğinde yordamın DLL kütüphanesi içindeki adı Alias kısmında verilir.
(General)(Declaration)
Private Declare Function WindowsDiziniGoster Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Command1_Click()
Dim n As Integer
Dim str As String
str = Space$(100)
n = WindowsDiziniGoster(str, 100)
Label1.Caption = Left$(str, n)
End Sub
