Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » Transparant form yapmak
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

3D ZAR

Yazar: mustafaduru
3D ZAR YAPMA


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 673
Yayın Tar:21.08.2004
Yazar : icefire
Hit :4461

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Arkadaşlar Eğer Transparant(şeffaf) form yapmak istiyorsanız, önce,
projenize 1 tane Modül ve formunuza da birkaç tane kontrol nesnesi ekleyin.

Modül Kodları
******************

Option Explicit

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long



Public Sub TransparentForm(frm As Form)

frm.ScaleMode = vbPixels

Const RGN_DIFF = 4

Const RGN_OR = 2

Dim outer_rgn As Long

Dim inner_rgn As Long

Dim wid As Single

Dim hgt As Single

Dim border_width As Single

Dim title_height As Single

Dim ctl_left As Single

Dim ctl_top As Single

Dim ctl_right As Single

Dim ctl_bottom As Single

Dim control_rgn As Long

Dim combined_rgn As Long

Dim ctl As Control

If frm.WindowState = vbMinimized Then Exit Sub

wid = frm.ScaleX(frm.Width, vbTwips, vbPixels)

hgt = frm.ScaleY(frm.Height, vbTwips, vbPixels)

outer_rgn = CreateRectRgn(0, 0, wid, hgt)

border_width = (wid - frm.ScaleWidth) / 2

title_height = hgt - border_width - frm.ScaleHeight

inner_rgn = CreateRectRgn(border_width, title_height, wid - border_width, hgt - border_width)

combined_rgn = CreateRectRgn(0, 0, 0, 0)

CombineRgn combined_rgn, outer_rgn, inner_rgn, RGN_DIFF

For Each ctl In frm.Controls

If ctl.Container Is frm Then

ctl_left = frm.ScaleX(ctl.Left, frm.ScaleMode, vbPixels) + border_width

ctl_top = frm.ScaleX(ctl.Top, frm.ScaleMode, vbPixels) + title_height

ctl_right = frm.ScaleX(ctl.Width, frm.ScaleMode, vbPixels) + ctl_left

ctl_bottom = frm.ScaleX(ctl.Height, frm.ScaleMode, vbPixels) + ctl_top

control_rgn = CreateRectRgn(ctl_left, ctl_top, ctl_right, ctl_bottom)

CombineRgn combined_rgn, combined_rgn, control_rgn, RGN_OR

End If

Next ctl

SetWindowRgn frm.hWnd, combined_rgn, True

End Sub


Form Kodları
***********************

Private Sub Form_Resize()

TransparentForm Me

End Sub




Yorumlar, eklemeler ve düşünceler
        cokk guzel bi$ey, ellerine saglik....

ama transparant'lik oranini ayarliyabilsek cok daha ii olurdu...

   Nox_, 27.10.2004 20:50
   Allah sizden razı olsun, aylardır arayıpta bulamadığım bir kod vermişsiniz.Şimdiye kadar ben windows 98 de hiçbir transparan form uygulamasını çalıştıramamıştım ama ilk denemede örneğiniz çalıştı.Çok başarılı bir uygulama, tekrar teşekkür ederim.

   samed03, 24.10.2005 02:34
   evettransparant'lik oranini ayarliyabilsek cok daha ii olurdu

   hasanilk, 10.12.2008 19:46
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin