Common Dialog (Filter Property)

Common Control adalah salah satu componen pendukung dari yang disediakan oleh Microsoft untuk Visual basic dengan file libbrary comdlg32.ocx. Tetapi kali ini saya tidak akan mengulas tentang bagaimana komponen tersebut, melainkan bagaimana cara menggunakan Common Dialaog dalam menampilkan file (show open).

Sebagai gambaran lihat contoh code berikut:

1.  Filter untuk menampilkan beberapa type file yang berbeda dalam satu pilihan filter.

Private Sub Command2_Click()
On Error GoTo errHand
cd1.CancelError = True
cd1.Filter = “All Supported Image (JPEG, Bitmap, GIF) | *.jpg; *.bmp; *.gif”
cd1.ShowOpen
Text1(0).Text = cd1.FileName
errHand:
If Not Err.number = 0 Then
End If
End Sub

2.  Filter untuk menampilkan beberapa type file yang berbeda dalam beberapa pilihan filter.

Private Sub Command2_Click()
On Error GoTo errHand
cd1.CancelError = True
cd1.Filter = “JPEG File | *.jpg |Bitmap File | *.bmp |GIF File |*.gif”
cd1.ShowOpen
Text1(0).Text = cd1.FileName
errHand:
If Not Err.number = 0 Then
End If
End Sub

Pada intinya untuk melakukan filter terhadap file yang akan ditampilkan format penulisan filternya adalah :

cd1.filter = “File Type Description|Variable”

Variable adalah extensi dari type file yang akan di buka dengan sparator ; untuk pemisah dalam satu filter dan | untuk sparator antar filter.