Me7tag 2a3mil el Frame Transparent [Shafaf]

اخوي حرام عليك والله تعبت وأنا أحاول أقرأ ما كتبتة تقريباً ساعة إلا ربع أترجم وما طلعت بشي من سوالك...

الرجاء كتابة السوال عربي .. أو أنجليزي بس اللغة هذي ما أفهمها .. تحياتي في إنتظار كتابة سوالك علشان تحصل على الإيجابة الصحيحة

Sorry MOhamedVB but i hope u can understand my Bad ENglish

If you know Ocx For Active threed Plus v3 , lt has Frame Control with Proparties BackStyle can make it Transparent

Because I'm Now Biuld Program and this Program has Many GIF Image using OCX AniGif and Can't Put label Over this COntrol or Over Flash OCX

So i Need THis Properties at VB Frame COntrols

OR IF U can bring To Me Active Threed PLus V3 :D

اخى الكريم ياريت تجرب البحث فى شبكة الانترنت

هذ الكود منقول من منتديات www.vbforums.com

ضع هذا الكود فى الموديول

Option Explicit

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 SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const WS_EX_TRANSPARENT = &H20&
Private Const GWL_EXSTYLE = (-20)
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Const TRANSPARENT = 1
Public Declare Function InvalidateRectLong Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long
Public Sub frametrans(ByVal framee As Frame)
Dim lExStyle As Long

lExStyle = GetWindowLong(framee.hwnd, GWL_EXSTYLE)
lExStyle = lExStyle Or WS_EX_TRANSPARENT

'\\ Set window style to be transparent
Call SetWindowLong(framee.hwnd, GWL_EXSTYLE, lExStyle)
'\\ make the fram backstyle transparent
Call SetBkMode(GetDC(framee.hwnd), TRANSPARENT)
'\\ Make frame window redraw itself
Call SetWindowPos(framee.hwnd, 0, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE + SWP_FRAMECHANGED)
Call InvalidateRectLong(framee.hwnd, vbNull, True)
framee.Refresh

End Sub

ولجعل اى Frame شفافة ننادى على البرنامج الفرعى

Call frametrans(Form1.Frame1)

shokran Femto 3ala e mosa3da

bas el MOdule dah mashta3'alsh 3andy bas kan 3andy zaio lel Form mesh el Frame we kan be3milha Opacity ana mehs 3aiz opacity ana 3aiz transparent ya3ny low 7atet 3aleh Label yekon baien 3ady 3asahn ha3mil el Program 3ala FLash design

انتا جربت الكود ؟

انا جربته وال زر اللى عليها ظهر كانه على الفورم...

ومشروع مرفق ياسيدى :)

trNS.zip

:D mashkor 2a7'y el 2 Mara how fe3lan el Frame 2a7'tafa we el zorar la2 bas garab 7ot Label hai7'tafy low la2et 7al 2argok 2oly mashkoor

انا مشغول شوية كده بس حقولك فكرة جت فى دماغى

التيكست بوكس مش حيختفى فممكن تضع تيكست بوكس وتضبط خواصه

1- نخليه Flat

2- locked

3- ممكن نخفى موشر الكتابة فيه كمان - بالكود

وتستخدمه كانه Label

من قواعد المشاركة ان تضع سؤالك باللغة العربية الفصحى ..

وليس كلام بالعربي مكتوب بالاحرف الانجليزيه ... سيتم اغلاق الموضوع لعدم تقيده بقواعد المشاركة