الآن القالب الشفاف Alpha Form , من برمجة أخوكم علاء

ما الجديد ؟

هذا الشئ معروف و مذكور سابقاً ...

أخي الفاضل أنا الآن قمت بجعله قالباً ووضعت كوداً شفافاً وتعبت وبعد شوية تيجي حضرتك وتقوللي إنني لم أفعل شيئاً

أخي أنا أحترم رأيك ... إذا أنت ترى إنني لم أفعل شيء فهذا لأنك تعرف الكود

اقتباس

لقد صممت هذا الفورم بنفسي فأرجو ألا ينسبه أحد إلى نفسه ويروح يقول : "أنا عملت فورم شفاف وهو من تعبي وما أدري وشو ...."

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

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByValcrKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean
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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const LWA_ALPHA = 2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

Private Sub Form_Load()
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, 0, 128, LWA_ALPHA
End Sub

وده فورم تانية

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

اقتباس

لقد أمنتكم بالله ... والله على ما أقول شهيد

حمل المانة ده لنفسك الكواد ده موجوده من قديم الازل

لم أقصد الإساءة لك بردي لكن من وجهة نظري أنه لم يكن هناك أي داعٍ لتكبير الموضوع و تحميل الأمانة و ....

فالموضوع معروف للجميع من فترة طويلة على الأقل هنا في الفريق المواضيع التي تتكلم عن هذا الشئ ليست قليلة

/index.ph...indowAttributes

بعضها منذ عام 2001 ... أضف إلى ذلك أن هذه الخاصية أضيفت منذ Windows 2000 مما يعني أن له وقت طويل ...

على العموم تشكر على الموضوع

معلش أخي , الظاهر إني فهمت خطأ , لكن أنا كنت فرحان إني عملت الموضوع في قالب

شكراً على الرد

مشكور اخي ونتمنا ان نري منك المزيد علي ما تقدمه من مجهود......

اقتباس

لقد أمنتكم بالله ... والله على ما أقول شهي

لا داعي للامانة يا اخي لانك تفعل ذلك دون مقابل اي لوجه الله وليس لشي اخر...........

والله الموفق

اخي علاء على حق انت لم تفعل شئ لان الموضوع موجود مسبقا ولاجديد في الأمر

شكراً أخي Max bayne على ردك اللطيف