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

اخي الكريم ،، اضف (تايمر) للفورم وليكن اسمه 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 كتب :السلام عليكم ورحمة الله وبركاته

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

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

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

بالتوفيق

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 


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

تحياتي.

يجب أن تكون خلفية الفورم والأدوات أسود 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 


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