Bunlardan 1 cisinin yandaki ozellikleri belirtilen şekilde degiştiriniz. Name
pen Caption : open 2 cisinin Name:exit Caption : exit yapınız.
3 cusunun Name
lay Caption : play yapınız.Form uzerine bir adet'te Commondialog yerleştirin ve Name:Cdialog1 yapınız.
Formun en altına bir Textbox yerleştirin ve text ozelligini boş bırakınız.
Daha sonra kod penceresindenGeneral Declarationsalanına aşagıdaki kodu girin.
Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long Dim SoundBuffer As Long
Butonların click eventlerinede aşagıdaki kodu giriniz.
Private Sub play_Click()
If CDialog1.filename "" Then
SoundBuffer = sndPlaySound(CDialog1.filename, &H2)
If SoundBuffer 1 Then
MsgBox "File doesn't play.", , "Error"
End If
Else CDialog1.ShowOpen
Text1.Text = CDialog1.filename
End If
End Sub
Private Sub open_Click()
CDialog1.ShowOpen
Text1.Text = CDialog1.filename
End Sub
Private Sub exit_Click()
End
End Sub
Artık programımız calışmaya hazırdır. Şimdi API kullanımını biraz anlatmaya calışalım.
Aşagıdaki API Winmm.dll dosyasında bulunan bir fonksiyondur. Declare deyimi ile biz bu fonksiyonu programımızda kullanacagımızı belirtiyoruz. sndPlaySound bizim kullanacagımız fonksiyonun adıdır.
Lib "xxxx" alanı ise bu fonksiyonun kayıltı oldugu library'nin ismidir. Alias alanı ise bu fonksiyonun lib deki takma adıdır. Daha sonra gelen parantez icindeki alanlar ise bu fonksiyona gecilecek olan parametrelerdir. Parantezden sonraki ifade ise fonksiyonun geriye ne tip değer dondurecegini belirten bir parametredir.
Herhangi bir API kullanmak istersek bunu mutlaka Declare deyimi ile programda tanımlamalıyız.
Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
API kullanımı ile ilerliyen haftalarda bir ders anlatılacagı icin burada fazla uzerinde durmuyoruz.
CommonDialog kullanılması icin ise form uzerine bir commondialog nesnesini yerleştirmemiz gerekiyor.Program calıştırılınca CommonDialog penceresi form uzerinde gozukmez. Biz istedigimiz zaman gosterebiliriz. CommonDialog nesnesi uzerinde aşagıdaki işlemlerden birini uygulayabiliriz.
Cdialog1.Showopen : Bu ozellik ile kullanıcıdan acılmak uzere bir dosya secmesini saglayabiliriz.
Cdialog1.Showsave : Bu ozellik ile kullanıcıdan herhangi bilgilerin kaydedilebilecegi bir dosya secmesini saglayabiliriz. Cdialog1.Showcolor: Bu şekilde kullanıcı onune renk paletini getirerek kullanıcının bir renk belirtmesini sağlayabiliriz. Cdialog1.Showfont : Bu ifade ile ise kullanıcıdan sistemde yuklu herhangi bir font ozelligini secmesini sağlayabiliriz. Cdialog1.ShowPrinter : Bununlada kullanıcının yuklu olan printerlardan birini secmesini sağlayabiliriz.
__________________