[أبووسم]

السلام عليكم

اخي الكريم ،، اضف (تايمر) للفورم وليكن اسمه Timer1

ثم اضف الكود بدون تعديل

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Opacity = 0.5

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Opacity = Me.Opacity + 0.01

[سامي نت]

أبووسم كتب :السلام عليكم

اخي الكريم ،، اضف (تايمر) للفورم وليكن اسمه Timer1

ثم اضف الكود بدون تعديل

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Opacity = 0.5

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Opacity = Me.Opacity + 0.01

:confused:

[sooriaty03]

سامي نت كتب :

:confused:

السلام عليكم ورحمة الله وبركاته

أخي الكريم هل ممكن أن توضح لنا أكثر ماذا تقصد بالضبط

يعني هل تقصد أن جميع الفورم بما في ذلك عنوان الفورم وأزرار التكبير والتصغير وإغلاق الفورم تكون شفافة و يبقى زر واحد فقط وأؤكد على فقط يبقى ظاهرا
أم أن هناك أدوات أخرى...
أم أنك تريد إظهار عنوان الفورم

الرجاء التوضيح أكثر

بالتوفيق

[hoob computer]

أخي الكريم سامي نت,
قم بتجربة الكود التالي و أبلغني بالنتيجة:

PHP كود :

Imports System.Runtime.InteropServices

Public Class Form1
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure MARGINS
        Public cxLeftWidth As Integer
        Public cxRightWidth As Integer
        Public cyTopHeight As Integer
        Public cyButtomheight As Integer
    End Structure
    <DllImport("dwmapi.dll")> _
    Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margin As MARGINS) As Integer
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mg As MARGINS = New MARGINS
        mg.cxLeftWidth = -1
        mg.cxRightWidth = -1
        mg.cyTopHeight = -1
        mg.cyButtomheight = -1
        ' 'set all value -1 to apply glass effect to the all of visible window
        Try
            DwmExtendFrameIntoClientArea(Me.Handle, mg)
        Catch ex As Exception
        End Try
    End Sub
End Class 


الكود منقول للأمانة, لم أقم بتجربته حالياً.

تحياتي.

[سامي نت]

sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

أخي الكريم هل ممكن أن توضح لنا أكثر ماذا تقصد بالضبط

يعني هل تقصد أن جميع الفورم بما في ذلك عنوان الفورم وأزرار التكبير والتصغير وإغلاق الفورم تكون شفافة و يبقى زر واحد فقط وأؤكد على فقط يبقى ظاهرا
أم أن هناك أدوات أخرى...
أم أنك تريد إظهار عنوان الفورم

الرجاء التوضيح أكثر

بالتوفيق

[سامي نت]

hoob computer كتب :أخي الكريم سامي نت,
قم بتجربة الكود التالي و أبلغني بالنتيجة:

PHP كود :

Imports System.Runtime.InteropServices

Public Class Form1
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure MARGINS
        Public cxLeftWidth As Integer
        Public cxRightWidth As Integer
        Public cyTopHeight As Integer
        Public cyButtomheight As Integer
    End Structure
    <DllImport("dwmapi.dll")> _
    Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margin As MARGINS) As Integer
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mg As MARGINS = New MARGINS
        mg.cxLeftWidth = -1
        mg.cxRightWidth = -1
        mg.cyTopHeight = -1
        mg.cyButtomheight = -1
        ' 'set all value -1 to apply glass effect to the all of visible window
        Try
            DwmExtendFrameIntoClientArea(Me.Handle, mg)
        Catch ex As Exception
        End Try
    End Sub
End Class 


الكود منقول للأمانة, لم أقم بتجربته حالياً.

تحياتي.

جربت الكود لم يعمل المطلوب عزيزي

[@@أبورائد@@]

hoob computer كتب :أخي الكريم سامي نت,
قم بتجربة الكود التالي و أبلغني بالنتيجة:

PHP كود :

Imports System.Runtime.InteropServices

Public Class Form1
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure MARGINS
        Public cxLeftWidth As Integer
        Public cxRightWidth As Integer
        Public cyTopHeight As Integer
        Public cyButtomheight As Integer
    End Structure
    <DllImport("dwmapi.dll")> _
    Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margin As MARGINS) As Integer
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mg As MARGINS = New MARGINS
        mg.cxLeftWidth = -1
        mg.cxRightWidth = -1
        mg.cyTopHeight = -1
        mg.cyButtomheight = -1
        ' 'set all value -1 to apply glass effect to the all of visible window
        Try
            DwmExtendFrameIntoClientArea(Me.Handle, mg)
        Catch ex As Exception
        End Try
    End Sub
End Class 


الكود منقول للأمانة, لم أقم بتجربته حالياً.

تحياتي.

السلام عليكم ورحمة الله وبركاته




لتطبيق كود الأخ [b]hoob computer[/b] يجب أن تكون خلفية الفورم والأدوات أسود Black ولون الخط 254;254;254 أي ليس أبيض تماماً وإلاّ سيصبح الخط شفاف غير مريح في القراءة.



و أعتقد أن هذا ليس مطلبك



السلام عليكم ورحمة الله وبركاته

[سامي نت]

نعم عزيزي أبو رائد ليس مطلبي

[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته




مطلبك في هذا الكود

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TransparencyKey = Me.BackColor
    End Sub 


السلام عليكم ورحمة الله وبركاته

[sooriaty03]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




مطلبك في هذا الكود

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TransparencyKey = Me.BackColor
    End Sub 


السلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله وبركاته

بارك الله فيك أخي الحبيب وجعله في ميزان حسناتك
واسمح لي بهذه الزيادة البسيطة
والتي تظهر في الكود

كود :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        'استعمل لون شفاف لليبل
        'إذا أردت أن يصبح شفاف
        Label1.BackColor = Color.Transparent
        Me.TransparencyKey = Me.BackColor
    End Sub
End Class

بالتوفيق