Cara Sederhana Mendeteksi Perubahan Resolusi Layar (Screen) dengan Menggunakan Kontrol SysInfo di VB6

Kontrol Sysinfo merupakan sebuah kontrol yang dapat memberikan informasi,  misalnya Mendeteksi Perubahan Resolusi Layar (Screen) atau memberikan informasi tentang sistem operasi yang dipakai.

Kontrol ini terdapat dalam Microsoft sysInfo  Control 6.0.

Bagaimana kita mengetahui perubahan resolusi screen dengan hanya menggunakan beberapa baris kode saja? Mendeteksi Current OS (operating system yang sedang digunakan), mendeteksi Plug n Play Device (external hardisk, flashdisc, webcam, dll), screen client area, perubahan konfigurasi system, mendeteksi perubahan waktu, dan sebagainya?. 

Untuk keperluan yang telah dijelaskan di atas, kita bisa menggunakan SysInfo.OCX (Microsoft SysInfo Control 6.0). Sysinfo seakan-akan sesuatu yang mutlak diperlukan dalam membuat sebuah aplikasi yang baik. Mengapa demikian?

Di bawah ini merupakan contoh sederhananya:

1. Buka form VB 6.0 anda
2. Tambahkan 1 CheckBox, 1 Iamge,1 Timer dan 1 Kontrol SysInfo
3. Untuk menambahkan Kontrol SysInfo pada form tekan CTRL+T dan cari Microsoft SysInfo Control 6.0 dan Apply OK
4. Kemudian tanamkan Microsoft SysInfo control 6.0 di form
5. Berikut adalah desain form yang akan kita susun :

Form Desain

Kemudian ketik kode dibawah ini :

Option Explicit

Private Sub Form_Resize()

On Error Resume Next

With Form3

.Left = 0

.Top = 0

.Height = (Screen.Height * 0.5)

.Width = (Screen.Width * 0.5)

End With

With Image1

.Left = (Me.ScaleWidth * 0.58)

.Top = (Me.ScaleHeight * 0.68)

.Width = (Me.ScaleWidth * 0.2)

.Height = (Me.ScaleHeight * 0.1)

End With

End Sub

Private Sub SysInfo1_DisplayChanged()

If Check1.Value = vbChecked Then Exit Sub

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Form_Resize

Timer1.Enabled = False

End Sub

Jalankan program Anda dan  hasilkan akan seperti gambar dibvawah ini dengan resolusi yang beda :

Hasil Reolusi

Selain Sysinfo.OCX yang dibuat oleh Microsoft, Anda bisa juga menggunakan SysInfo yang dibuat oleh Karl E. Peterson, dan menurut saya ini lebih baik. Terakhir, mengapa SysInfo yang dibuat Karl E. Peterson saya anggap lebih baik?

Related Post: Tools