sagol dostum paylasım ıcın sagol. + karma

Saydam ama güçlü. slm arkadaşlar. yeni bir makale ile karşınızdayım. hemen kodlara geçiyorum standart bir proje açın form1. borderstyle = sizable form1. windowstate = maximized projeye 1 adet modül ekleyin ve aşağdaki kodları modül içerisine yazın; Option Explicit Public Const GWL_EXSTYLE = -20 Public Const LWA_COLORKEY = &H1 Public Const LWA_ALPHA = &H2& Public Const WS_EX_LAYERED = &H80000 Public Const WS_EX_TRANSPARENT = &H20& Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" As Long Public Declare Function SetLayeredWindowAttributes Lib "user32" As Long Public Sub SaydamYap Dim stil As Long stil = GetWindowLong If = 0 Then SetWindowLong frm. hwnd, GWL_EXSTYLE, stil Or WS_EX_LAYERED SetLayeredWindowAttributes frm. hwnd, 0, SeffaflikDerecesi, LWA_ALPHA End If End Sub formun load olayına aşağıdaki kodları yazın private sub form_load Call SaydamYap(Me, 1) end sub formun mouse_down olayına aşağıdaki kodları yapıştırın Private Sub Form_MouseDown If Shift = 1 Then End Else MsgBox End If End Sub bu kadar. form çalışıyor ama şeffaf. load olayındaki 1 sayısını yükselttikçe formun görünümü belirginleşiyor. en önemlisi de kullanıcı herşeyi görebiliyor ama kesinlikle tıklayamıyor. shift tuşu ile beraber herhangi bir yere tıklarsanız program sonlandırılıyor aksi taktirde buradan çıkış yok mesajı veriyor. geliştirmek size kalmış. tekrar beraber olmak üzere hoşçakalın... ALINTIDIR

çok güzel bişey.