VB6 CommonDialog Nedir ve Nasıl Kullanılır

Merhaba arkadaşlar, bugünkü konumuzda sizlerle Commondialog‘ u kavramaya çalışacağız. İsmine aşine olmayan dostlarım, bu nesne doğrudan araç kutusundan yer almaz ve biz bunu birtakım işlemler sonucu araç kutumuza ekleyebiliriz. Sizler için bunu geniş geniş anlatacağım. Takıldığınız bir yer olursa konu altından yorum atabilirsiniz, burası yardımlaşma blogudur. 

CommonDialog Nedir?

CommonDialog, türkçe adıyla diyalog penceresi. Programın çalışır olduğu bölümde herhangi bir dosyayı kaydedebilir, açabilir veya bir yazıyı yazdırabiliriz. CommonDialog bu özelliklere yarıyor.

CommonDialog Kullanımları Nelerdir?

Hepsini değil fakat bize lazım olanları sizlere anlatacağım.

- CommonDialog ile resim açma.

- CommonDialog ile müzik açma.

- CommonDialog ile dosya uzantısı bulma.

CommonDialog Forma Nasıl Eklenir?

Formumuza doğrudan eklenmiyor demiştik.

Şimdi CTRL+ T tuşlarına basalım veya Project > Components.

commondialog kullanımı vb6

Microsoft Common Dialog Control 6.0 ‘ı işaretleyip Tamam diyelim.

commondialog kullanımı vbasic6

Araç kutusunun en altına bir nesne eklendi.

Çift tıklayıp formumuza yollayalım.

CommonDialog ile Resim Nasıl Açılır?

İlk önce formumuza birer tane;

• Picturebox
• CommonDialog
• CommandButton ekleyelim.

commondialog vb6 resim 1

Kod alanına geçelim ve kodları yapıştıralım.

Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo son
CommonDialog1.DialogTitle = “Resim Aç”
CommonDialog1.Filter = “Jpg Dosya(*.jpg)|*.jpg|Bütün Dosyalar(*.*)|*.*”
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
son:
End Sub

CommonDialog ile Müzik Nasıl Açılır?

İlk önce formumuza birer tane;

• Windows Media Player ( CTRL + T > WindowsMediaPlayer )
• CommandButton
• Commondialog ekleyelim.

commondialog-vb6-muzik-2

Kod alanına geçelim ve kodları yapıştıralım.

Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo son
CommonDialog1.DialogTitle = “Müzik Aç”
CommonDialog1.Filter = “mp3 dosyası(*.mp3)|*.mp3|avi dosyası(*.avi)|*.avi|mpg dosyası(*.mpg)|*.mpg|wmv dosyası(*.wmv)|*.wmv|wma dosyası(*.wma)|*.wma|Bütün dosyalar(*.*)|*.*”
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
son:
End Sub

CommonDialog ile Dosya Uzantısı Nasıl Bulunur?

İlk önce formumuza birer tane;

• CommonDialog
• Textbox
• CommandButton ekleyelim.

visual basic 6 commondialog

Kod alanına geçelim ve kodlarımızı yapıştıralım.

Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo son
CommonDialog1.DialogTitle = “Uzantı Bul”
CommonDialog1.Filter = “Tüm Dosyalar”
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
son:
End Sub

””””””””””””””””””””””””
CommonDialog konusunu geniş bir şekilde anlattım, umarım anlamışsınızdır. Kafanıza takılan yerleri konu altından yorum olarak bana sorabilirsiniz, hemen geri dönüş yapmaktayım. Okuduğunuz için teşekkür ederim.