Wednesday, 15 December 2010

Membuat Form Transparan

Sebuah Aplikasi selain dapat bekerja sesuai dengan fungsinya tentunya dituntut suatu keindahan diantaranya tampilan yang transparan.Sebuah form yang transparan dengan opaciti 0 – 100% tidak perlu mengunakan VB Net, dengan VB6 pun sudah bisa dengan bantuan file ActiveX yang sudah saya buat terlebih dahulu, oleh karena itu download dulu file TransX.ocx disini, ukurannya kecil sekali hanya sekitar 24 KB. Setelah file tersebut berhasil di download, copy kan ke c:windowssystem32 kemudian instalkan dengan cara klik Start -> Run pada kotak isian ketiklah regsvr32 “c:windowsSistem32TransX.ocx” kemudian klik OK akan tampil message seperti ini
Klik ok
Cara menggunakan file ActiveX TransX.ocx
Klik kanan toolbox kemudian pilih component
Ceklist TransZ, klik Aply
Tempelkan ActiveX tersebut pada form dengan cara double klik, maka pada from akan ada objek TransX1
Cara mengetes cara kerja ActiveX TransX.ocx, tempelkan objek HScroll,TextBox, dan Image pada form misalnya object tersebut bernama HScroll1. Atur porpertis HScroll1 sebagai berikut
Min = 0
Max = 100
Value = 100
Pada objext text1, atur text= 100
Pada Image tambahkan picture apa saja terserah anda, sehingga tampilan kira-kira seperti ini
Tahap akhir, menuliskan coding
Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
TransX1.Transparan Me.hWnd, HScroll1.Value, True
End Sub
Kita running, dan kita coba opacity nya dengan menggeserkan HScroll, hasilnya seperti gambar berikut
Opacity 100 %
Opacity 100 %
Opacity 80 %
Opacity 80 %
Opacity 60 %
Opacity 60 %
Opacity 50 %
Opacity 50 %
Opacity 30 %
Opacity 30 %
Selamat mencoba !

No comments:

Post a Comment