كود يجعل النموذج يأخذ شكل الصورة

أخوي انا جربت بس الظاهر هذه الخاصية تحتاج الى ملفات تفاعلية

مثل DLL و OCX

بالنسبخ لي انا مهتم جدا بالموضوع بس للأسف مالقيت نتيجه

ما شاء الله تبارك الله

عمل رائع

وياليت ان الاكسس يوافق على تنفيذها

ما شاء الله يأستاذ/ مصلح عمل جميل

سؤال لو تكرمت: هل هذا العمل منجز بالفيجول بيسك ؟

نعم أخي ابن مسقط وأنا أحاول الآن تطبيق الطريقة على الأكسيس وأرجو أن أوفق أو يوفق أحد الأخوة في الوصول إلى ذلك

ضع الكود هنا أستاذي مصلح

حيث أنه لا يوجد لدي فيجول في جهازي ولم استطع من رؤية الكود

يه على عيني استاذ فهد

الكود التالي في Module

Option Explicit



Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function MakeRgn Lib "region.dll" (ByVal filename As String, ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As Long
Public Declare Function DeleteRgn Lib "region.dll" (ByVal region As Long)

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMAXIMIZED = 3

والكود التالي للنموذج في حدث عند التحميل كما يتضح من أول سطر

[php]
Private Sub Form_Load()

Dim PicPath As String
Dim DoitIs

    If Right$(App.Path, 1) <> "" Then
        PicPath = App.Path & "arab.bmp"
    Else
        PicPath = App.Path & "arab.bmp"
    End If

    Me.Picture = LoadPicture(PicPath)

    SetREG = MakeRgn(PicPath, 255, 0, 255)

    DoitIs = SetWindowRgn(Me.hwnd, SetREG, True)


End Sub

أفتح الفوتوشوب واجعل لون الخلفية اللون التالي 255 ،0 ،255 وضع عليه أي صورة وليكن مثلاً صورة جوالك ثم أحفظ الصورة بهذا الاسم arab.bmp

أو أي اسم تريد ولكن إذا غيرة في اسم الصورة لا بد من التغيير في الكود0

النتيجه : سوف يختفي جميع أجزاء النموذج التي بالرقم الذي ذكرناه وتبقى الصورة فقط0

اخى الكريم / الاستاذ مصلح

لقد جربت المثال وفى ظنى انه يحتاج الى احد المراجع كى يعمل

الاخ مصلح

تحياتي على جهدك الواضح حاولت اعمل مثلك ولكن ظهرت الرسالة التالية تفيد ان الجزء من الكود غير صحيح ارجوا شرحها لي

DoitIs = SetWindowRgn(Me.hwnd, SetREG, True