Home, Forum diskusi, Chatting, Download

Kontrol Standard (bagian 5)

DriveListBox

DriveListBox dapat digunakan untuk menampilkan drive yang terdapat pada sistem komputer 

Mendapatkan Drive yang aktif di DriveListBox

Untuk mendapatkan drive yang aktif di DriveListBox, anda dapat menggunakan properti Drive.

DirListBox

DirListBox dapat digunakan untuk menampilkan folder-folder yang terdapat didrive yang aktif. 

Mendapatkan Path yang aktif pada DirListBox

Untuk mendapatkan Path yang sedang aktif pada DirListBox, anda dapat menggunakan properti Path.

FileListBox

DirListBox dapat digunakan untuk menampilkan file-file yang terdapat pada folder yang sedang aktif.

Membatasi file pada FileListBox

Untuk membatasi file berdasarkan nama file, anda dapat menggunakan properti Pattern, misalnya kalau file yang ingin ditampilkan hanya berupa file bitmap, maka kita dapat menggunakan (*.bmp), kalau file yang ingin ditampilkan berupa file grafik kita dapat menggunakan (*.bmp;*.jpg;*.gif;*.wmf;*.ico)

Untuk membatasi file berdasarkan attributnya, anda dapat menggunakan properti Archive, Hidden, Normal, ReadOnly dan System, dengan menentukan masing-masing menjadi True atau False.

Contoh :

MyFile.System = False

Menghubungkan DriveListBox, DirListBox, dan FileListBox

Misalnya kita memiliki tiga buah kontrol yaitu DriveListBox, DirListBox, dan FileListBox dimana perubahan pada DriveListBox akan menyebabkan preubahan tampilan pada DirListBox, dan FileListBox.

Maka Koding yang dapat dilakukan adalah sebagai berikut :

Private Sub MyDrive_Change()
MyDir.Path = MyDrive.Drive
End Sub

Private Sub MyDir_Change()
MyFile.Path = MyDir.Path
End Sub

Mencetak Isi Form ke Printer

Untuk mencetak isi Form ke Printer anda dapat menggunakan Metoda PrintForm pada object Form.

Contoh :

Private Sub Command1_Click()
Me.PrintForm
End Sub

Memahami Objek App

Objek App disediakan oleh Visual Basic library dan mewakili aplikasi yang sedang dijalankan. Objek App memiliki banyak properti dan metoda, yang tidak akan dibahas secara keseluruhan disini.

Mendapatkan Path dimana aplikasi berada

Salah satu masalah dalam pengaktifan file adalah menentukan path dimana file tersebut berada, sebagaimana kita ketahui, pada aplikasi Windows umumnya di instalasi pada folder Program Files, tetapi ketika kita mengembangkan program tersebut, tentu saja kita lakukan pada folder sendiri, sehingga kadang-kadang menjadi masalah ketika program tersebut didistribusikan. Untuk mendapatkan Path dimana aplikasi berada kita dapat menggunakan properti Path pada objek App

Contoh :

cFolder = App.Path
Open cFolder & "\Pegawai.Dat" For Random As #1 Len = Len(DatPegawai)

Dengan potongan program diatas, kita senantiasa yakin bahwa file Pegawai.Dat akan berada di Path yang sama dengan aplikasi.

Mendapatkan nama file Executable

Anda dapat menggunakan properti EXEname untuk mendapatkan nama file Executable anda.

Contoh :

Private Sub Form_Load()
If UCase$(App.ExeName) <> "INDOPROG" Then
   MsgBox "Anda tidak berhak mengganti nama program tanpa izin programmer"
   End
End If
End Sub

Memeriksa apakah aplikasi telah dijalankan

Kadang-kadang aplikasi kita hanya boleh dijalankan sekali pada komputer yang sama. Untuk memeriksa apakah instance yang sama dari aplikasi telah berjalan pada sistem, anda dapat menggunakan properti PrevInstance.

Contoh :

Private Sub Form_Load()
If App.PrevInstance Then
   MsgBox "Aplikasi yang sama telah aktif"
   End
End If
End Sub

Tidak menampilkan aplikasi pada task list ketika sedang berjalan

Anda dapat menggunakan properti TaskVisible untuk menentukan apakah aplikasi ditampikan di Task List ketika dijalankan. Jendela Task List akan dimunculkan ketika anda menekan Ctrl + Alt + Del.

Contoh :

Sub Main()
App.TaskVisible = False
End Sub

Sedangkan properti Title dapat digunakan untuk menentukan judul aplikasi pada Task List.

Contoh :

Sub Main()
App.Title = "Program Kwitansi Ver 1.0"
End Sub

atau anda dapat juga menentukannya pada saat design, pada menu Project Properties

Sedangkan properti seperti  Major, Minor, dan Revision mengembalikan informasi tentang versi dari aplikasi yang sedang dijalankan. Comments, CompanyName, FileDescription, LegalCopyright, LegalTrademarks, dan ProductName akan berguna ketika anda membuat Splash Screen ataupun dialog box About

Memahami Objek Screen

Pada contoh maupun latihan modul-modul sebelumnya kita banyak menggunakan Objek screen, terutama untuk mendapatkan Tinggi (Height) dan Lebar (Width) dari Layar komputer untuk menempatkan suatu Form ke posisi di Tengah layar. Contoh :

Contoh :

Sub Tengah(x)
x.Move (Screen.Width - x.Width) \ 2, _
       (Screen.Height - x.Height) \ 2
End Sub

Properti Height dan Width mengembalikan ukuran Tinggi dan Lebar layar dalam ukuran Twips, tetapi untuk fungsi-fungsi API kita membutuhkan ukuran dalam pixel. Untuk mendapatkan jumlah Twips per pixel kita dapat menggunakan properti TwipsPerPixelY dan TwipsPerPixelX.

Contoh :

'Mendapatkan ukuran tinggi dan lebar layar dalam Pixel
scrWidth = Screen.Width / Screen.TwipsPerPixelX
scrHeight = Screen.Height / Screen.TwipsPerPixelY

Dengan menggunakan objek Screen kita juga dapat memperoleh nama-nama font yang tersedia dilayar dengan menggunakan properti Font dan FontCount.

Contoh :

' Menggambil semua font pada objek Screen dan memasukkannya ke kontrol ListBox.
Dim i As Integer 
For i = 0 To Screen.FontCount - 1
    lstFonts.AddItem Screen.Fonts(i)
Next

Anda dapat juga mengubah mouse pointer dengan menggunakan properti MousePointer.

Contoh :

Screen.MousePointer = vbHourglass

Catatan : Efek mouse pointer hanya berlaku pada aplikasi anda.

Latihan 1, Membuat Picture Viewer

Latihan 2, Membuat Splash Screen

Latihan 3, Tantangan Penyempurnaan Program