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
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
TransX1.Transparan Me.hWnd, HScroll1.Value, True
End Sub
Kita running, dan kita coba opacity nya dengan menggeserkan HScroll, hasilnya seperti gambar berikut
Selamat mencoba !
No comments:
Post a Comment