.
ÜYE OLDUKTAN SONRA REKLAM KALKACAKTIR !!!



 
AnasayfaSSSAramaÜye ListesiKayıt OlGiriş yapİletişim
Reklam Alanı
Reklam Vermek İçin Tıklayınız
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
Giriş yap
Kullanıcı Adı:
Şifre:
Beni hatırla: 
:: Şifremi unuttum
En son konular
» Headquarters Gaming PRO [sXe] - 178.211.51.12
Ptsi Ara. 15, 2014 1:31 pm tarafından nonofthem

» Çok Uzun Zaman Aradan Sonra Geri Dönüş : mem1998
Çarş. Mayıs 23, 2012 7:37 pm tarafından mem1998

» Moderatör Alımı
C.tesi Mart 10, 2012 6:11 pm tarafından Pyrokinezi

» Gold k1 kodu :)
C.tesi Tem. 02, 2011 3:35 pm tarafından Reis61

» Warrock Bedava K1 İlk Kapan Alır ArkadaşLar Yöneticiler Lütfen Siz Almayın Kodu...
C.tesi Mayıs 21, 2011 9:16 pm tarafından darkus2

» Muhteşem bir forum
Cuma Şub. 25, 2011 11:35 pm tarafından apachibebetto

En iyi yollayıcılar
★ÅDMÌN★ (702)
 
kadirselen (550)
 
★Mǿяpнiпé★ (355)
 
ByCeo35 (314)
 
Darth Vader (286)
 
KaRaeL (197)
 
NharkoZ (185)
 
samsafi (174)
 
Lucho~ (101)
 
bucalii35 (97)
 
Kimler hatta?
Toplam 4 kullanıcı online :: 0 Kayıtlı, 0 Gizli ve 4 Misafir :: 1 Arama motorları

Yok

Sitede bugüne kadar en çok 221 kişi Ptsi Eyl. 06, 2010 1:15 pm tarihinde online oldu.

Online Sayaç
Anahtar-kelime

Paylaş | 
 

 Formdaki Siyah Yerleri Transparan Yapar :D

Aşağa gitmek 
YazarMesaj
kadirselen
[By_Admin İyi Forumlar Diler]
[By_Admin İyi Forumlar Diler]
avatar


<b>Mesaj Sayısı</b> Mesaj Sayısı : 550
<b>Kayıt tarihi</b> Kayıt tarihi : 15/08/10
<b>Yaş</b> Yaş : 27
<b>Nerden</b> Nerden : Denizli
<b>Cinsiyet</b> Cinsiyet : Erkek


MesajKonu: Formdaki Siyah Yerleri Transparan Yapar :D   Paz Ağus. 22, 2010 12:25 pm

'Bu
kodları form a yapıştırın Artık formdaki Siyah yerler görünmez
olacaktır..Form Borderstyle ni=0 yaparsanız.Formunuz
hazırdır..yukardaki vbBlack yerine vbRed yazarsak kırmızı renkler
görünmeyecektir..Gerisi kolay..

'VB6.0 içindir

Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()

Dim Ret As Long
Const MyColorKey = vbBlack 'siyah yerleri siler

Ret = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hwnd, MyColorKey, 0, LWA_COLORKEY

End Sub







KADİR SELEN

www.indiroloji.com ' Herkesi Bekleriz Yeni Forumumuza ..





Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://tazeforum.123.st
 
Formdaki Siyah Yerleri Transparan Yapar :D
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
 :: Bilgisayar & İnternet :: Web Tasarım ve Programlama :: Visual Basic-
Buraya geçin: