Form Transparan

Form Transparan

  1. Buka VB(visual basic) dengan form baru

  2. Ubah propertis BackColor form dengan warna biru, BorderStyle form menjadi 0-None. Masukan gambar pada Picture form sesuai selera

  3. Tambahkan modul dalam project, kemudian ketiklah perintah di bawah ini

Option Explicit

Public Const LWA_COLORKEY = 1

Public Const LWA_ALPHA = 2

Public Const LWA_BOTH = 3

Public Const WS_EX_LAYERED = &H80000

Public Const GWL_EXSTYLE = -20

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal warna As Long, ByVal X As Byte, ByVal alpha As Long) As Boolean

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Sub SetTransparan(frm As Long, warna As Long, nTrans As Integer, flag As Byte)

On Error GoTo Err

Dim attrib As Long

attrib = GetWindowLong(frm, GWL_EXSTYLE)

SetWindowLong frm, GWL_EXSTYLE, attrib Or WS_EX_LAYERED

SetLayeredWindowAttributes frm, warna, nTrans, flag

Exit Sub

Err:

MsgBox Err.Description & " Source : " & Err.Source

End Sub

  1. Kembali ke form desain, klik ganda pada area form. Ubahlah prosedur Form_Load menjadi Form_Active. Ketiklah perintah dibawah ini pada bagian General dan Form_Active.

Option Explicit

Dim color As Long, flag As Byte

Private Sub Form_Activate()

On Error GoTo Err

color = vbBlue

flag = flag Or LWA_COLORKEY

SetTransparan Form1.hwnd, color, 0, flag

Exit Sub

Err: MsgBox Err.Description & " Source : " & Err.Source

End Sub


  1. Tekan F5 untuk melihat hasilnya.

Komentar

Posting Komentar

Silahkan tinggalkan komentar anda di sini...
makasih ya uda kasih komentar...
sering - sering maen sini ya...
No SaRa, No PoLiTiCs, No SPaMMiNG!!!

Postingan populer dari blog ini

PEDOMAN DAN INSTRUMEN PENILAIAN KINERJA KEPALA SEKOLAH

PEDOMAN DAN INSTRUMEN PENILAIAN KINERJA KEPALA SEKOLAH DI LINGKUNGAN PEMERINTAH KABUPATEN KEBUMEN I. PENDAHULUAN A. DASAR 1. Undang-Undang Nomor 43 Tahun 1999 tentang Perubahan Atas Undang-Undang Nomor 8 Tahun 1974 tentang Pokok Pokok Kepegawaian ; 2. Undang-Undang Nomor 20 Tahun 2003 Tentang Sistem Pendidikan Nasional; 3. Undang-Undang Nomor 10 Tahun 2004 Tentang Pembentukan Peraturan Perundang-undangan; 4. Undang-Undang Nomor 32 Tahun 2004 Tentang Pemerintahan Daerah. 5. Keputusan Menteri Pendidikan Nasional Nomor 162/U/2003 tentang Pedoman Penugasan Guru sebagai Kepala Sekolah. 6. Rambu-rambu penilaian Kinerja Sekolah oleh Direktur Jenderal Pendidikan Dasar dan Menengah tanggal 15 Oktober 1999. 7. Rambu-rambu Penilaian Kinerja Sekolah oleh Direktur Jenderal Pendidikan Dasar dan Menengah tanggal 1 September 2000. 8. Keputusan Bupati Kebumen Nomor ..... Tahun 2006 tentang Penugasan Guru Pegawai Negeri Sipil yang diberi tugas tambahan sebagai Kepala Sekolah di Lingkungan Peme
Baca selengkapnya

Sejarah SMA N 2 Kebumen

Sejarah SMA N 2 Kebumen Sebagaimana termuat dalam pembukaan UUD 1945, bahwa salah satu tujuan Negara Indonesia adalah mencerdaskan kehidupan bangsa. Untuk dapat mewujudkan hal tersebut perlu adanya sarana dan prasaranapendukug demi tercapainya tujuan tersebut. Upaya yang bisa ditempuh antara lain dengan penyediaan sarana pendidikan sebagai wahana pencerdasan dan pendewasaan bangsa. Seiring dengan bertambahnya penduduk khususnya kabupaten Kebumen,maka kebutuhan akan penyediaan sarana pendidikan yang berupa sekolah sangat diperlukan, khususnya untuk wilayah perkotaan. Hal itu mengngat bahwa di wilayah perkotaan baru ada 1(satu) Sekolah Menengah Atas, yaitu SMA Negeri Kebumen. Untuk Kabupaten Kebumen pada tahun 1987 terdapat 5 (lima) Sekolah Menengah Atas yang tersebar di 5(lima)kecamatan, yaitu: 1.SMA Negeri Kebumen, berdiri tanggal 1 Agustus 1958 2.SMA Negeri Gombong, berdiri tanggal 16 Agustus 1965 3.SMA Negeri Prembun, berdiri tanggal 9 Agustus 1982 4.SMA Negeri Kutowinangun, be
Baca selengkapnya

Investing in gold

Gold   investing   is   a   profitable business.   Why ?   because   the price   of   buy  gold   bullion   is always  high , So   we   will   not   feel   loss ,   although the   loss   would not have   much ,   we 'll   even   make a profit very   much . There are   several   types of   gold   that   can be   invested ,   in the form of   gold   coin   or   gold   coin and   gold   is   shaped   bars   or   called   gold   bullion . of   some   kind   there are   differences in   each .   By   buying   gold   coins   or   bullion  of   this   we   will be able to   invest   long term .  while the   gold IRA   is   gold   that   has a   high   exchange value   or   investment   value   of gold compared   with   other or buy bullion .
Baca selengkapnya