شفاف کردن يک قسمت دلخواه از فرم

[crasis]

سلام
من اين کدهايي که دوستان ميذارن رو دارم . ولي هيچکدوم ننوشتن که چطور ميشه يک قسمت خاص از فرم رو شفاف کرد يا مثلا يکي از آبجکت ها رو فقط شفاف کرد

[REZADG]

ببین دوست من در کد ها شما می بینید نوشته Me.hWnd حالا اگه بنویسی text1.hWnd چی میشه

[crasis]

من اين کار رو کردم .فقط txtbox سياه رنگ شد .

[Cancer]

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 DeleteObject Lib "gdi32" (ByVal hObject 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 Boolean) As Long
Const RNG_DIFF = 4
Private Sub Form_Resize()
Dim Outer_rng As Long
Dim Inner_rng As Long
Dim Combined_rng As Long
Dim Wid As Single
Dim Hgt As Single
Dim Border_width As Single
Dim Title_height As Single

If WindowState = vbMinimized Then Exit Sub


Wid = ScaleX(Width, vbTwips, vbPixels)
Hgt = ScaleY(Height, vbTwips, vbPixels)
Outer_rng = CreateRectRgn(0, 0, Wid, Hgt)
Border_width = (Wid - ScaleWidth) / 2
Title_height = (Hgt - Border_width - ScaleHeight)
Inner_rng = CreateRectRgn(Wid * 0.25, Hgt * 0.25, Wid * 0.75, Hgt * 0.75)

Combined_rng = CreateRectRgn(0, 0, 0, 0)
CombineRgn Combined_rng, Outer_rng, Inner_rng, RNG_DIFF

SetWindowRgn hWnd, Combined_rng, True

DeleteObject Combined_rng
DeleteObject Inner_rng
DeleteObject Outer_rng


End Sub

http://www.visualbasic.blogfa.com/

[crasis]

از کدي که گذاشتي ممنون .آيا ميشه شفافيتش رو تنظيم کرد ؟

[butterfly8528]

از کدي که گذاشتي ممنون .آيا ميشه شفافيتش رو تنظيم کرد ؟

با این کدها اصلا شفاف سازی صورت نگرفته که بشه درصد اون رو تنظیم کنیم ، این کد ها فقط قسمت مورد نظر رو حذف کرده همین .

[loads]

http://barnamenevis.org/forum/showthread.php?t=114869