mas arief thanks atas pencerahannya setelah saya coba udah berhasil. tapi kalo kita ngasih textbox/ command button di form kok ikutan transparan. kalo misalkan yg transparan cuma formnya sedaangkan komponen didalamnya tdk ikutan transparan(textbox, label, commandbutton) gmana caranya ya mas?? maklum mas barusan bela
----- Original Message ---- From: Arief Wibowo <[EMAIL PROTECTED]> To: [email protected] Sent: Thursday, February 22, 2007 6:50:15 PM Subject: [Programmer-VB] Re: Form Transaparan === BEGIN ARIEFWT'S POSTING === Pake kombinasi Windows API, tapi scriptnya agak panjang. '=== BEGIN CODE - COPY FROM HERE === 'Program Transparansi Form 'Deklarasi API Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAtt ributes Lib "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long 'Deklarasi Konstanta Private Const GWL_EXSTYLE As Long = -20 Private Const WS_EX_LAYERED As Long = &H80000 Private Const LWA_ALPHA As Long = &H2 Sub AlphaBlend(WindowHa ndle As Long, Opacity As Long) ' Sub AlphaBlend(WindowHa ndle As Long, Opacity As Long) ' Keterangan: ' * WindowHandle adalah hWnd (Handle of Window) dari Form yang mau ditransparankan ' * Opacity adalah persentase tampak --> 0 = transparan, 100 = opak ' ' Berfungsi mengatur transparansi Form If Opacity < 0 Then Opacity = 0 ElseIf Opacity > 100 Then Opacity = 100 End If If Opacity = 100 Then SetWindowLong WindowHandle, GWL_EXSTYLE, GetWindowLong( WindowHandle, GWL_EXSTYLE) And Not WS_EX_LAYERED ElseIf Opacity > 0 Then SetWindowLong WindowHandle, GWL_EXSTYLE, GetWindowLong( WindowHandle, GWL_EXSTYLE) Or WS_EX_LAYERED SetLayeredWindowAtt ributes WindowHandle, 0, Int(Opacity * 255 / 100), LWA_ALPHA End If End Sub Private Sub Form_Load() AlphaBlend hWnd, 50 '"Lakukan transparansi form ini 50%" End Sub 'powered by Arief Softwares Lab (ariefwt+aslab@ gmail.com) '=== END CODE - COPY UNTIL HERE === === END ARIEFWT'S POSTING === Catatan: * Semoga posting di atas dapat bermanfaat secara positif bagi kita semua * Kalau ada pertanyaan, silahkan hubungi saya di [EMAIL PROTECTED] com * Mohon maaf sebesar-besarnya apabila ada kata-kata yang kurang berkenaan di hati Anda Salam, (Arief Wibowo, C.Hts, RM) Computer Programmer and Alternative Therapist Medan, 22 Februari 2007dddddd|0) --- In Programmer-VB@ yahoogroups. com, "ipoen6_n44m" <ipoen6_n44m@ ...> wrote: > > frend gmana codingnya kalo mau buat form yang transparan tapi > transparannya bisa di ubah2, misalkan formnya saya buat transparan > 50%,70% dll. > bagi2 pencerahannya dong > thanks > <!-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee; margin-bottom:20px; } #ygrp-sponsor #ov ul{ padding:0 0 0 8px; margin:0; } #ygrp-sponsor #ov li{ list-style-type:square; padding:6px 0; font-size:77%; } #ygrp-sponsor #ov li a{ text-decoration:none; font-size:130%; } #ygrp-sponsor #nc { background-color:#eee; margin-bottom:20px; padding:0 8px; } #ygrp-sponsor .ad{ padding:8px 0; } #ygrp-sponsor .ad #hd1{ font-family:Arial; font-weight:bold; color:#628c2a; font-size:100%; line-height:122%; } #ygrp-sponsor .ad a{ text-decoration:none; } #ygrp-sponsor .ad a:hover{ text-decoration:underline; } #ygrp-sponsor .ad p{ margin:0; } o {font-size:0;} .MsoNormal { margin:0 0 0 0; } #ygrp-text tt{ font-size:120%; } blockquote{margin:0 0 0 4px;} .replbq {margin:4;} --> ____________________________________________________________________________________ No need to miss a message. Get email on-the-go with Yahoo! Mail for Mobile. Get started. http://mobile.yahoo.com/mail
