Visual Basic Ufak Yararlı Kodlar

Avi Dosyalarının Açılması

Avi Dosyalarının Açılması
Arkadaşlar bu yazımda sizlere avi dosyalarını nasıl izleyebileceğimizi anlatacağım.Tabii bu işlemin visual basic de yapılışını anlatacağım.

İlk olarak formumuza Frame nesnesi ve bir tane textbox ekliyoruz.Daha sonra da aşağıdaki kodları Formumuza yazıyoruz.

Private Sub Form_Load()
MMControl1.DeviceType = "AVIVideo"
MMControl1.Filename = "c:deneme.avi"
MMControl1.Command = "Open"
MMControl1.hWndDisplay = Frame1.hWnd
Text1.Text = MMControl1.Length
End Sub

Videonun gösterileceği alan hWndDisplay özelliği ile seçilmektedir.Video dosyalarını Frame nesnesi sınırları içinde görüntülediğiniz gibi PictureBox nesnesi içinde veya formun üzerinde de görüntüleyebilirsiniz.Ayrıca filmin uzunluğu Textbox da görülecektir.

Wav Dosyasının Çalınması

Wav Dosyasının Çalınması
1.Öncelikle formumuza MultiMedia nesnesi ekliyoruz.Ve MultiMedia nesnesinin Visible özelliğini False yapıyoruz.(çalışma anında görünmesini engellemek için)
2.Formumuza bir tane Commandbutton ekliyoruz.
3.CommandButton un click olayına aşağıdaki kodları yazıyoruz.

Private Sub CommandButton1_Click()
MMControl1.DeviceType = "WaveAudio"
MMControl1.Filename = "c:deneme.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub

4.Daha sonra Bir commandbutton daha ekliyoruz ve aşağıdaki kodları commandbutton un click olayına yazıyoruz.

Private Sub CommandButton2_Click()
MMControl1.Command = "close"
CommandButton2.Enabled = True
CommandButton1.Enabled = False
End Sub

Listbox ı Access Veritabanına Bağlama

On Error GoTo Hata_Kontrol

Dim DB as Database
Dim Kayitlar as Recordset
Dim X as Long, record_count as Long

'Veritabanini açalim

Set DB = OpenDatabase("Ogrenci.mdb", dbOpenSnapshot)
Set Kayitlar = DB.OpenRecordset("Ogrenciler")

' Dikkat ederseniz aşağıda da yapılan işlem önce veritabanının sonuna gitmek, RecordCount değerini
' öğrenmek ve sonra tekrar veritabanı başına dönmektir. Veritabanı sonuna gitmeden kaç adet kayıt
' olduğunu öğrenemezsiniz.

Kayıtlar.MoveLast
X = Kayitlar.RecordCount
Kayitlar.MoveFirst

' Listbox içine adları yerleştirelim.
' Ilk kayıta geldikten sonra artık sırayla ögrenci adlarını listbox içine alabiliriz

Do
List1.AddItem Kayitlar!OgrenciAdi
Y = Y + 1
Kayitlar.MoveNext
Loop Until Y = X ' X = Recordcount, yani son kayit

Hata_Kontrol:
Select Case (Err)
Case 3021 ' Kayit yok
record_count = 0 'Kayit yoksa degeri 0 a esitleyelim.
Exit Sub
List1.Refresh
End Select